Skocz do zawartości
Forum komputerowe PC Centre
wizzEr

problem w menu

Rekomendowane odpowiedzi

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

×
×
  • Dodaj nową pozycję...