Напишите программу,которая анализирует человека по возрасту и относит к одной из пяти групп: дошкольник,школьник,студент,работник,пенсионер.возраст вводится с клавиатуры.используйте оператор case.

пишем и объяснем. элемент case - это оператор аналогичный if, только условия более "скомпованы". для того, чтобы не вводить 10 раз if используют case. разбираем.

 

uses crt;

 

var n: real; //нужен только переменная возраста

 

begin

writeln('введите возраст человека'): read(n); //считываем возраст с клавиатуры

case n of:                                                                                               // таким образом объявляется этот оператор

0..6: writeln('дошкольник');                                                                 // пишим всякие числовые значения

7..18: writeln('школьник');                                                                     // которые можно менять.

18-24: writeln('студент');                                                                       //  технология

25-60: writeln('работник');                                                                   // аналогичная оператору if

60-100: wtiteln('пенсионер');                                              

      end;                       // обязательно end в конце - конец условия опертора

end.

 

 

var

  n: byte;

begin

  write ('vozrast: ');

  readln(n);

  case n of

    1..6: writeln ('дошкольник');

    7..18: writeln ('школьник');

    19..24: writeln ('студент');

    25..55: writeln ('работник');

    56..110: writeln ('пенсионер');  

    else writeln ('не факт,что доживет');

  end;

  readln;

end.

//мне разрешили, не одна же юля составляла этот список) ньютон,  шиккард(первый калькулятор на десятичной системе счисления-16 век),  лейбинц(двоичная система счисления-17 век),  бэббидж(разработал проект универсальной вычислительной машины-19 век),  ада лавлейс(первый программист-19 век ),  алан тьюринг( теория ии-20 век ),  курт гедель(разработал основы теоретической информатики-20 век),цузе(создатель первого языка программирования высокого уровня-20 век)  винер(основоположник кибренетики-20 век),  джобс(пионер эры it-технологий-21 век),  никлаус вирт(главный разработчик языка паскаль-наши дни),  гейтс(пионер эры it-технологий-наши дни).