Написать программу калькулятор:задаются два числа ,символ арифметической операции(+,-,*,/),вывести результат в виде (5+6=11)
10-11 класс
|
uses crt;
var a,b,s:real; z:char;
begin
write('Vvedite A = ');
readln(a);
write(' + - / * : ' );
readln(z);
write('Vvedite B = ');
readln(b);
case z of
'+': begin s:=a+b; writeln(a,' + ',b,' = ',s); end;
'-': begin s:=a-b; writeln(a,' - ',b,' = ',s); end;
'*': begin s:=a*b; writeln(a,' * ',b,' = ',s); end;
'/': begin s:=a/b; writeln(a,' / ',b,' = ',s); end;
else
writeln('error: incorrect operation symbol!!!');
end;
readln;
end.
Program calculator;
var a,b:real; x:char;
begin
write('Введите два числа');
readln(a,b);
write('Выберите действие');
readln(x);
If x='+' then writeln(a, x, b,'=',a+b);
If x='-' then writeln(a, x, b,'=',a-b);
If x='*' then writeln(a, x, b,'=',a*b);
If x='/' then writeln(a, x, b,'=',a/b);
end.
Другие вопросы из категории
Читайте также
символу арифметическая операция над Х и У
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
1) С клавиатуры вводится 2 числа - целое и вещественное. Программа выводит их сумму на экран.
2) Написать процедуру, которая умножает число типа int на число типа float на число типа double и выводит результат на экран
3) Написать процедуру, которая будет выводить любой текст, являющийся ее аргументом
4) С клавиатуры вводится 5 символов поочередно, программа выводит на экран акроним к слову которая образует эти 5 символов
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.