Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 68 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

67
программе или другой подпрограмме. Различают две разновидности подпро-
грамм – процедуры и функции.
Процедура. Предназначена для выполнения какой-то законченной после-
довательности действий. Любая процедура начинается с заголовка. В отличие
от основной программы его наличие здесь обязательно. Он состоит из зарезер-
вированного слова PROCEDURE, за которым следует ее имя, и далее в круглых
скобках – список формальных параметров с указанием их типов:
PROCEDURE<имя процедуры> (<список формальных
параметров>);
За заголовком могут идти такие же разделы, что и в основной программе.
В отличие от нее процедура завершается не точкой, а точкой с запятой.
Пример 10.1. Составить программу для вычисления массы стальной заго-
товки в форме параллелепипеда при помощи процедуры.
PROGRAM MASSA_ZAG1;
USES CRT;
CONST G=0.0078;
VAR A, B, C, M: REAL;
I, N: INTEGER;
PROCEDURE MASSA(X, Y, Z: REAL; VAR MAS: REAL);
BEGIN
MAS:=G*X*Y*Z/1000;
END;
BEGIN
CLRSCR;
WRITE(‘ВВЕДИТЕ КОЛ-ВО РАСЧЕТОВ’);
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITELN(‘РАСЧЕТ -’, I);
WRITELN;
WRITE(‘ВВЕДИТЕ ДЛИНУ ЗАГОТОВКИ В ММ:’);
READLN(А);
WRITE(‘ВВЕДИТЕ ШИРИНУ ЗАГОТОВКИ В ММ:’);
READLN(В);
WRITE(‘ВВЕДИТЕ ВЫСОТУ ЗАГОТОВКИ В ММ:’);
READLN(С);
MASSA(A, B, C, M);
WRITELN(‘МАССА РАВНА’, M:3:3, ‘КГ’);
END;
READKEY
END.

Страницы