Оператор выбора CASE.

Pchelka · 02.06.2011, 23:34

Здравствуйте помогите написать программу через оператора выбора 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.

Vladimir_S · 03.06.2011, 10:01

Цитата:

Сообщение от Pchelka

Помогите пожалуйста

Пожалуйста:

Код:

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.

02.06.2011, 23:34	#1 (permalink)
Pchelka Новичок Регистрация: 27.05.2011 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Оператор выбора CASE. Здравствуйте помогите написать программу через оператора выбора 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

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070