• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

lelik

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

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

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

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
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!