Операторы языка

операторные скобки - зарезервированные слова begin . . . end.

Составные операторы - важный инструмент Турбо Паскаля, дающий возможность писать программы по современной технологии структурного программирования (без операторов перехода GOTO).

end, представляет собой один составной оператор. Поскольку зарезервированное слово end

является закрывающей операторной скобкой, оно одновременно указывает и конец предыдущего оператора, поэтому ставить перед ним символ «;» необязательно, и далее во всех примерах мы не будем этого делать.
Наличие точки с запятой перед end в предыдущих примерах означало, что между последним оператором и операторной скобкой end располагается пустой оператор. Пустой оператор не содержит никаких действий, просто в программу добавляется лишняя точка с запятой. В основном пустой оператор используется для передачи управления в конец составного оператора.

результатов проверки выполнить то или иное действие. Таким образом, условный

оператор - это средство ветвления вычислительного процесса.

Структура условного оператора имеет следующий вид:
IF <условие> THEN <оператор1> ELSE <оператор2>,
где IF, THEN, ELSE - зарезервированные слова (если, то, иначе); <условие> - произвольное выражение логического типа; <оператор1>, <оператор2> - любые операторы языка Турбо Паскаль.

. Если результат есть TRUE (истина), то выполняется , а

<оператор2> пропускается; если результат есть FALSE (ложь), наоборот, <оператор1> пропускается, а выполняется <оператор2>.
Например:
var
х, у, max: Integer;
begin
.......
if x > max then
у := max else
y := x;

При выполнении этого фрагмента переменная Y получит значение переменной X, если только это значение не превышает МАХ, в противном случае Y станет равно МАХ.

значении TRUE условного выражения выполняется , в противном случае этот

оператор пропускается:
var
х, у, max: Integer; 
begin
.......
if x > max then
max := x; 
Y := x;
В этом примере переменная Y всегда будет иметь значение переменной X,а в МАХ запоминается максимальное значение X.

0...15, преобразует его к шестнадцатеричному и выводит на экран полученный

результат.
Program Hex;
var
n : Integer; {Вводимое число} 
ch : Char; {Результат} 
begin
Write ( ',n = ' ) ;
ReadLn(n); { Вводим число } 
{Проверяем число на принадлежность к диапазону 0...15}
if (n >= 0) and (n <= 15) then
begin {Да, принадлежит диапазону} 
if n < 10 then
ch := chr(ord('0') + n)
else
ch := chr(ord('A') + n- 10);
WriteLn('n = ',ch) 
end
else {He принадлежит диапазону}
WriteLn('Ошибка') 
end.
В шестнадцатеричной системе счисления используется 16 цифр в каждом разряде: цифры 0...9 обозначают первые 10 возможных значений разряда, буквы A...F - остальные шесть.

которых можно запрограммировать повторяющиеся фрагменты программ.

Счетный оператор цикла FOR

имеет такую структуру: 
FOR <пар_цик> := <нач_знач> ТО <кон_знач> DO <оператор>.

Здесь FOR, TO, DO - зарезервированные слова (для, до, выполнить);
<пар_цик> - параметр цикла - переменная типа INTEGER (точнее, любого порядкового типа);
<нач_знач> - начальное значение - выражение того же типа;
 <кон_знач> - конечное значение - выражение того же типа; 
<оператор> - произвольный оператор Турбо Паскаля.

присваивание : = .

После этого циклически повторяется:

проверка

условия <пар_цик> <= <кон_знач>; если условие не выполнено, оператор FOR завершает свою работу;
выполнение оператора <оператор>;
наращивание переменной <пар_цик> на единицу.

с клавиатуры произвольного целого числа N и вычисление суммы всех

целых чисел от 1 до N

Program Summ_of_Integer;
{Программа вводит целое положительное число N и подсчитывает сумму всех целых чисел от 1 до N}
var
i, n, s : Integer;
begin
Write('N = ');
ReadLn(n); . {Вводим N}
s := 0; {Начальное значение суммы}
for i : = 1 to n do {Цикл подсчета суммы} 
s : = s + i;
writeln('Сумма = ',s) {Выводим результат}
end.

перед выполнением оператора : если условие не выполняется в самом

начале работы оператора FOR, исполняемый оператор не будет выполнен ни разу. Другое обстоятельство - шаг наращивания параметра цикла строго постоянен и равен (+1).

Замена зарезервированного слова ТО на DOWNTO означает, что шаг

наращивания параметра цикла равен (-1), а управляющее условие приобретает вид <пар_цик> = <кон_знач>.
Предыдущий пример можно модифицировать так, чтобы сделать его пригодным для подсчета любых сумм - положительных и отрицательных:
s := 0;
if n >= 0 then
for i := 1 to n do
s := s + i else
for i := -1 downto n do s : = s + i ;

цикла, но не связаны с изменением счетчика цикла.
Оператор цикла

WHILE с предпроверкой условия:
WHILE <условие> DO <оператор>.
Здесь WHILE, DO - зарезервированные слова (пока [выполняется условие], делать);
<условие> - выражение логического типа;
 <оператор> - произвольный оператор Турбо Паскаля.
Если выражение <условие> имеет значение TRUE, то выполняется <оператор>, после чего вычисление выражения <условие> и его проверка повторяются. Если <условие> имеет значение FALSE , оператор WHILE прекращает свою работу.

.
Здесь REPEAT, UNTIL- зарезервированные слова (повторять до тех пор,

пока не будет выполнено условие);
<тело_цикла> - произвольная последовательность операторов Турбо Паскаля; 
<условие> - выражение логического типа.

Операторы <тело_цикла> выполняются хотя бы один раз, после чего вычисляется выражение <условие>: если его значение есть FALSE, операторы <тело_цикла> повторяются, в противном случае оператор REPEAT. . . UNTIL завершает свою работу.

end, поэтому перед UNTIL ставить точку с запятой необязательно.
Для

гибкого управления циклическими операторами FOR, WHILE и REPEAT в состав Турбо Паскаля включены две процедуры:
BREAK - реализует немедленный выход из цикла; действие процедуры заключается в передаче управления     оператору, стоящему сразу за концом циклического оператора;
CONTINUE - обеспечивает досрочное завершение очередного прохода цикла; эквивалент передачи управления в самый конец циклического оператора.
Введение в язык этих процедур практически исключает необходимость использования операторов безусловного перехода GOTO