TURBO PASCAL:Учебное пособие. Терёхин В.В. - 45 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

45
После выполнения одного из операторов следую-
щие за ним условия не проверяются. В структуре опера-
тора case допускается использование альтернативы else,
если во всех списках значений и диапазонов не встретилось
данное значение исходного выражения, то программа будет
выполняться по ветке else.
Примеры:
1)
case A of
1, 2, 3: n:= 75;
4 . . 8: n:= 134;
5 . . 10, 17 . . 23: n:= 247 ;
end;
2)
case chr(M) of
'A', 'Б', 'Е', 'Р’: begin writeln(M); Inc(X); end;
'Л’ , 'K', ‘T’, 'И' : begin
writeln(M-32) ;
Inc(Y);
end;
'Ь
’
, 'Ю
’
, 'Э' : begin writeln(M-27) ; Inc (Z) ; end;
end;
3)
case V of
1, 2, 7: Write ('Да') ;
4, 6, 8: Write ('Может быть’);
else Write ( 'Нет' ) ;
end;
Задача. С клавиатуры вводится число 0 ≤ п ≤ 5. Вывести
на экран числительное, соответствующее этому числу.
program p8 ;
var 
       После выполнения одного из операторов следую-
щие за ним условия не проверяются. В структуре опера-
тора case допускается использование альтернативы else,
если во всех списках значений и диапазонов не встретилось
данное значение исходного выражения, то программа будет
выполняться по ветке else.
       Примеры:
        1)
case A of
       1, 2, 3: n:= 75;
       4 . . 8: n:= 134;
       5 . . 10, 17 . . 23: n:= 247 ;
end;

        2)
case chr(M) of
   'A', 'Б', 'Е', 'Р’: begin writeln(M); Inc(X); end;
   'Л’ , 'K', ‘T’, 'И' : begin
                          writeln(M-32) ;
                          Inc(Y);
                       end;
   'Ь’, 'Ю’, 'Э' : begin writeln(M-27) ; Inc (Z) ; end;
end;

       3)
case V of
   1, 2, 7: Write ('Да') ;
   4, 6, 8: Write ('Может быть’);
else        Write ( 'Нет' ) ;
end;

       Задача. С клавиатуры вводится число 0 ≤ п ≤ 5. Вывести
на экран числительное, соответствующее этому числу.
program p8 ;
var
                                                           45

Страницы