Question

Napisz program w pascalu realizujący zadania prostego kalkulatora (dodawanie, odejmowanie, mnożenie, dzielenie). Program ma wyświetlić na ekranie dostępne opcje. Program po wyświetleniu wyniku powinien prosić o kolejne liczby i kolejne działanie (tak długo, aż użytkownik wpisze 'x').

Answer 1

 

uses crt;
var wynik: integer;
z: char;
a,b: byte;
procedure menu;
begin
clrscr;
writeln('1 - dodawanie ');
writeln('2 - odejmowanie');
writeln('3 - mnozenie');
writeln('4 - dzielenie');
writeln('x - koniec');
end;

begin

repeat
menu;
z:=readkey;
case z of
'1': begin
clrscr;
write('Podaj a: ');
readln(a);
write('Podaj b: ');
readln(b);
clrscr;
wynik:=a+b;
writeln(a,' + ',b,' = ',wynik);
writeln('Nasicnij dowolny klawisz..');
readln;
end;

'2': begin
clrscr;
write('Podaj a: ');
readln(a);
write('Podaj b: ');
readln(b);
clrscr;
wynik:=a-b;
writeln(a,' - ',b,' = ',wynik);
writeln('Nasicnij dowolny klawisz..');
readln;
end;

'3': begin
clrscr;
write('Podaj a: ');
readln(a);
write('Podaj b: ');
readln(b);
clrscr;
wynik:=a * b;
writeln(a,' * ',b,' = ',wynik);
writeln('Nasicnij dowolny klawisz..');
readln;
end;


'4': begin
clrscr;
write('Podaj a: ');
readln(a);
write('Podaj b: ');
readln(b);
clrscr;
wynik:=a div b;
writeln(a,' : ',b,' = ',wynik);
writeln('Nasicnij dowolny klawisz..');
readln;
end;
end;

until z= 'x';

end.

 

Liczę na najlepszą odpowiedź. Pozdro.