Вопрос пользователя:
составить программу которая вводит с клавиатуры длину стороны квадрата вещественного типа и выводит на экран дисплея площадь квадрата.
процедура P1 вводит с клавиатуры длину стороны квадрата;
функция F1 вычисляет площадь квадрата;
Процедура P2 выводит на экран результат.
процедура P1 и функции F1 – встроенный в программу
процедура P2 – записывается как отдельный модуль подключаемый к основной программе.
в паскале
Илюха отвечает:
программа на Turbo pascal 7.1:
содержание progs.pas:
{$N+}{-директива для подключения 8087 препоцессора}
uses output1; {здесь подключаем модуль output1}
var p:double;
function F1(p:double):double;
begin
F1:=Sqr(p);
end;
procedure P1(var p:double);
begin
readln(p);
p:=F1(p);
end;
begin
write(‘Введите длину стороны квадрата = ‘);
P1(p);
P2(p);
end.
содержание output1.tpu:
{$N+}{-директива для подключения 8087 препоцессора}
unit output1;{здесь объявляем модуль output1}
interface
procedure P2(p:double);
implementation
procedure P2;
begin
writeln(‘Площадь квадрата = ‘,p:0:5);
end;
end.