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').
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
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.