program wizzEr;
uses crt;
var
x,y,w,znak:real;
procedure dodawanie;
begin
clrscr;
textcolor (black);
textbackground (red);
writeln ('Podaj pierwsza liczbe');
readln (x);
writeln ('Podaj druga liczbe');
readln (y);
w:=x+y;
writeln ('Wynik dodawania wynosi ' ,w:0:2);
writeln ('Poczekaj... za 5 sekund powrocisz do MENU glownego');
delay (5000);
end;
procedure mnozenie;
begin
clrscr;
textcolor (black);
textbackground (red);
writeln ('Podaj pierwsza liczbe');
readln (x);
writeln ('Podaj druga liczbe');
readln (y);
w:=x*y;
writeln ('Wynik mnozenia wynosi ' ,w:0:2);
writeln ('Poczekaj... za 5 sekund powrocisz do MENU glownego');
delay (5000);
end;
procedure dzielenie;
begin
clrscr;
textcolor (black);
textbackground (red);
writeln ('Podaj pierwsza liczbe');
readln (x);
writeln ('Podaj druga liczbe');
readln (y);
w:=x/y;
writeln ('Wynik mdzielenia wynosi ' ,w:0:2);
writeln ('Poczekaj... za 5 sekund powrocisz do MENU glownego');
delay (5000);
end;
procedure odejmowanie;
begin;
clrscr;
textcolor (black);
textbackground (red);
writeln ('Podaj pierwsza liczbe');
readln (x);
writeln ('Podaj druga liczbe');
readln (y);
w:=x-y;
writeln ('Wynik odejmowania wynosi ' ,w:0:2);
writeln ('Poczekaj... za 5 sekund powrocisz do MENU glownego');
delay (5000);
end;
begin
clrscr;
textcolor (black);
textbackground (red);
repeat;
writeln ('WITAJ W KALKUATORZE wizzEra');
writeln ('MENU:');
writeln ('dodawanie ==1==');
writeln ('odejmowanie ==2==');
writeln ('mnozenie ==3==');
writeln ('dzielenie ==4==');
writeln ('Exit ==0==');
write('wybierz opcje '); readln(znak);
writeln;
if znak=1 then (dodawanie);
if znak=2 then (odejmowanie);
if znak=3 then (mnozenie);
if znak=4 then (dzielenie);
if znak=0 then (exit);
writeln;
until znak=0;
end.
napisalem menu "kalkulator"
i mam problem działał mi dopuki nie wylaczylem Free Pascala i potem jak chcialem otworzyc jeszcze raz to wyskakuje blad error while linking a u kolegi innego pisalo ze 3 bledy.... a u wiekszosci dziala dlaczego tak jest i jak usunac ten blad albo niech ktos poprawi
