Цикл For (цикл со счётчиком - ред. )

Общий вид:

FOR I:=N1 TO N2 DO ST

I - переменная цикла, N1- начальное значение цикла, N2- конечное значение цикла, ST- оператор (простой или составной). I,N1,N2 должны быть одного и того же типа, но не real. I принимает последовательные значения данного типа от N1 до N2. Если N1 и N2 - целые числа, а I - целая переменная, то шаг всегда равен единице.

Пример:

VAR S: REAL; N: INTEGER; BEGIN S:=0; FOR I:=1 TO 50 DO S:=S+1/I; WRITELN (' S=',S); END.

Цикл по убывающим значениям параметра I от N2 до N1 имеет вид:

For I:=N2 downto N1 do ST;

Пример:

For I:=20 downto 1 do A:=A+1;

I изменяется от 20 до 1 с шагом -1.

PROCEDURE: ПРОЦЕДУРА - это часть программы, в которой выполняется специфическое действие, обычно основанное на наборе параметров.

Синтаксис:

Procedure идентификатор; или Procedure идентификатор (параметры);

Замечания:

В заголовке процедуры определяются ее идентификатор и набор формальных параметров (если таковые есть).

Процедура вызывается с помощью процедурного оператора.

Заголовок процедуры сопровождается:

¾ разделом описаний, в котором объявляются локальные объекты

¾ операторами, находящимися между Begin и End, которые определяют, что должно быть выполнено при вызове процедуры.

Вы можете использовать директиву Interrupt, чтобы объявить процедуру обработки прерываний. Вместо частей объявлений и операторов, в объявлении процедуры могут присутствовать директивы Forward, external или InLine.

Procedure WrStr (X, Y: Integer; S: String);
Var SaveX, SaveY: Integer;
Begin
SaveX:=WhereX;
SaveY:=WhereY;
GotoXY(X, Y);
Write(S);
GotoXY(SaveX, SaveY);
End;

FUNCTION: ФУНКЦИЯ - это часть программы, которая вычисляет и возвращает значение.

¾ Заголовок функции определяет идентификатор функции, формальные параметры (если есть), и тип результата функции. Допустимы порядковые, вещественные, строковые и указательные типы результата.

Функция вызывается при оценке выражения, использующего данную функцию.

Заголовок функции сопровождается:

¾ Разделом описаний, в котором объявляются локальные объекты

¾ Операторной частью, в которой находятся операторы, которые будут выполнены при вызове функции Операторная часть должна содержать по крайней мере один оператор, который назначает присваивает значение идентификатору функции. Результатом функции будет последнее присвоенное значение.

Вместо частей объявлений и операторной, объявление функции может содержать директивы Forward, External, Far или InLine.

Function UpCaseStr(S: String): String;
Var I: Integer;
Begin
For I:=1 To Length(S) Do

If (S[I]>='a') And (S[I]<='Z') Then Dec(S[I], 32);

UpCaseStr:=S;

End;