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

@Dron16 · Регистрация: 03.11.2009

Author24 — интернет-сервис помощи студентам

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

В общем сама программа получилось .

Pascal

uses
  crt;
var
  i,a,b: integer;
  c: real;
begin
  clrscr;
  write('Vvedite chislo A: ');
  readln(a);
  write('Vvedite chislo B: ');
  readln(b);
  write('Vvedite nomer deystviya (1-4): ');
  readln(i);
  if b<>0 then
  begin
    case i of
      1: c:=a+b;
      2: c:=a-b;
      3: c:=a*b;
      4: c:=a/b;
    end;
    writeln('Rezultat = ',c:5:2);
  end;
  readkey;
end.

Но учитель сказал что эту программу нужно сделать с перечислением типа , помогите пойжалуйста как это сделать . За рание всем бальшое спасиба !.

@Dron16 · 05.11.2009, 19:00 **[ТС]**

помогите пожайлуста !

@Dron16 3 / 3 / 0 Регистрация: 03.11.2009 Сообщений: 208
	05.11.2009, 19:00 [ТС]	2
	помогите пожайлуста ! 0