Алгоритмы и программы. Афанасьева Т. В - 164 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

164
Maxim := Max(Massiv,K);
writeln(' максимальный элемент массива : ',Maxim:3);
End.
9.3.1. Параметры-значения
Параметры-значения передаются основной программой в
подпрограмму через стек в виде копий и собственный параметр прог-
раммы подпрограммой изменится не может.
Если параметров-значений одного типа несколько, их можно
объединить в одну группу, перечислив их имена через запятую, а затем
уже указать общий
тип. Отдельные группы параметров отделяются друг от
друга точкой с запятой. Например:
function Mult(X, Y: Integer; A: REAL):REAL;
В качестве фактического параметра на месте параметра-значения при
вызове подпрограммы может выступать любое выражение совместимого
для присваивания типа, не содержащее файловую компоненту. В примере
9.3 формальные параметры являются параметрами-значениями.
Параметры-значения используются для передачи исходных
данных в подпрограмму.
Пример 9.4. Программа вычисления корней уравнения.
program nat3;
uses crt;
var a,b,c:integer;
x1,x2:real;
procedure srt( a1,b1,c1:integer );{вычисление корней уравнения}
{a1,b1,c1–формальные параметры–значения}
var d:real;
{d локальная переменная}
begin
d:=b1*b1–4*a1*c1;
if d<0.0 then begin
writeln('нет корней.');
end
else
if d=0.0 then begin
writeln('корни равны.');
x1:=–b1/(2*a1);

Страницы