составить программу которая вводит с клавиатуры длину стороны квадрата вещественного типа и выводит на экран дисплея площадь квадрата.

 

процедура 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;beginF1:=Sqr(p);end;

procedure P1(var p:double);beginreadln(p);p:=F1(p);end;

beginwrite('Введите длину стороны квадрата = ');P1(p);P2(p);end.

содержание output1.tpu:

{$N+}{-директива для подключения 8087 препоцессора}unit output1;{здесь объявляем модуль output1}

interface

procedure P2(p:double);

implementation

procedure P2;beginwriteln('Площадь квадрата = ',p:0:5);end;

end.