Question

Напишите программу калькулятор в pascalabs.

Answer 1

Program Maz;  var  a,b:integer;   rez:real;    p:char;begin  write('Введите а = ');readln(a);write('Введите символ: ');  readln(p); write('Введите b = '); readln(b);  case p of   '+': rez:=a+b;  '-': rez:=a-b;  '*': rez:=a*b;   '/': rez:=a/b; end; writeln(a,p,b,'= ',rez); end.

Answer 2

Конечно! Вот простая программа калькулятора на языке Pascal:

program Calculator;
uses crt;

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

begin
  clrscr;
  writeln('Калькулятор');

// Ввод первого числа
  write('Введите первое число: ');
  readln(num1);

// Ввод оператора
  write('Введите оператор (+, -, *, /): ');
  readln(operator);

// Ввод второго числа
  write('Введите второе число: ');
  readln(num2);

// Выполнение операции
  case operator of
    '+': result := num1 + num2;
    '-': result := num1 - num2;
    '*': result := num1 * num2;
    '/': result := num1 / num2;
  else
    writeln('Неверный оператор');
    readln;
    exit;
  end;

// Вывод результата
  writeln('Результат: ', result:0:2);
  readln;
end.

Эта программа проста и позволяет пользователю вводить два числа и выбирать оператор (+, -, *, /) для выполнения математической операции. Результат выводится на экран. Обратите внимание, что программа использует модуль `crt` для очистки экрана и поддержки функций управления курсором.