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

[sisaw]

Создайте файл f, компоненты которого являются действительными числами. Составите программу вычисления разности между первым и последним компонентом файла f. Выясните, совпадает ли найденная разность с полусуммой наибольшего и наменьшего компонентов этого файла.



Помогите написать на паскале.

[Serge_Bliznykov]

Вы ещё не усвоили, что "Помочь" - это не "сделать за Вас"?!
Выкладывайте, что Вам удалось уже написать, что не получается (что конкретно вызывает трудности).
Задачка очень и очень простая.

для затравки.
файл действительных чисел описывается так:

var f : file of real; {или file of double  при желании}

количество записей (чисел) в таком файле (он, кстати, называется типизированным - т.е. файл, состоящий из элементов определённого типа) можно легко получить через функцию FileSize(f)

[sisaw]

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

Вы ещё не усвоили, что "Помочь" - это не "сделать за Вас"?!
Выкладывайте, что Вам удалось уже написать, что не получается (что конкретно вызывает трудности).
Задачка очень и очень простая.

для затравки.
файл действительных чисел описывается так:

var f : file of real; {или file of double  при желании}

количество записей (чисел) в таком файле (он, кстати, называется типизированным - т.е. файл, состоящий из элементов определённого типа) можно легко получить через функцию FileSize(f)

Трудность вызывает что на эту тему лекций не было.

[Serge_Bliznykov]

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

Трудность вызывает что на эту тему лекций не было.

ну, это объяснение не принимается.
Даже если лекций не было, неужели трудно прочитать о работе с типизированными файлами в учебнике Паскаля?!
И в интернете полно учебного материала.
например,
http://pas1.ru/typed-file
http://rsc-team.ru/index.pl?group=lection&ind=15&rzd=2

вам нужно прочитать, что такое типизированный файл, как его объявлять (я уже привёл пример выше), как открывать/закрывать, как читать/писать.

потом написать программу 1.

Описать файл вещественных чисел.
Назначить файловой переменной имя файла на диске.
Открыть файл на запись.
Записать в него нужное число чисел.
Закрыть файл.

Потом написать программу 2.
Описать файл вещественных чисел.
Назначить файловой переменной имя файла на диске.
Открыть файл на чтение.
прочитать первое число
в цикле найти максимальное и минимальное значения (алгоритм такой же, как при поиске эктремумов в массиве)
прочитать последнее число.
Найти разность между первым и последним числом файла
Сравнить, совпадает ли разность с полусуммой наибольшего и наменьшего
Вывести результат сравнения.
Закрыть файл.

всё.

[sisaw]

Создайте файл f, компоненты которого являются действительными числами. Составите программу вычисления разности между первым и последним компонентом файла f. Выясните, совпадает ли найденная разность с полусуммой наибольшего и наименьшего компонентов этого файла.
Язык паскаль( попытка чтения за концом файла)

Var
 f:file of Real;
 i,N:Byte;
 A,Max,Min,First,Last:Real;
 
Begin
 Randomize;
 N:=50+Random(100);
 Assign(f,'D:\xxx');
Rewrite(f);
 For i:=1 to N do
  begin
   A:=(Random-0.3)*100;
   Write(f,A);
  end;
 Close(f);
 Reset(f);
 Read(f,First);
 Min:=First;
 Max:=First;
 Repeat
  if not EoF(f) then
   begin
    Read(f,Last);
    If Last>Max then Max:=Last;
    If Last<Min then Min:=Last;
   end;
 Until EoF(f);
 Close(f);
 Writeln('Max-Min = ',Max-Min:0:3);
 Writeln('(First+Last)/2 = ',(First+Last)/2:0:3);
 If (Max-Min)=((First+Last)/2) then
  Writeln('Coincides!')
 else
  Writeln('Not coincides!');
 Readln
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[GetMax]

Для чтения из файла достаточно использовать цикл While not EOF(f)

[Serge_Bliznykov]

программа годная (Вы только перепутали, где разность, а где полусумма, но для кода это не очень принципиально)

Рискну предположить, что проблема с записью в файл на диске D:\
посмотрите, есть ли файл с именем D:\xxx
какого он размера?
Попробуйте предварительно удалить файл D:\xxx и затем пройти программу в отладчике в пошаговом режиме (по F8 или использовать точки останова в отладчике). На какой строке кода программа вырубается?
И ещё, какой у Вас Паскаль (компилятор/IDE)?

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

Для чтения из файла достаточно использовать цикл While not EOF(f)

Это безусловно так. Но явной ошибки и в коде TC я не увидел (я код у себя в TurboPascal прогнал, всё отработало как часы!)

[sisaw]

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

программа годная (Вы только перепутали, где разность, а где полусумма, но для кода это не очень принципиально)

Рискну предположить, что проблема с записью в файл на диске D:\
посмотрите, есть ли файл с именем D:\xxx
какого он размера?
Попробуйте предварительно удалить файл D:\xxx и затем пройти программу в отладчике в пошаговом режиме (по F8 или использовать точки останова в отладчике). На какой строке кода программа вырубается?
И ещё, какой у Вас Паскаль (компилятор/IDE)?



Это безусловно так. Но явной ошибки и в коде TC я не увидел (я код у себя в TurboPascal прогнал, всё отработало как часы!)

Нее с путем файла все нормально просто щас он мне не считает правильно, да и сказали rondom теперь даже не знаю куда че вставлять

[GetMax]

Во-первых, смените тип данных с Byte на Integer в описании переменных. Иначе рандом может вам сгененерить такое число, что оно просто не влезет в этот тип.

Во-вторых что конкретно считается не правильно?

да и сказали rondom теперь даже не знаю куда че вставлять

Что????

[sisaw]

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

Во-первых, смените тип данных с Byte на Integer в описании переменных. Иначе рандом может вам сгененерить такое число, что оно просто не влезет в этот тип.

Во-вторых что конкретно считается не правильно?


Что????

Rondom надо заменить а считает все нули