Вывести На Экран Все Числа, Которые Лежат В Заданном Промежутке

Тема в разделе "Pascal and Delphi", создана пользователем lelik, 3 май 2012.

  1. lelik

    lelik Гость

    Создать модуль U7, который содержит следующие функции:

    a.Функция Р(real, real), которая возвращает значение функции F(x,y)=(x2+y2)/3;
    b.Процедуру U, которая выводит на экран все числа, которые лежат в заданном промежутке.

    Написать программу, которая подключает разработанный модуль и демонстрирует работу функции и процедуры.
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    насчет "a" не понял что за x2 и y2 в теле функции

    "b":
    procedure U(a,b:integer);
    var i:integer;
    begin
    for i:=a to b do write(i,' ');
    end;

    //К примеру функция
    function P(x,y:real):real;
    begin
    P:=(x+y)/3;
    end;

    Чтобы создать модуль:
    ключевые слова:
    Код (Text):
    unit U7;
    interface
    function P(x,y:real):real;
    procedure U(a,b:integer);
    implementation
    procedure U(a,b:integer);
    var i:integer;
    begin
    for i:=a to b do write(i,' ');
    end;

    function P(x,y:real):real;
    begin
    P:=(x+y)/3;
    end;

    begin
    end.
    файл сохранить как u7.pas (по названию модуля)
    скомпилить -> получишь u7.tpu
     
  3. Гость

    Да, там не х2, у2, а просто х и у.
     
  4. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    типа F(x,y)=(x*2+y*2)/3?
     
Загрузка...

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