File8. Даны имена двух файлов вещественных чисел. Известно, что первый из них существует и является непустым, а второй в текущем каталоге отсутствует. Создать отсутствующий файл и записать в него начальный и конечный элементы существующего файла (в указанном порядке).
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | program File8; var S:String; F_in,F_out: File of Real; R:Real; i:integer; begin Write('File1: '); Readln(S); Assign(F_in,S); Reset(F_in); Write('File2: '); Readln(S); Assign(F_out,S); ReWrite(F_out); 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 file8;
var
f2,f1:file of integer;
s1,s2:string;
num,num1,num2,i:integer;
begin
writeln(‘f1-existed,f2=non-existed’);
readln(s1);
readln(s2);
assign(f1,s1);
assign(f2,s2);
{IO-}
reset(f1);
if IOResult=0 then begin
rewrite(f2);
num:=1;
while not eof(f1) do begin
read(f1,i);
if num=1 then write(f2,i);
inc(num,1);
num2:=i;
end;
write(f2,num2);
close(f2);
close(f1);
end;//iores
end.