Реферат: 10 задач с решениями программированием на Паскале

for i:=1 to k do writeln(f1,a[i]);

close(f1);

w(f1);

end.

Задача 9.

Условие: В файле из вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули.

Программа:

program S2_Z9;

type fi=file of integer; m=array[1..100] of integer;

var f1:fi;n:integer;

procedure vvod(n:integer;var f:fi);

var i,a:integer;

begin

assign (f,'c:\f.int');

rewrite(f);

writeln('Введите компоненты файла');

for i:=1 to n do begin

read(a);write(f,a);end;

close (f);

end;

procedure sort(n:integer;var f:fi);

var buf:fi;s,i,j,k:integer; a:m;

begin

reset(f);

assign (buf,'c:\buf.int');

rewrite(buf);

while not eof(f) do begin

for i:=1 to n do begin read(f,s); A[i]:=s;end;end;

for j:=1 to n do

for i:=1 to n do