Работа с файлами

[Надюша808]

1. Дан файл f, элементы которого являются действительными числами. Найти разность первого и последнего элементов файла.


2. Пусть текстовой файл t разбит на непустые строки. Посчитать число строк, которые начинаются с буквы d.

помогите пожалуйста!напишите программу на паскале

[netpolice]

В чем проблема? Что именно не получается? Действительные числа в паскале представлены несколькими типами, не зная точно тип, не возможно корректно обратиться к файлу, т.к. типы имеют разную длинну в байтах

[Serge_Bliznykov]

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

Действительные числа в паскале представлены несколькими типами, не зная точно тип, не возможно корректно обратиться к файлу, т.к. типы имеют разную длинну в байтах

на самом деле, это не проблема. Какой автор топика тип выберет, такого типа он файл и создаст и с таким типом он и будет работать.

кстати, решение 1-й задачи:

var F : file of real; { можно и file of double, можно и file of extended }
  d1, d2 : real; { тип должен такой же, как и файл }
begin
   Assign(F, 'ИМяФайл.dat');
   Reset(F);
   if FileSize(F)=0 then WriteLn('#ERROR: file is empty!')
   else begin
     Read(F, d1);
     Seek(F, FileSize(F)-1);
     Read(F, d2);
     WriteLn('Разность равна ',(d1-d2):1:5);
  end;
  Close(F);
  Readln; {не закрываем окно программы, ждём нажатия Enter}
end.

[netpolice]

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

на самом деле, это не проблема. Какой автор топика тип выберет, такого типа он файл и создаст и с таким типом он и будет работать.

Так в том то и вопрос, а автор сам будет создавать проверочный файл или ему препод какой-то подсунет, ой чует мое сердце что там еще и файл текстовый будет с действительными числами внутри.

[Надюша808]

Спасибо большое за помощь!