Условный оператор

В Turbo Pascal имеется две формы условного оператора: полная и сокращенная. Полный условный оператор имеет вид:

if A then S1 else S2;

где if (если), then (то), else (иначе) – служебные слова,

А –логическое выражение,

S1, S2 – операторы.

Перед then и else нельзя ставить точку с запятой.

Если логическое выражение А принимает значение true, то выполняется оператор S1, в противном случае выполняется оператор S2.Пример:

if x > 0 then y:= ln(x) else y:=1;

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

Составной оператор – это последовательность операторов, взятая в операторные скобки begin … end, т. е. это конструкция вида

begin S1;

S2;

... ;

Sk

end;

где S1, S2,…, Sk – операторы.

Пример:    if abs(x) <= abs(y) then

begin z := x + y;

write(z:5:2)

end

else

begin z:= sqr(x) – sqr(y);

write(z:5:2)

end;

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

if A then S;

где А – логическое выражение,

S – оператор.

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

Пример:    if у < 1 then z := ехр(у);

Пример:    if (a > b) and (x > 0) then

begin с := а – b;

у := х + 2

end;

Часто в программах требуется найти максимальное или минимальное значения среди нескольких переменных.

В Turbo Pascal нет стандартных функций для их нахождения. Определяют максимум или минимум, используя условный оператор.

Пример 1. Найти максимальное из значений двух переменных, т. Е. х = мах(a, b).

If а > b then х := a else х := b;

Пример 2. Найти максимальное из значений трех переменных, то есть х = мах(а, b, с).

If a > b then x := a else x := b;

if c > x then x := c.

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

Пример выполнения задания 2

Даны три целых числа A, B и C. Определить значения переменных X Y, Z. Вывести их на экран монитора.

Пусть Dl и D2 – заштрихованные части плоскости (см. рис.1) и пусть U определяется как функция X и Y. Вывести на экран значение функции U. Вывод результатов оформить пояснительным текстом.

Если то

иначе

Вычислить значение функции U по правилу:

Записи     (x, y)  Dl,   (x, y)  D2

означают, что точка с координатами (х, у) принадлежит области D1 или D2.

Рис. 1

Program lab2;

uses crt;

var u, x, y, z:real;

a, b, c:integer;

begin clrscr;

writeln (‘Введите a, b, c);

readln (a, b, c);

if a + b > с then begin x:= a + b;

y:= sqrt(a*a + b*b);

z:= ln(b + c)

end

else

begin x:=a – с;

y:= a*a – c*c;

z:=ln(a*c)

end;

writeln (‘x=’, x:5:2,’ y=’, y:5:2,’ z=’, z:5:2)

if (y <=2*x/3 + 2) and (y >= x*x) then и:=x*x

else

if (sqrt(sqr(x) + sqr(y)) >= 2)

and (sqrt(sqr(x) + sqr(y))<=3) and (y < 0)

then u:=x + y

else u := 0;

writeln(‘u=’, u:7:2);

readkey

end.

Тема 3 Использование циклических структур. Операторы цикла с предусловием и с постусловием

При разработке алгоритмов большинства задач возникает необходимость повторения какого-либо оператора или последовательности операторов. Для организации таких повторов (циклов) при записи алгоритмов на Turbo Pascal используются три разновидности операторов цикла:

• с параметром,

• с предусловием,

• с постусловием.