Сборник заданий для практических занятий по информатике. Крупенников О.Г - 88 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

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

Страницы