wizzEr 0 Zgłoś Napisano 3 Grudzień 2008 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 Udostępnij tę odpowiedź Odnośnik do odpowiedzi Udostępnij na innych stronach