Основные теоретические сведения.

Часто определенный фрагмент программы может выполняться только при соблюдении некоторых условий. Структура выбора в языке Pascal реализуется с помощью условного оператора, который позволяет выполнить одно из двух действий в зависимости от значения логического выражения.

Полная форма условного оператора выглядит следующим образом:

if <логическое выражение> then <оператор_1> else <оператор_2> ;

Блок-схема полной формы условного оператора имеет вид:

+ _

Если значение логического выражения истинно (true), то выполняется оператор_1 (оператор_2 пропускается). Если значение логического выражения ложно (false), то выполняется оператор_2 (оператор_1 пропускается). Далее в любом случае выполняется оператор, стоящий непосредственно за оператором if (оператор_3).

Логическое выражение может иметь и сложную структуру, например, когда для выполнения фрагмента программы необходимо соблюдение нескольких условий. Эти условия могут быть объединены любой логической операцией (or, and).

Условный оператор может не содержать конструкцию else, такая форма оператора называется сокращенной:

if <логическое выражение> then <оператор_1> ;

Блок-схема условного оператора в сокращенной форме:

+

	оператор_3

Если значение логического выражения истинно (true), то выполняется оператор_1, если ложно (false) - выполняется оператор, следующий за оператором if (оператор_3).

Условный оператор может иметь вложенную структуру, когда после then или else используется также условный оператор. При этом справедливо следующее правило: else всегда относится к ближайшему слева оператору if.

Если после then или else требуется выполнить не один, а несколько простых операторов, то они объединяются операторными скобками (begin ...end) в один составной (сложный) оператор:

begin

оператор1 ;

оператор2 ;

оператор3 ;

end ;

Пример. Найти наибольше из трёх чисел a,b,c.

Пример: Составить программу, вычисляющую корни квадратного уравнения ax² + bx + c = 0

var

a, b, c, d, x1, x2, x: real;

begin

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

readln(a, b, c) ; /* ввод значения коэффициентов а, b и c */

d:=sqr(b)-4*a*c; /* вычисление дискриминанта */

/* проверка знака дискриминанта */

if d>0 then /* вычисление значений корней x1 и x2 */

begin

x1 := (-b + sqrt(d)) /( 2* a) ;

x2 := (-b + sqrt(d)) /( 2 *a) ;

/* печать результатов */

writeln(‘ Корни : x1 =’,x1:5:2,’ x2 =’, x2:5:2) ;

end

else if d=0 then begin

x:=-b/(2*a);

writeln(‘Корень: x=’, x:5:2);

end

else writeln(‘ Действительные корни отсутствуют.’) ;

end.