Как сделать калькулятор в паскале

Составить программу PASCAL — калькулятор, которая запрашивает тип арифметической операции: 1-сложение, 2-вычитание, 3 — умножение, 4 — деление, а также два числа и производит над ними соответствующую арифметическую операцию. Ввод чисел заканчивается нажатием клавиши 0. Протокол работы программы: Выберите тип арифметической операции: 1-сложение, 2-вычитание, 3 — умножение, 4 — деление, 0 — выход. 1 Введите два числа: 15 16 Ответ: 15+16=31 Выберите тип арифметической операции: 1-сложение, 2-вычитание, 3 — умножение, 4 — деление, 0 — выход. 3 Введите два числа: 5 8 Ответ: 5*8=40 Выберите тип арифметической операции: 1-сложение, 2-вычитание, 3 — умножение, 4 — деление, 0 — выход. 0 Пока!

Var A,B:real;
C:integer;
Begin
WriteLn(‘1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, 0 — выход’);
ReadLn(C);
While C <> 0 do
Begin
Write(‘Введите два числа: ‘);
ReadLn(A,B);
Write(‘Ответ: ‘);
Case C of
1:WriteLn(A+B);
2:WriteLn(A-B);
3:WriteLn(A*B);
4:WriteLn(A/B);
End;
WriteLn(‘1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, 0 — выход’);
ReadLn(C);
End;
WriteLn(‘Пока!’);
End.

Вывод результат, точно как в условии:

Var A,B:real;
C:integer;
Begin
WriteLn(‘1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, 0 — выход’);
ReadLn(C);
While C <> 0 do
Begin
Write(‘Введите два числа: ‘);
ReadLn(A,B);
Write(‘Ответ: ‘);
Case C of
1:
if B < 0 then WriteLn(A,B,’=’,A+B)
else WriteLn(A,’+’,B,’=’,A+B);
2:
if B < 0 then WriteLn(A,’+’,-B,’=’,A-B)
else WriteLn(A,B,’=’,A-B);
3:
if B < 0 then WriteLn(A,’*(‘,B,’)=’,A*B)
else WriteLn(A,’*’,B,’=’,A*B);
4:
if B < 0 then WriteLn(A,’:(‘,B,’)=’,A/B)
else WriteLn(A,’:’,B,’=’,A/B);
End;
WriteLn(‘1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, 0 — выход’);
ReadLn(C);
End;
WriteLn(‘Пока!’);
End.

1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, 0 — выход
4
Введите два числа: 4
-2.5
Ответ: 4:(-2.5)=-1.6
1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, 0 — выход
1
Введите два числа: -3
-6
Ответ: -3-6=-9
1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление, 0 — выход
0
Пока!

Информационные технологии. 11 класс (Базовый уровень)

Создание любого оконного приложения осуществляется, как правило, в три этапа:

1. Создание интерфейса приложения, т. е. средств взаимодействия пользователя с программой.
2. Разработка сценария работы будущего приложения. На этом этапе определяют, какая информация будет выводиться на экран, какие события будут происходить при использовании различных компонентов, как приложение должно завершить работу, какие результаты и в каком виде сохранить и т. д.
3. Разработка алгоритма решения поставленной задачи .

Большинство приложений в операционной системе Windows выглядят и ведут себя сходным образом. Компания Microsoft предложила рекомендации для разработки программного обеспечения, направленные на то, чтобы пользователь не тратил время на освоение нюансов пользовательского интерфейса новой программы, а сразу начал продуктивно ее использовать. Эти рекомендации основаны на психофизиологических особенностях человека и существенно облегчат жизнь будущим пользователям вашей программы.

Приведем некоторые рекомендации по разработке графического интерфейса оконных приложений (пример 5.1).

Программа «Элементарный калькулятор» (Pascal)

Варианты решений задачки №1 (программа «Элементарный калькулятор») на языке Pascal. Первый вариант самый простой, с использованием переменных целого типа и условного оператора if . then . else . («если» … «то» … «иначе» …):

Текст программы сохраняем в файл с именем, например, 01.pas . Работаем в Linux (например Linux Mint) и используем Free Pascal, поэтому скомпилировать файл можно так:

а запустить готовую программу (при условии, что компиляция прошла без ошибок и исполняемый файл был создан) так:

Теперь попробуем записать эту же программу более лаконично: оформим компактнее ввод данных и используем оператор выбора case вместо конструкции if . then . else . :

Еще один вариант — украсим оформление вывода результатов и добавим проверку «деления на ноль» (как уже сделал один из учеников):