Здравствуйте помогите написать программу через оператора выбора 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.
Код к задаче: «По номеру дня недели вывести в качестве результата количество уроков в вашем классе в день»
Листинг программы
uses crt; var w:byte; begin clrscr; repeat write(‘Ââåäèòå Г*îìåð Г¤Г*Гї Г*åäåëè 1-7 w=’); readln(w); until w in [1..7]; case w of 1,3:write(7); 2,4:write(6); 5,6:write(5); 7:write(0); end; readln end.
Источник: studassistent.ru
Уроки C++ / #3 урок — Целые числа
Написать программу которая по номеру дня недели выдает в качестве
Привет Лёва Середнячок
написать программу, которая по номеру дня недели(натуральному числу от 1 до 7) выдает в качестве результата количество уроков в Вашем классе в этот день. (7 урок каждый день)
5 (2 оценки)
Leonid009 8 лет назад
Светило науки — 50 ответов — 0 раз оказано помощи
Получится так:
Program p1;
Var a:integer;
Begin
Write(‘Введите день недели: ‘);
Readln(a);
case a of
1..5: Writeln(‘В этот день у вас 7 уроков’);
6,7: Writeln(‘В выходной у вас нету уроков!’);
else Writeln(‘Вы неверно ввели день!’);
End;
End.
Источник: vashurok.com
Написать программу которая по номеру дня недели выдаст название дня и количество уроков в вашем классе .В Паскале .Ps уроков у нас 6 каждый день .кроме среды. в среду 7 уроков
Пронумеруем дни недели числами от 0 до 6 (0-Вс, 1-Пн, .. 6-Сб).
var
dow:0..6;
begin
Write(Введите номер дня недели (0-Вс, 6-сб): );
Read(dow);
case dow of
0:Writeln(Воскресенье, выходной);
1:Writeln(Понедельник, 6 уроков);
2:Writeln(Вторник, 6 уроков);
3:Writeln(Среда, 7 уроков);
4:Writeln(Четверг, 6 уроков);
5:Writeln(Пятница, 6 уроков);
6:Writeln(Суббота, 6 уроков);
else Writeln(Введено неверное значение)
end
end.
Тестовое решение:
Введите номер дня недели (0-Вс, 6-сб): 5
Пятница, 6 уроков
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Оператор множества case Pascal. Задачи
Источник: reshaika.com