Алгоритмы и программы. Афанасьева Т. В - 74 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

74
var
dayno:integer;
Begin
write('введите число 1–7');
read(dayno);
case dayno of
1:writeln('monday');
2:writeln('tuesday');
3:writeln('wednesday');
4:writeln('thursday');
5:writeln('friday');
6:writeln('saturday');
7:writeln('sunday');
end;{of case}
end.
Когда dayno равно 1, выбирается только оператор с меткой 1:. Когда
dayno равно 2, выбирается оператор с меткой 2: и т. д.
Тип селектора и метки в операторе CASE
не может быть строковым или вещественным.
Пример 3.9. Найти остаток от деления значения целого выражения
С=K*(A+B) на 4 и вывести сообщение о величине остатка. Если остаток
равен 0, то значение переменной С оставить без изменения, если 1 или 3 –
уменьшить на величину остатка, если 2 – увеличить на величину остатка .
Новое значение С вывести на печать.
program ostatok;
const
del=4;
var
a,b,c,k:integer;
ost:integer;
begin
writeln('Найти остаток от деления значения целого выражения');
writeln('С=K*(A+B) на 4 и вывести сообщение о величине остатка.');
writeln('Если остаток равен 0 , то значение переменной С');
writeln('оставить
без изменения , если 1 или 3 – уменьшить на');
writeln('величину остатка , если 2 – увеличить на величину');
writeln('остатка . Новое значение С вывести на печать.');
write('Введите А=');
read(a);
write('Введите В=');

Страницы