Всем привет это моя первая статья в которой я хочу показать вам как написать калькулятор из трёх чисел на языке программирования Pascal (Паскаль).
Писать калькулятор я буду в приложении PascalABC.net.
Давайте начнём писать калькулятор.
Для начала давайте напишем название программы, пишется оно довольно просто: program <название вашей программы>; Лично я назвал программу calcus.
Давайте продолжим. Если вы хотите использовать командную строку то просто ниже название программы напишите Uses crt; Затем мы вводим переменные которые я назвал так:
n1 - первое число
n2 - второе число
n3 - третье число
o1 - первый знак операции
o2 - второй знак операции
otvet1 - первый ответ
otvet2 - второй ответ
Вводим переменные с помощью оператора var, выглядит это примерно так:
var n1, n2, n3, o1, o2, otvet1, otvet2: integer
integer - означает что мы будем использовать однозначные и многозначные числа.
Пора начинать программу с помощью оператора begin. Наша программа выглядит сейчас вот так:
program calcus;
Uses crt;
var n1, n2, n3, o1, o2: integer;
begin
Давайте начнем программу с ввода данных. Думаю тут всё просто и объяснять ничего не придётся, сейчас программа должна выглядеть вот так:
program calcus;
Uses crt;
var
n1, n2, n3, otvet1, otvet2: integer;
o1, o2: string;
begin
clrscr;
write ('Введите первое число: ');
readln (n1);
write ('Введите второе число: ');
readln (n2);
write ('Введите третье число: ');
readln (n3);
write ('Введите первый знак операции (+, -, *, /): ');
readln (o1);
write ('Введите второй знак операции (+, -, *, /): ');
readln (o2);
Пора приступать к самой сложной части в этой программе, это операции в калькуляторе. Так как я писал простейший калькулятор, я использовал if then else. Сейчас покажу пример.
if o1 = '+' then otvet1:= n1 + n2;
И пишем вот так ещё три раза только вместо плюса ставим знаки '-', '*', '/'
if o1 = '-' then otvet1:= n1 - n2;
if o1 = '*' then otvet1:=n1 * n2;
if o1 = '/' then otvet1:= n1 div n2;
Делаем точно также, но со вторым знаком операции:
if o2 = '+' then otvet2:= otvet1 + n3;
if o2 = '-' then otvet2:= otvet1 - n3;
if o2 = '*' then otvet2:= otvet1 * n3;
if o2 = '/' then otvet2:= otvet1 div n3;
Вот и всё! Программа написана, осталось её только закончить чтобы программа выводила ответ, делается это довольно просто.
writeln ('Результат: ', otvet2);
end.
Всё! Чтобы моя статья не была такой большой я не буду выкладывать весь код так как он написан, но не вместе. Вот скриншотымоей программы.
Надеюсь вам понравилась эта статья и вы научились писать калькулятор:)
Подписывайтесь на канал, это была моя первая статья, всем спасибо, До свидания!