Практическая работа по теме Оператор case

  Пример 1. Вводиться число от 1 до 4, определяющее пору года. Дать название этой поры года (1 - зима, 2 - весна, 3 - лето, 4 - осень).

var

n:byte;

Begin

writeln('Введите номер поры года');

readln(n);

case n of

1: writeln('зима');

2: writeln('весна');

3: writeln('лето');

4: writeln('осень');

else

writeln('неправильно ввели номер поры года');

end;

End.

Можешь проверить!        Пример 1

VI. Тестирование программы:

1. Проверьте работу программы для следующих значений

Ввод n	Вывод
5	неправильно ввели номер поры года
2	весна
1	зима

2. Поэкспериментируйте с программой вводя различные значения.

  Пример 2. Составим программу "КАЛЬКУЛЯТОР", которая после ввода двух чисел и одного из знаков +, -, *, / произведёт вычисления, а результат выдаст на экран.

Этапы выполнения задания.

I.Определение исходных данных: переменные a,b,sim.

II. Определение результатов: переменная s.

III. Алгоритм решения задачи.

1. Ввод исходных данных

2. Проверяем чему равно sim и соответственно выполняем нужное действие.

IV. Описание переменных:

Переменные a,b,s типа real, sim типа char .

V. Программа:

var

a,b,s:real;

sim:char;

Begin

writeln('Введите два числа');

readln(a,b);

writeln('Введите знак операции');

readln(sim);

case sim of

'+': s:=a+b;

'-': s:=a-b;

'*': s:=a*b;

'/': s:=a/b;

end;

writeln ('результат   ',a,sim,b,' = ',s);

End.

Можешь проверить!       Пример 2

VI. Тестирование программы:

1. Проверьте работу программы для следующих значений

Ввод a,b,sim	Вывод
Введите два числа 3 4 Введите знак операции *	результат 3*4 = 12
Введите два числа 3 4 Введите знак операции +	результат 3+4 = 7
Введите два числа 12 6 Введите знак операции -	результат 12-6 = 6

2. Поэкспериментируйте с программой вводя различные значения.

Замечание. В данной программе отсутствует часть else и поэтому, если ввести вместо рассматриваемых арифметических знаков, ввести любой символ, то программа будет работать, но будет работать неверно. Устраните этот недочет.