Операторы ветвления

Оператор условия If <условие> then <оператор - да> else <оператор - нет>; предназначен для реализации простого ветвления алгоритма.

Пример: Проверим квадратное уравнение на наличие корней. для чего вычислим дискриминант и проверим его знак.

program diskriminant;

var a, b, c, d: real;

begin

writeln(‘Введите коэффициенты квадратного уравнения А, В и С’);

readln(a, b, c);

d:=sqr(b)-4*a*c;

if d>0 then writeln(‘Вещественные корни существуют’) elsewriteln(‘Нет вещественных корней’);

end.

Оператор выбора Case <селектор> of

<значение1>:<оператор1>;

<значение2>:<оператор2>;

………………………………;

<значениеN>:<операторN>

Else <оператор - нет>;

Оператор Case используется при множественном разветвлении алгоритма, например, если необходимо по числовому значению месяца указать время года (1, 2, 12 – зима; 3, 4, 5 – весна и т.д.).

program sezon;

var n: 1..12; {перечисляемый тип, здесь допускает только значения от 1 до 12 }

begin

writeln(‘Введите числовое значение месяца’);

readln(n);

case n of

1, 2, 12: writeln(‘зима’);

3..5: writeln(‘весна’);

6..8: writeln(‘лето’)

else writeln(‘осень’);

end.

Циклы

Циклы (операторы повтора) используются в программе при необходимости неоднократного повторения какого-либо оператора или группы операторов. В Pascal различают три вида циклов: цикл с параметром For, цикл с предусловием While, цикл с постусловием Repeat.

Оператор повтора For применяется, когда заранее известно число повторений. Переменная, хранящая количество повторений называется параметром цикла. Существует две структуры данного оператора.

Счет по возрастанию: For <параметр цикла>:=<целочисленное выражение1 > to < целочисленное выражение2> do <оператор цикла>;

Счет по убыванию: For <параметр цикла>:=<целочисленное выражение2 > downto < целочисленное выражение1> do <оператор цикла>;

Пример: Вывести на экран результат умножения 8 на числа от 4 до 15.

program ymnoj_8;

var i: byte; {i- параметр цикла}

r: integer;

begin

writeln (‘Таблица умножения для 8’);

for i:=4 to 15 do begin {при выполнении в цикле более одного оператора ставятся операторные скобки Begin end;}

r:=8*I;

write(r:5); {вывод результата в строку с промежутком в 5 позиций}

end;

end.

Формат цикла с предусловием While <условие> do <тело цикла>; Проверка условия осуществляется перед циклом, цикл выполняется, если условие принимает значение True (истина).

Пример: Посчитать сумму 10 произвольно введенных чисел.

program Summa;

const limit=10; {константа ограничения ввода чисел}

var i: integer;

sum, ch: real;

begin

i:=0; {счетчик чисел}

sum:=0; {переменная накапливающая сумму чисел}

while i< limit do

begin

i:=i+1;

write(‘введите ’,i,’-е число: ’);

readln(ch);

sum:=sum+ch;

end; {конец цикла}

writeln(‘Сумма равна ’,sum:5:2); {переменную sum вещественного типа выводим в 5 позиций с 2мя знаками в дробной части}

end.

Цикл с постусловием Repeat

<тело цикла>

Until <условие>;

Первоначально условие принимает значение False (ложь). Цикл выполняется до тех пор, пока условие не станет True (истина).

Пример: Подсчитать количество чисел, введенных до первого отрицательного.

program Kolichestvo;

var ch: real;

n: byte;

begin

writeln (‘Подсчитать количество чисел, введенных до первого отрицательного’);

writeln; {оформление подсказки}

Repeat

write (‘Введите число ’);

readln(ch);

n:=n+1;

until ch<0;

writeln(‘Количество не отрицательных чисел равно ‘,n);

end.