Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
В Turbo Pascal имеется две формы условного оператора: полная и сокращенная. Полный условный оператор имеет вид:
if A then S 1 else S 2;
где if (если), then (то), else (иначе) – служебные слова,
А –логическое выражение,
S 1, S 2– операторы.
Перед then и else нельзя ставить точку с запятой.
Если логическое выражение А принимает значение true, то выполняется оператор S 1, в противном случае выполняется оператор S 2. Пример:
if x > 0 then y:= ln(x) else y:=1;
Когда необходимо выполнить несколько операторов, а не один, как в определении, используется составной оператор.
Составной оператор – это последовательность операторов, взятая в операторные скобки begin … end, т. е. это конструкция вида
begin S 1;
S 2;
...;
Sk
end;
где S 1, S 2,…, 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.
Примечание. При нахождении минимального значения знак неравенства меняется на противоположный.
Дата публикования: 2014-11-28; Прочитано: 229 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!