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

UptoLike

ВУЗ: 

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

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

Рубрика: 

89
FUNCTION <имя функции> (<список параметров>):<тип функции >;
2. Результатом выполнения функции является одно значение, а у про-
цедуры одно или несколько.
3. Результат выполнения функции передается в основную программу
как значение имени этой функции, а результат выполнения процедуры как
значение ее параметров.
4. В теле функции хотя бы раз имени функции должно быть присвое-
но значение.
Пример 10.3. Усовершенствовать программу из примера 10.1, ис-
пользовав для вычисления массы заготовки функцию.
PROGRAM MASSA_ZAG1;
USES CRT;
VAR A, B, C, G, M: REAL;
I, N: INTEGER;
FUNCTION MASSA(X, Y, Z, W: REAL): REAL;
BEGIN
MASSA:=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(С);

Страницы