br/>最此ੴ洀ĤᜀДалее закрепление материала, практическая работа на компьютере.
Слайд: Следующий пример решают сами:
Составить программу, исходя из условия: определить номер квартала по введённому номеру месяца.
РЕШЕНИЕ:
if
then
else ;
if
then ;
– выражение любого порядкового типа.
… список констант N – постоянная величина того же типа, что и селектор.
… оператор N – любой простой или составной оператор.
program pr3;
var
n: integer;
begin
write (Введите число);
readln (n);
if n1 then
write (Один)
else if n2 then
write (Два)
else if n3 then
write (Три)
else if n4 then
write (Четыре)
else if n5 then
write (Пять);
end.
program z3;
var
n: integer;
begin
Write (Введите число );
Read (n);
case n of
1: Write (Один);
2: Write (Два);
3: Write (Три);
4: Write (Четыре);
5: Write (Пять);
else
Write (Введено другое число. );
end;
end.
program z4;
var
k: integer;
begin
Write (Введите номер месяца );
Read (k);
case k of
1, 2, 3: Write (Первый квартал. );
4, 5, 6: Write (Второй квартал. );
7. . 9: Write (Третий квартал. );
10. . 12: Write (Четвёртый квартал. );
else
Write (Некорректный ввод. );
end;
end.
Страницы: << < 1 | 2