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

  • Автор темы lelik
  • Дата начала
L

lelik

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

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

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

Senset

Well-known member
11.09.2006
136
0
#2
Создать модуль 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