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

[lelik]

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

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

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

 

[Senset]

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

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

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

насчет "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;

Чтобы создать модуль:
ключевые слова:

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

 

[Guest]

насчет "a" не понял что за x2 и y2 в теле функции

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

 

[Senset]

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

типа F(x,y)=(x*2+y*2)/3?