Паскаль. Программа калькулятор. Пример работы оператора выбора case
На данном уроке рассмотрим оператор выбора на языке программирования Паскаль.
Program calc;
var
a,b,m:integer;
begin
writeln('Введите первое число:');
read (a);
writeln('Введите второе число:');
read (b);
writeln('Выберите команду:');
writeln('Если нужно сложить, нажмите "1"');
writeln('Если нужно умножить, нажмите "2"');
writeln('Если нужно разделить, нажмите "3"');
writeln('Если нужно вычесть, нажмите "4"');
writeln('Возвратиться назад, нажмите "5"');
read (m);
case m of
1: write('Ответ =',a+b);
2: write('Ответ =',a*b);
3: write('Ответ =',a/b);
4: write('Ответ =',a-b);
end;
//Дополнительное условие
if m = 5 then
writeln('Выберите команду:');
writeln('Если нужно сложить, нажмите "1"');
writeln('Если нужно умножить, нажмите "2"');
writeln('Если нужно разделить, нажмите "3"');
writeln('Если нужно вычесть, нажмите "4"');
read (m);
case m of
1: write('Ответ =',a+b);
2: write('Ответ =',a*b);
3: write('Ответ =',a/b);
4: write('Ответ =',a-b);
end;
end.