Реферат: Средства создания программных продуктов

Пример: PROCEDURE INPUT(VAR P1:Integer; P2,P3:Byte);

Здесь: P1 – параметр-переменная ,P2,P3 – параметры-значения, INPUT – имя процедуры.

Перед параметром-переменной всегда ставится VAR. Это значит, что при выполнении процедуры параметр P1 может изменяться в отличие от параметров P2,P3, поглощаемых процедурой.

Рассмотрим пример задачи: сложение двух целых чисел.

1 вариант решения задачи

Program Summa;

Uses Crt;

Var A,B,S: LongInt;

Procedure SSS(Var SUM:LongInt; A,B:LongInt);

Begin

SUM:=A+B;

End;

Begin {Основной блок программы}

ClrScr;

Write(‘Введите числа а и b=’);

ReadLn(A,B);

{Вызов процедуры SSS для поиска суммы}

SSS(S,A,B); {В глобальную переменную S считывается значение локальной переменной Sum вызываемой процедуры, значения А и В «поглощаются» процедурой для суммирования}

WriteLn(‘Сумма А+В=’,S);

ReadKey;

End.

2 вариант решения задачи

Program Summa;

Uses Crt;

Var A,B,S: LongInt;

Function SSS(A,B:LongInt):LongInt;

Begin

SSS:=A+B;

End;