Задачи. Паскаль

Тема в разделе "Delphi - FAQ", создана пользователем Russel, 18 дек 2008.

  1. Russel

    Russel Гость

    Задание №4.
    Наход. в файле.

    Код (Text):
    program lab4;
    uses crt;
    var f,d: array [1..8] of real;
    c,s:real;
    i:integer;
    begin
    for i:=1 to 8 do
    begin

    writeln ('vvedite f',i);
    read (f[i]);
    writeln ('vvedite d',i);
    read (d[i]);

    Препод сказал, что надо из файла. Как я понимаю из текстового, там в строке числа надо задать...
    end;

    s:=0;
    s:=s+f[i];

    Здесь что-то не понравилось...
    for i:=1 to 8 do
    begin
    c:=s*(f[i]-2.5)/d[i];
    writeln ('c',i,'=',c:8:1);
    end;
    end.
    Выручите пожалуйста! По возможности объясните всю прожку плиз....
    И ещё: преподу на показать контрольный просчет... Как его здесь сделать?
    Спасибо!

    №5 Как её сделать?
    Задание 5. Простая циклическая программа с использованием рекуррентных формул. При отсутствии таких формул задача не принимается.

    Задание в файле...
    6) Усложненная циклическая программа с числовыми данными. Ввод исходных данных из текстового «внешнего» файла (данные вводятся не с клавиатуры в момент выполнения программы, а из заранее подготовленного файла, находящегося на каком- то внешнем носителе). Подготовить схему алгоритма.

    Контрольный просчет тоже интересует...

    Помогите кто чем может! Хотя бы инструкции какие-нибудь... Спасибо всем откликнувшимся!
     

    Вложения:

    • zadanie.doc
      Размер файла:
      18,5 КБ
      Просмотров:
      12
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    стучи в асю 34-98-34-73
     
Загрузка...

Поделиться этой страницей