Написать программу, которая запрашивает исходные данные и проводит над ними выбранное пользователем действие. Выбор действия осуществляется с помощью меню — Pascal(Паскаль)

меню действий
1. утро
2. день
3. вечер
4. ночь
5. выход
времена дня и ночи следуют друг за другом в порядке, указанном в меню. Программа должна выводить время дня и ночи, следующее за выбранным. Результат выводить после каждого действия.

program zad_4_new;
uses crt;
var c:integer;
begin
clrscr;
repeat
writeln('1 ytro');
writeln('2 Den');
writeln('3 vecher');
writeln('4 noch');
writeln('5 vyxod');
write('vash vybor-');
readln(c);
 case c of
 1: begin
    clrscr;
    writeln('ytro dlitcya c 6-12 chasov dnya');
    end;
 2: begin
    clrscr;
    writeln('den dlitcya c 12-18 chasov vechera');
    end;
 3: begin
    clrscr;
    writeln('vecher dlitcya c 18-24 chasov nochi');
    end;
 4: begin
    clrscr;
    writeln('noch dlitcya c 24-6 chasov ytra');
    end;
 5: begin
    writeln('Zavershenie raboty');
    readln;
    end;
  end;
until c=5;
END.

Похожие записи/страницы:

Leave a Comment

+ 27 = 28