Модуль пользователя, который по введенным значениям трех размеров паралеллипипеда вычисляет его боковую поверхность и объем

1. Цель работы:

1.2. Научиться создавать собственные модули и использовать их в Pascal программах.

2. Задание на лабораторную работу:

2.1. Cоздать модуль пользователя, который по введенным значениям трех размеров паралеллипипеда вычисляет его боковую поверхность и объем.

2.2. Вычислить боковую поверхность в подпрограмме процедуры, а  объем – в подпрограмме функции.

2.3. Модуль, при обращении к нему, должен выводить на дисплей сведения о разработчике и о выполняемых модулем функциях.

2.4. Откомпелировать модуль, и использовать его в программе, которая запрашивает ввод значения высоты и ширины параллелепипеда, и вычисляет объем и площадь его поверхности.

2.5. Откомпилировать программу, и поместить ее в каталог группы.

3. Распечатка модуля:

{Лабораторная работа № 42

Выполнил ст.гр. }

Unit Alexia;

Interface

Procedure Bok(x,y,z:real;

Var Q:real);

Function Ob(q,w,r:real):real;

Implementation

Procedure Bok(x,y,z:real;

Var Q:real);

Begin

Q:=2*(x*y+x*z+y*z)

End;

Function Ob(q,w,r:real):real;

Begin

Ob:=q*w*r

End;

BEGIN

ClrScr;

GotoXY(10,15);

Writeln(' Модуль разработал ст.гр.   ’);                                                  

Writeln(' Модуль вычисляет площадь бокавой     поверхности и объем паралеллипипеда.’);

END.

4. Распечатка программы:

{Лабораторная работа № 42

Выполнил ст.гр. }

Program laba;

Uses Alexia;

Var u,j,s,d,e:real;f:text;

Begin

Assign(f,’E:\users\petrenko\\Brez.txt’);

Rewrite(f);

Writeln('‚ Введите длину : ’);

Readln(u);

Writeln('‚ Введите ширину : ’);

Readln(j);

Writeln('‚ Введите высоту : ’);

Readln(s);

Writeln;

Bok(u,j,s,d);

e:=Ob(u,j,s);

Writeln(f,' Площадь боковой поверхности равна :       ‘,d:6:2,’ кв.ед.' );

Writeln(f,' Объем равен : ‘ e:6:2,’ куб.ед.’);      

Close(f);

End.

5. Распечатка результата:

Площадь боковой поверхности равна : 38.00 кв.ед.

Объем равен : 20.00 куб.ед.

6. Вывод: Практически научился создавать модули пользователя и использовать их в Pascal программах.