Меню сайта

Задача №30

Расписание уроков в определенный день.

uses crt-

var day:integer-

label11,22,33,44,55-

begin-

clrscr-

writeln(‘введите номер дня недели’)-

readln(day)-

case day of

1:goto 11-

2:goto 22-

3:goto 33-

4:goto 44-

5:goto 55-

end-

writeln(‘А у нас пятидневка’)-

halt-

11: writeln (‘1.математика’)-

— — — writeln(‘2.математика’)-

— — — writeln(‘3.химия’)-

— — — writeln(‘4.физика’)-

— — — writeln(‘5.биолог’)-

— — — halt-

22: writeln (‘1.математика’)-

— — — writeln (‘2.литер.’)-

— — — writeln (‘3.ин.яз.’)-

— — — writeln (‘4.физика’)-

— — — writeln (‘5.физ-ра’)-

— — — halt-

33: writeln (‘1.литер.’)-

— — — writeln (‘2.литер.’)-

— — — writeln (‘3.ин.яз.’)-

— — — writeln (‘4.химия’)-

— — — halt-

44: writeln (‘1.инф’)-

— — — writeln (‘2.математика’)-

— — — writeln (‘3.биолог’)-

— — -writeln (‘4.географ.’)-

— — — writeln (‘5.географ’)-

— — — halt-

55: writeln (‘1.математика’)-

— — — writeln (‘2.литер.’)-

— — — writeln (‘3.истор’)-

— — — writeln (‘4.истор’)-

— — — writeln (‘5.литер.’)-

— — — halt-

end.

Категория: Разветвляющиеся программы | Дата: 03.01.13

Меню раздела
Блок