Помогите решить задачу на ЯП Паскаль!

[Jenee]

Написать программу "Калькулятор"(на ЯП Pascal), используя ПРОЦЕДУРЫ: 1) ввод А и Б; 2) выбор математического оператора; 3) вывод результата; ФУНКЦИИ: 1) сложения 2) вычитания; 3) деления; 4) умножения

[Аватар]

А помощь в чем должна заключаться - дать готовый код? Показывай что не получается, с кодом

[newerow1989]

var a,b:real;
    z:char;
begin
   Write('a    = '); Readln(a);
   Write('b    = '); Readln(b);
   Write('znak = '); Readln(z);
   Case z of
   '+': a:=a+b;
   '-': a:=a-b;
   '*': a:=a*b;
   '/': a:=a/b;
   else
      Writeln('no znak!');
      Readln;
      Exit;
   end;
   Writeln(a:8:5);
   Readln;
end.

[Aleksandr H.]

newerow1989, 99% что нет


3 процедуры, 4 функции согласно ТЗ. На трояка, думаю, потянет

program calc;
uses crt;
var a,b:integer;
      k:string;
procedure readdata;
begin
  writeln('-------------');
  write('A= ');readln(a);
  write('B= ');readln(b);
  writeln('-------------');
end;

function add(a,b:real) : real;
begin
  add:=a+b;
end;
function sub(a,b:real) : real;
begin
  sub:=a-b;
end;
function mult(a,b:real) : real;
begin
  mult:=a*b;
end;
function dvd(a,b:real) : real;
begin
  dvd:=a/b;
end;

procedure out(rez:real);
begin
  writeln('===================');
  writeln(rez:5:3);
  writeln('===================');
  writeln('Press [ENTER]');
  readln;
end;

procedure selection(k:string);
begin
        case k[1] of
           '1':begin writeln('operation + ');readdata;out(add(a,b));end;
           '2':begin writeln('operation - ');readdata;out(sub(a,b));end;
           '3':begin writeln('operation * ');readdata;out(mult(a,b));end;
           '4':begin writeln('operation / ');readdata;out(dvd(a,b));end;
           else
           writeln('SOMETHING WRONG, TRY AGAIN');
        end;
end;

begin
  repeat
    clrscr;
    writeln('     ACTION');
    writeln('----------------');

    writeln('1: addition');writeln('2: substraction');
    writeln('3: multiplication');writeln('4: division');
    writeln('N:Exit');
    write('<make your choice> ');
    readln(k);
    k := k[1];
    if upcase(k[1]) <> 'N' then begin selection(k[1]);k:='0'; end;
  until upcase(k[1])='N';
end.