Простой калькулятор

DP.02 · Основы

Задача

Ввести два числа и знак операции, вывести результат сложения, вычитания, умножения или деления.

Алгоритм

Оператор case по первому символу строки операции выбирает действие. Деление защищено проверкой b<>0.

Исходный код

⇩ Скачать 02-kalkulyator.dpr

program Kalkulyator;
{$mode delphi}{$apptype console}
uses SysUtils;
var a, b: Double; op: string;
begin
  Write('a = '); ReadLn(a);
  Write('Операция (+ - * /): '); ReadLn(op);
  Write('b = '); ReadLn(b);
  if op = '' then op := '+';
  case op[1] of
    '+': WriteLn('= ', a + b:0:4);
    '-': WriteLn('= ', a - b:0:4);
    '*': WriteLn('= ', a * b:0:4);
    '/': if b <> 0 then WriteLn('= ', a / b:0:4)
         else WriteLn('Ошибка: деление на ноль');
  else
    WriteLn('Неизвестная операция');
  end;
  ReadLn;
end.

Пояснения

Вещественные числа выводятся форматом :0:4 — четыре знака после запятой. Ввод дробных — через точку.