ДОПОЛНИТЕЛЬНАЯ ТЕОРИЯ

Типы данных

Ввод информации READLN ();

Вывод информации WRITELN ();

Очистка экрана CLRSCR;

 

if условие then
оператор1
else
оператор2

 

Case n of

1: writeln(‘понедельник ’);

2: writeln(‘вторник ’);

3: writeln(‘среда ’);

4: writeln(‘четверг ’);

5: writeln(‘пятница ’);

6: writeln(‘суббота ’);

7: writeln(‘воскресенье’);

else writeln(‘дня недели с номером’, n,’нет’);  

end;

 

for счетчик:=значение to конечное_значение do 
 тело_цикла;

for счетчик:=значение downto конечное_значение do 
 тело_цикла;

 

i := 1;
 while i <= n do begin
 write ('(*) ');
 i := i + 1
 end;

 

i := 1;
 repeat
 write ('(*) ');
 i := i + 1
 until i > n;

 

Одномерный массив

var ch: array [1..11] of char;
 h: char;
 i: integer;
 
begin
 for i := 1 to 11 do read (ch[i]);

 

Двумерный массив

var
 matrix: array[1..3,1..5] of integer;
 i, j: integer;
 
begin
 writeln ('Введите 15 чисел: ');
 
 for i := 1 to 3 do
 for j := 1 to 5 do
 read (matrix[i,j]);
 
 for i := 1 to 3 do begin
 for j := 1 to 5 do
 write (matrix[i,j], ' ');
 writeln
 end;
 
readln
end.

 

Procedure <имя процедуры> (формальные параметры);

 var

begin

блок операторов

end;

 

function <имя функции> (формальные параметры): тип функции;

var

begin

...

<имя функции>:= <значение>

end;