Найти в Дзене
informatics_for_everyone

Программа "Калькулятор"

program Kalkulyator; var a,b,d: вставить тип данных; e: вставить тип данных; begin Указать оператор вывода данных ('Здравствуйте! Вы используете калькулятор.'); Указать оператор вывода данных ('Вам необходимо ввести два числа: '); Указать оператор вывода данных ('a = '); Указать оператор ввода данных (a); Указать оператор вывода данных ('b = '); Указать оператор ввода данных (b); Указать оператор вывода данных ('Отлично! Теперь выберите операцию: '); Указать оператор вывода данных ('Под номером 1 сложение, под номером 2 вычитание, под номером 3 умножение, под номером 4 деление.'); Указать оператор вывода данных ('Ваша операция под номером: '); Указать оператор ввода данных (e); Указать оператор ветвления (e=1) тогда d:=a+b; Указать оператор ветвления (e=2) тогда d:=a-b; Указать оператор ветвления (e=3) тогда d:=a*b; Указать оператор ветвления (e=4) тогда d:=a/b; Указать оператор вывода данных ('Результат операции = ', d); end.

program Kalkulyator;

var

a,b,d: вставить тип данных;

e: вставить тип данных;

begin

Указать оператор вывода данных ('Здравствуйте! Вы используете калькулятор.');

Указать оператор вывода данных ('Вам необходимо ввести два числа: ');

Указать оператор вывода данных ('a = ');

Указать оператор ввода данных (a);

Указать оператор вывода данных ('b = ');

Указать оператор ввода данных (b);

Указать оператор вывода данных ('Отлично! Теперь выберите операцию: ');

Указать оператор вывода данных ('Под номером 1 сложение, под номером 2 вычитание, под номером 3 умножение, под номером 4 деление.');

Указать оператор вывода данных ('Ваша операция под номером: ');

Указать оператор ввода данных (e);

Указать оператор ветвления (e=1) тогда d:=a+b;

Указать оператор ветвления (e=2) тогда d:=a-b;

Указать оператор ветвления (e=3) тогда d:=a*b;

Указать оператор ветвления (e=4) тогда d:=a/b;

Указать оператор вывода данных ('Результат операции = ', d);

end.