Цитата:
Сообщение от egorovalina
Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех возрастающих последовательностей его элементов.
|
Да пожалуйста, без проблем:
Код:
Const
N=40;
Var
f1:file of Real;
f2:file of Integer;
a,a1,a2,d:Real;
m,i:Integer;
Begin
Assign(f1,'xxx');
Rewrite(f1);
Assign(f2,'yyy');
Rewrite(f2);
Randomize;
For i:=1 to N do
begin
a:=Random*100;
write(f1,a);
end;
Close(f1);
ReSet(f1);
Read(f1,a1);
Write(a1:8:3);
Repeat
m:=1;
repeat
read(f1,a2);
write(a2:8:3);
d:=a2-a1;
if d>0 then Inc(m);
a1:=a2;
until (d<=0) or EoF(f1);
if m>1 then write(f2,m);
Until EoF(f1);
Writeln;
Close(f1);
Close(f2);
Reset(f2);
Repeat
Read(f2,m);
Write(m:4);
Until EoF(f2);
Close(f2);
Readln
End.