Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите написать задачу в Паскаль (http://www.tehnari.ru/f41/t96386/)

egorovalina 17.05.2014 17:46

Помогите написать задачу в Паскаль
 
Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех возрастающих последовательностей его элементов.

Vladimir_S 17.05.2014 18:35

Цитата:

Сообщение от egorovalina (Сообщение 1032712)
Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех возрастающих последовательностей его элементов.

Да пожалуйста, без проблем:
Код:

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.



Часовой пояс GMT +4, время: 14:34.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.