Lab3_var6_z2

{type
reals = file of real;
var f : reals;
Напишите рекурсивную программу, которая печатает снача-
ла все отрицательные элементы этого файла, а затем положи-
тельные (в любом порядке).}

program lab3_var6_z2;

const N=10;// количество чисел

type
reals = file of real;

var
f: reals; //файл для вещественных чисел
i: integer; //Счетчик
x: real; // переменная для генерации случайных чисел

procedure SORT; // процедура печати сперва отрицательных чисел, затем положительных
var
chislo: real;

begin
if not eof(f) then begin
read(f, chislo); // читаем число из файла
if (chislo < 0) then // если число отрицательно,
begin
writeln(chislo:5:2,' '); // то печатаем его
SORT; // и запускаем рекурсию
end
else
begin
SORT; //иначе запускаем рекурсию,
writeln(chislo:5:2,' '); //а печать положительного числа откладываем
end;
end;
end;

begin

randomize; //инициализируем датчик случайных чисел
assign(f, 'lab3_var6_z2.dat'); //связываем файл с именем 'f'
rewrite(f); //открываем для записи

writeln('В файл записаны: ');
for i := 1 to N do
begin
x := (random(200) - 100) / 12.5;
write(f, x); // записываем в файл случайные положительный и отрицательные числа
writeln(x, ' ');
end;

reset(f);
Writeln();
Writeln('Результат: ');
SORT;

close(f);

end.