02.06.2011, 23:34 | #1 (permalink) |
Новичок
Регистрация: 27.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Оператор выбора CASE.
Написать программу, которая по номеру дня недели ( целому числу от 1 до 7 ) выдаст в качестве результата количество уроков в вашем классе в этот день. Вот у меня написано, но не через это оператор.Помогите пожалуйста uses crt; const n=7; a:array[1..n] of byte=(7,6,7,6,5,5,0); var w:byte; begin clrscr; repeat writeln('Введите номер дня недели 1-7 w='); readln(w); until w in [1..7]; writeln('Количество уроков=',a[w]); readln end. |
02.06.2011, 23:34 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме есть ранее созданные темы, в которых можно поискать решение Case 3 Turbo Pascal. Оператор CASE Условный оператор Решить задачу, используя оператор repeat. Green case |
03.06.2011, 10:01 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пожалуйста:
Код:
uses crt; var w,a:byte; begin repeat clrscr; write('Введите номер дня недели (1-7): '); readln(w); until w in [1..7]; Case w of 1: a:=7; 2: a:=6; 3: a:=7; 4: a:=6; 5: a:=5; 6: a:=5; 7: a:=0; end; {Case} writeln('Количество уроков = ',a); readln end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|