File26. Дан файл вещественных чисел. Поменять в нем местами минимальный и максимальный элементы.
>Решение 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 35 36 37 38 39 40 41 42 43 44 45 46 | program File26; var S:String; F_in,F_temp: File of Real; temp,maxEl,minEl:Real; i,maxI,minI:integer; begin Write('File: '); Readln(S); Assign(F_in,S); Reset(F_in); i:=1; while (not eof(F_in)) do begin Read(F_in,temp); if (temp>maxEl) or (i=1) then begin maxEl:=temp; maxI:=i; end;; if (temp<minEl) or (i=1) then begin minEl:=temp; minI:=i; end;; inc(i); end; Close(F_in); Assign(F_in,S); Reset(F_in); Assign(F_temp,'~'+S); ReWrite(F_temp); i:=1; while (not eof(F_in)) do begin Read(F_in,temp); if i=maxI then Write(F_temp,minEl) else if i=minI then Write(F_temp,maxEl) else Write(F_temp,temp); inc(i); end; Close(F_in); Close(F_temp); Erase(F_in); Rename(F_temp,S); end. |
program file26;
var
f1:file of real;
s1:string;
num:integer;
minn,maxn,min,max,i,temp:real;
begin
writeln(‘vhodnoy file’);
readln(s1);
assign(f1,s1);
{$I-}
writeln(‘original’);
reset(f1);
while not eof(f1) do begin
read(f1,i);write(i:1:0,’ ‘);
end;
close(f1);
writeln();
reset(f1);
if IOResult=0 then begin
read(f1,temp);
min:=temp;max:=temp;minn:=0;maxn:=0;
num:=2;
while not eof(f1) do begin
read(f1,temp);
if temp>=max then begin max:=temp;maxn:=num;end;
if temp<min then begin min:=temp;minn:=num;end;
inc(num,1);
end;//endwile
close(f1);
end;//ior
writeln('min=',min:1:1,'minnum=',minn:1:1,' ','max=',max:1:1,'maxnum=',maxn:1:1);
writeln();
reset(f1);
seek(f1,round(minn-1));
write(f1,max);
seek(f1,round(maxn-1));
write(f1,min);
close(f1);
writeln('itog:');
reset(f1);
while not eof(f1) do begin
read(f1,i);write(i:0:0,' ');
end;close(f1);
end.