Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 15.

Пример использования оператора case ... of

program prim2;
  var N: integer;
begin
{Вводим целое число N.}
  Writeln('n='); readln(n);
  Case n of
{Если N<=0, то выводим текст "<=0".}
    -32768..0: writeln('<=0');
{Если N находится в пределах от 2 до 9, то выводим текст "2-9".}
    2..9: writeln('2-9 ');
{Если N=1 или N=10, то выводим текст "1,10".}
    1,10 : writeln('1,10');
  else
{Иначе выводим текст ">10".}
    writeln('>10')
{Окончание ветвления.}
  end;
{Окончание программы.}
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100