Question

Написать консольный калькулятор на Паскале

Answer 1

Ответ:

uses crt;

var d:char;

a,b,s,c: real;

begin

 write('Введите первое число: ');

 readln(a);

 write('Введите второе число: ');

 readln(b);

 write('Какое действие хотите выполнить? + - * / ');

 readln(d);

 case d of

   '+': s := a + b;

   '*': s := a * b;

   '-': s := a - b;

   '/': if s = 0 then begin writeln('Ошибка!') end else begin s := a / b end;

 end;

 writeln(s);

end.

Объяснение:

Answer 2

Консольный калькулятор на языке Pascal можно написать с использованием стандартных процедур и функций Pascal. Вот пример простого калькулятора, который выполняет базовые арифметические операции (сложение, вычитание, умножение, деление):

pascalCopy code
program ConsoleCalculator;

var
  num1, num2, result: real;
  operator: char;

begin
  writeln('Простой консольный калькулятор на Pascal');
  writeln('---------------------------------------');
  writeln;
  
  write('Введите первое число: ');
  readln(num1);
  
  write('Введите оператор (+, -, *, /): ');
  readln(operator);
  
  write('Введите второе число: ');
  readln(num2);
  
  case operator of
    '+': result := num1 + num2;
    '-': result := num1 - num2;
    '*': result := num1 * num2;
    '/': 
      begin
        if num2 <> 0 then
          result := num1 / num2
        else
        begin
          writeln('Ошибка: нельзя делить на ноль.');
          readln;
          exit;
        end;
      end;
    else
      begin
        writeln('Ошибка: недопустимый оператор.');
        readln;
        exit;
      end;
  end;
  
  writeln('Результат: ', result:0:2);
  
  readln;
end.

Этот код предоставляет простой интерфейс для ввода двух чисел и оператора, а затем выполняет соответствующую операцию и выводит результат. Вы можете скомпилировать и запустить эту программу с помощью среды разработки Pascal, такой как Free Pascal.