Задание:
Составить программу которая вводит с клавиатуры длину стороны квадрата вещественного типа и выводит на экран дисплея площадь квадрата. Процедура P1 вводит с клавиатуры длину стороны квадрата;
Решение:
Программа на 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}interfaceprocedure P2 (p: double); implementationprocedure P2; beginwriteln ('Площадь квадрата=',p: 0:5); end; end.
Знаете другой ответ?