Лабы по программированию (КИ МГОУ) / Лабы по программированию 1 курс / Лаба4 / отчёт заданий 4 и 5

Исходный код программы:

var f,k:text;

c:string;

begin

assign(f,'f.txt');

assign(k,'k.txt');

reset(f);

rewrite(k);

while not eof(f) do begin

read(f,c);

write(k,c);

end;

close(f);

close(k);

end.

Исходные данные:

Результаты расчёта:

Блок схема:

Исходный код программы:

var a:array[1..5] of integer; S:string;

f,k:text;

i,j,L,max:integer;

begin

assign(f,'f.txt'); assign(k,'k.txt');

reset(f); rewrite(k);

j:=0;

while not eof(f) do begin

max:=-MaxInt;

for i:=1 to 5 do

begin

if not eof(f) then begin

read(f,a[i]);

if a[i]>max then max:=a[i];

end;

end;

write(k,' ',max);

j:=j+1;

end;

close(f);

close(k);

end.

Исходные данные:

Результаты расчёта:

Блок схема: