программа вычислений

[arhangel2540]

нужна программа на pascal которая из любых двух заданных чисел и номера операции

("+" -сложение,"-" -вычитание, "*" -умножение, "/" -деление, )получать на экране результат.

[Anny_Apple]

program carculyator;
uses crt;
var
 a, b, s : real;
 c : integer;
begin
 clrscr;
 writeln('vvedite pervoe chislo a');
 readln(a);
 writeln('vvedite vtoroe chislo b');
 readln(b);
 writeln('vvedite chislo:  1 - "+",  2 - "-",  3 - "*",  4 - "/"');
 readln(c);
  case c of
   1: s := a + b;
   2: s := a - b;
   3: s := a * b;
   4: if b = 0 then writeln('na 0 delit nelzya') else s := a / b;
  end;
  if b <> 0 then writeln('poluchenni rezultat = ',s:0:2);
  readkey;
end.

Держи)

[maxwallaby]

Anny_Apple, ну и почему в конце делать проверку: b <> 0 ???
Если умножать числа 2 и 0, то результат не выведет однако! Лучше будет присвоить нулевое значение переменной S и вывести строку о некорректных данных, чем не вывести вообще ничего!
Думаю концовку лучше сделать так:

...
...
   4: if b=0 then begin writeln('Na 0 delit nelzya'); s:=0; end else s:=a/b;
  end;
  writeln('Poluchenni rezultat = ',s:0:2);
...

Извините что придрался...

[arhangel2540]

спасибо за помощь.

[Anny_Apple]

...
...
   4: if b=0 then begin writeln('Na 0 delit nelzya'); s:=0; end else s:=a/b;
  end;
  writeln('Poluchenni rezultat = ',s:0:2);
...

Извините что придрался... [/QUOTE]

Соглашусь с Вами, правильное замечание.