Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » case (case)
case
блок схема для оператора case
Program p4;var k : integer; s : string;begin  Write('Введите строку:');  Readln(s);  k := Pos('a', s);  case k of     0: WriteLn('буквы "a" нет в предложении');    1: WriteLn('буква "a" первая (нет предществующихсимволов)');    2: WriteLn('символ перед "a": '+Copy(s,k-1,1) );  end;  Readlnend.
1 | Автор: irsen22 | 2013-05-13, 16:05   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » case (case)
Страница 1 из 11
Поиск: