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

UptoLike

ВУЗ: 

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

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

Рубрика: 

69
PROGRAM MASSA_ZAG1;
USES CRT;
CONST G=0.0078;
VAR A, B, C, M: REAL;
I, N: INTEGER;
FUNCTION MASSA(X, Y, Z: REAL): REAL;
BEGIN
MASSA:=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(С);
M:=MASSA(A, B, C);
WRITELN(‘МАССА РАВНА’, M:3:3, ‘КГ’);
END;
READKEY
END.
Для вызова функции из основной программы или другой подпрограммы
следует в выражении, где необходимо
использовать значение функции, указать
ее имя со списком фактических параметров, которые должны совпадать по ко-
личеству и типам с формальными параметрами функции: M:=MASSA(A, B, C);
10.2 Параметры процедур и функций
Все параметры, которые использует подпрограмма, можно разбить на две
группы: локальные параметры, объявленные внутри подпрограммы и доступ-
ные только ей самой, и глобальные – объявленные в основной программе и дос-

Страницы