Составить программку - калькулятор, которая запрашивает тип арифметической операции:

Составить программку - калькулятор, которая запрашивает тип арифметической операции: 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 Пока!

Задать свой вопрос
1 ответ
Var a,b,c,x:real;
begin 
repeat 
writeln('Введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - дробление, 0 - приостановить программу'); 
readln(x); 
if x=1  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a+b;   
writeln('Ответ: ',c);   
end; 
if x=2  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a-b;   
writeln('Ответ: ',c);   
end; 
if x=3  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a*b;   
writeln('Ответ: ',c);   
end; 
if x=4  then   begin   
writeln('Введите 2 числа');   
readln(a,b);   
c:=a/b;   
writeln('Ответ: ',c);   
end; 
if x=0 then writeln('Пока!'); 
until x=0;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт