THEN BEGIN

END;

BEGIN

READLN (N);

BEGIN

VAR

End.

Readln;

End;

Writeln ;

Begin

End;

Then Begin

End

Then Begin

Begin

I:=2;

End;

BEGIN

Readln(M,N);

Begin

Var

Program Obmen;

End.

Если встречается число, оканчивающееся на 3, происходит вывод сообщения об этом, флаг – переменная FL – становится равным TRUE и программа заканчивает свою работу, т.к. цикл прерывается. Если же такое число не встречается, происходит нормальное завершение цикла, переменная FL остается равной FALSE и выводится сообщение о том, что таких чисел нет.

В следующем примере требуется поменять местами максимальный и минимальный элементы, найденные среди элементов четных строк матрицы А(M,N).

A: array[1..30,1..30] of integer;

I,J : integer;

IMAX,JMAX,IMIN,JMIN : integer;

T,M,N: integer;

Writeln ('ВВЕДИТЕ ЧИСЛО СТРОК И ЧИСЛО СТОЛБЦОВ МАТРИЦЫ ');

For I:=1 to M do

For J:=1 to N do

Writeln (' A [' , i, ', ' , j, ' ] = ');

Readln( A[I,J]);

IMAX:=1; JMAX:=1; {координаты максимального элемента}

IMIN :=1; JMIN:=1; {координаты минимального элемента}

While (I<=M) do

For J:=1 to N do

If A[ IMAX, JMAX ]< A[I,J]

IMAX:=I;

JMAX:=J;

еlse If A[IMIN,, JMIN] > A[I,J]

IMIN :=I;

JMIN:=J;

I:=I+2;

T:= A[IMAX, JMAX];

A[IMAX, JMAX]:= A[IMIN, JMIN];

A[IMIN, JMIN] :=T;

For I:=1 to M do

For J:=1 to N do

Write (' A [' , i, ', ' , j, ' ] = ', A[ I,J ] :6);

Здесь используется цикл WHILE для индексации строк, т.к. нас интересуют только четные строки, следовательно, шаг для строк должен быть равен 2. В цикле FOR этого сделать нельзя.

Запись на языке Паскаль	Выполняемые функции
ABS(X)	\| X \|
SQR(X)	X²
SQRT(X)	Квадрат числа Х
SIN(X)	SIN X
COS(X)	COS X
EXP(X)	e^x
LN(X)	Ln x
LOG(X)	Lg x
ARCTAN(X)	Arctg x
TRUNC(X)	Выделение целой части числа Х
ROUND(X)	Округление числа Х
ODD(X)	Определение нечетности числа Х -
PRED(X)	Нахождение предыдущего элемента
SUCC(X)	Нахождение последующего элемента
ORD(X)	Определение порядкового номера символа Х в наборе символов
CHR(X)	Определение символа из набора символов по порядковому номеру

Основные алгоритмы

{ выбор максимума и минимума }

PROGRAM MASSIV2; {max \ min }

A: ARRAY [1..15] OF INTEGER;

N,H,I,Imin,Imax,LG,RG,MAX,MIN: INTEGER;

WRITELN ('Vvedite chislo el-tov <=15');

FOR I:=1 TO N DO

WRITELN ('vvedite el-t ',I);

READLN (A[I]);

MAX:=A[1];

Imax:=1;

FOR I:=1 TO N DO

IF A[I]>max

max:=A[I];

Imax:=I;