Иллюстрированный самоучитель по Tirbo Pascal


Оператор выбора - часть 2


var

operation : Char; {Знак операции}

х, у, z : Real; {Операнды и результат}

stop : Boolean; {Признак ошибочной операции

и останова}

begin

stop := false;

repeat 

WriteLn; {Пустая строка-разделитель}

Write('x,y= ' ) ;

ReadLn(x,y); 

Write('операция: ') ;

ReadLn(operation); 

case operation of

WriteLn('результат=',z)

until stop 

end.

Любому из операторов списка выбора может предшествовать не одна, а несколько констант выбора, разделенных запятыми. Например, следующая программа при вводе одного из символов: у или Y выведет на экран слово «Да», а при вводе n или N - слово «Нет»:

var

ch : Char ;

begin

ReadLn (ch) ;

case ch of

'n','N' : WriteLn ('Нет' );

'y','Y' : WriteLn ('Да')

end

end.

 




- Начало -  - Назад -  - Вперед -



Книжный магазин