profile
Опубликовано 6 лет назад по предмету Информатика от mob0072

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

  1. Ответ
    Ответ дан petyaGavrikov
    Если файл типизированный, то один из вариантов решения задачи такой:
    var f: file of real; a,b,r:real;
    begin
    AssignFile(f,'myFile.dat');
    Reset(f);
    Read(f,a);
    while not eof(f) do read(f,b);
    r:=a-b;
    //здесь нужно вывести r
    Close(f);
    end;
    Вывод r зависит от того, какое программу Вы делаете - консольное или Windows-приложение.
Самые новые вопросы