READLN(X);IF X>=10 THEN IF X>10 THEN Y:=2*X ELSE Y:=3*X WRITELN(Y); В этом примере оператор Y:=3*X будет выполняться только в том случае, когда X=10, т.к. он является частью вложенного оператора IF. Если же требуется выполнить этот оператор для случая, когда X<10, т.е. сделать оператор Y:=3*X частью внешнего оператора IF, то следует построить программу по-другому:
Y:=0; WRITELN(‘введите X=’); READLN(X); IF X>=10 THEN BEGIN IF X>10 THEN Y:=2*X END ELSE Y:=3*X WRITELN(Y); Оператор выбора CASE Оператор выбора позволяет выбрать одно из нескольких возможных продолжений программы. Его структура:
CASE <ключ выбора> OF <список выбора>; ELSE <оператор>; END где <ключ выбора>; - выражение порядкового типа (обычно целого или символьного); <список выбора>; - одна или более конструкций следующего вида: <константа выбора>: <оператор>;, где <константа выбора>; - константа того же типа, что и выражение <ключ выбора>;. Вначале вычисляется значение выражения <ключ выбора>;. Затем в последовательности операторов <список выбора>; отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор CASE заканчивает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, то выполняется оператор, стоящий после слова ELSE: VAR S:CHAR; BEGIN WRITE(‘введите b, c или d: ’);
|
