File28. Дан файл вещественных чисел. Заменить в файле каждый элемент, кроме начального и конечного, на его среднее арифметическое с предыдущим и последующим элементом.
>Решение 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 | program File28; var S:String; F_in,F_out: File of Real; i:integer; El2,El1,El,temp:Real; begin Write('File1: '); Readln(S); Assign(F_in,S); Reset(F_in); Assign(F_out,'~'+S); ReWrite(F_out); Read(F_in,El1); Write(F_out,El1); Read(F_in,El); while (not eof(F_in)) do begin El2:=El1; El1:=El; Read(F_in,El); temp:=(El2+El1+El)/3; Write(F_out,temp); end; Write(F_out,El); Close(F_in); Close(F_out); Erase(F_in); Rename(F_out,S); end. |
program file28;
var
f1:file of integer;
f2:file of real;
s1:string;
temp1,temp2,temp3,num,i,temp:integer;
res:real;
begin
writeln(‘vhodnoy file’);
readln(s1);
assign(f1,s1);
assign(f2,’~’+s1);
{$I-}
writeln(‘original’);
reset(f1);
num:=1;
while not eof(f1) do begin
read(f1,i);write(i,’ ‘);
inc(num,1);
end;
close(f1);
writeln();
reset(f1);
rewrite(f2);
read(f1,temp);
temp1:=temp;
write(f2,temp1);
read(f1,temp);
temp2:=temp;
program file28;
var
f1:file of integer;
f2:file of real;
s1:string;
temp1,temp2,temp3,num,i,temp:integer;
res:real;
begin
writeln(‘vhodnoy file’);
readln(s1);
assign(f1,s1);
assign(f2,’~’+s1);
{$I-}
writeln(‘original’);
reset(f1);
num:=1;
while not eof(f1) do begin
read(f1,i);write(i,’ ‘);
inc(num,1);
end;
close(f1);
writeln();
reset(f1);
rewrite(f2);
read(f1,temp);
temp1:=temp;
write(f2,temp1);
read(f1,temp);
temp2:=temp;
if IOResult=0 then begin
while not eof(f1) do begin
read(f1,temp);
temp3:=temp;
res:=(temp1+temp3)/2;
write(f2,res);
temp1:=temp2;
temp2:=temp3;
end;//end while
write(f2,temp3);
close(f1);
close(f2);
end;//ior
writeln(‘itog:’);
reset(f2);
while not eof(f2) do begin
read(f2,res);write(res:2:0,’ ‘);
end;close(f2);
end.