File9. Даны имена двух файлов вещественных чисел. Известно, что один из них (не обязательно первый) существует и является непустым, а другой в те-кущем каталоге отсутствует. Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла (в указанном порядке).
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | program File9; var S1,S2:String; F_in,F_out: File of Real; R:Real; i:integer; begin Write('File1: '); Readln(S1); Write('File2: '); Readln(S2); Assign(F_in,S1); {$I-} Reset(F_in); {$I+} if IOResult=0 then begin Assign(F_out,S2); ReWrite(F_out); end else begin Assign(F_in,S2); Reset(F_out); Assign(F_out,S1); ReWrite(F_out); end; Read (F_in,R); Write(F_out,R); while (not eof(F_in)) do Read(F_in,R); Write(F_out,R); Close(F_in); Close(F_out); end. |
Можно на языке с++ плииз
program file9;
var
fin,fout,f1:file of integer;
s1,s2:string;
first,last,num,num2,i:integer;
begin
writeln(‘f1,f2′);
readln(s1);
readln(s2);
assign(f1,s1);
{$I-}
reset(f1);
if IOResult=0 then
begin //f1 exist
close(f1);
assign(fin,s1);
reset(fin); //fin=s1
assign(fout,s2);
rewrite(fout);//fout=s2
end//create f2
else
begin //f1 doesnt exist
assign(fin,s2);
reset(fin);//open s2 fin=s2
assign(fout,s1);
rewrite(fout);//create fout=s1
end;
reset(fin);
num:=1;
while not eof(fin) do begin
read(fin,i);
if num=1 then first:=i;
inc(num,1);
num2:=i;
end;
last:=num2;
write(fout,last);
write(fout,first);
close(fin);
reset(fout);
while not eof(fout) do begin
read(fout,i);write(i,’ ‘);
end;
close(fout);
end.