Паскаль. Программа калькулятор. Пример работы оператора выбора case

Программа калькулятор. Пример работы оператора выбора case

Паскаль. Программа калькулятор. Пример работы оператора выбора 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.

Программу на языке «Кумир» вы можете посмотреть здесь

Foxford
Добавить комментарий

Введите правильный ответ: * Лимит времени истёк. Пожалуйста, перезагрузите CAPTCHA.

:) :D :( :o 8O :? 8) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen:

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.