Файлы Turbo Pascal

[lvl]

Дан файл вещественных чисел. Переписать в новый файл все компоненты, расположенные после первого положительного.

[Serge_Bliznykov]

это настолько элементарно, что я Вам напишу всю программу целиком. Разбирайтесь..

var f, f2 : file of real;
  flag : boolean;
  x : real;
begin
  Assign(f, 'file1.dat');
  Reset(f);
  Assign(f2, 'fileNew.dat');
  Rewrite(f2);
  flag := false;
  while not eof(f) do begin
     read(f,x);
     if flag then write(f2,x)
     else
        if x>=0 then flag := true;
  end;
  Close(f);
  Close(f2);
  WriteLn('New file is created.');
  Readln
end.

[Sciv]

Все-таки, чисто имхо, не стоит 0 включать в положительные. Это число, не имеющее знака. Я в таком случае от натурального ряда пляшу, а там с 1 счет ведется.

[Serge_Bliznykov]

Сообщение от Sciv

Все-таки, чисто имхо, не стоит 0 включать в положительные

Sciv, ну, вопрос, совсем не однозначный. я бы в дебри математической теории не влазил, хотя, конечно же, я согласен с вашим замечанием: с точки зрения математики есть положительные числа, есть отрицательные и есть ноль (который не отностится ни к положительным, ни к отрицательным числам).
ну, думаю, что если lvl не устроит такое решение, исправить нестрогое равенство на строгое (if x>0 then ...) не вызовет большого труда!