Question

Proszę o pomoc w dokończeniu programu:

Program kalkulator;
uses crt;
var a,b,wynik:real;
znak:char;
begin
clrscr;
Write('Podaj pierwsza liczbe: '); {Podajemy pierwsza liczbe}
Readln(a);
Write('Podaj druga liczbe: '); {Podajemy druga liczbe}
Readln(b);
Write('Podaj znak dzialania (+, -, *, /): '); {Podajemy znak dzialania}
Readln(znak);

readkey;
end.

Tak, aby wypisywał wynik. Z góry dzięki.

Answer 1

Program kalkulator_2;
uses crt;
var a,b,wynik:real;
znak:char;
begin
clrscr;
Write('Podaj pierwsza liczbe: '); {Podajemy pierwsza liczbe}
Readln(a);
Write('Podaj druga liczbe: '); {Podajemy druga liczbe}
Readln(b);
Write('Podaj znak dzialania (+, -, *, /): '); {Podajemy znak dzialania}
Readln(znak);

if (b = 0) and (znak = '/') then begin
   writeln ('Nie dziel przez 0!'); end

   else

   case znak of

    '+' : wynik:=a+b;
    '-' : wynik:=a-b;
    '*' : wynik:=a*b;
    '/' : wynik:=a/b;


    else

    end;

   if (znak='+') or (znak='-') or (znak='*') or (znak='/') then

    writeln('Wynik działania to: ', wynik:2:5);

 writeln('Wciśnij przycisk aby zakończyć');



readkey;
end.