Выполнить над числами указанное действие и вывести результат

Категория: Delphi/Pascal
2011-12-12 23:47:45

Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия N (целое число в диапазоне 1–4) и вещественные числа A и B (B не равно 0).

code: #pascal
Program Case5;
Var
x:Integer;
A,B:Real;
Begin
WriteLn('Введите А и В');
ReadLn(A,B);
WriteLn('Введите действие:');
ReadLn(x); 
Case x Of
1:WriteLn('сложение, результат: ',A + B);
2:WriteLn('вычитание, результат: ',A - B);
3:WriteLn('умножение, результат: ',A * B);
4:WriteLn('деление, результат: ',A / B);
End;
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, case, целое число, М.Э.Абрамян, вещественный тип