ВУЗ:
Составители:
Рубрика:
96
S1:=S1+P[i]∗A[i]∗Tм;
S2:=S2+P[i]
∗C[i];
end;
end;
Begin {основная программа}
for i:=1 to 5 do
readln(P[i]);
for i:=1 to 5 do
readln(A[i],C[i]);
readln(Tм,B);
Sum2(P,A,C,Tм,S1,S2); {обращение к процедуре}
Cp:=(S1+S2)
∗4.19/(0.00146∗Tм+1);
Q:=Cp
∗B∗(Tм–25)/100;
writeln (’Cp=’,Cp:10:4,’ Q=’,Q:10:4);
End.
4.5.2. Функции
Подпрограмма функция предназначена для вычисления какого–
либо одного параметра, значение которого присваивается имени
функции.
Общая структура записи функции имеет вид:
Function <имя> (формальные параметры): <тип функции>;
<Раздел описания локальных переменных, меток, констант>
Begin
<тело функции>;
end;
Формальные параметры – это параметры, необходимые для
выполнения данной функции, т.е. – исходные данные.
Тип функции может быть только скалярным: real, integer, char,
boolean, string.
Особенности функций следующие:
−
функция имеет только один результат выполнения (однако может
иметь несколько входных параметров);
−
результат выполнения функции должен быть обозначен именем
функции, т.е. внутри подпрограммы–функции должна иметь
место конструкция следующего вида:
Имя функции := значение (результат вычислений).
Страницы
- « первая
- ‹ предыдущая
- …
- 94
- 95
- 96
- 97
- 98
- …
- следующая ›
- последняя »