[Pascal]Praca zaliczeniowa z Pascala. Problem przy menu :(

Witam wszystkich czytających !

Jak w temacie mam problem z zrobieniem menu ... w sumie menu jest ale działa jakoś kulawo, mianowicie po wpisaniu numeru opcji program nie reaguje,
dla przykładu: wpisuję "1" program wyświetla liczbę i chce następną wpisuje znów "1" program reaguje wręcz zbójnicko, wyłącza się.

Poniżej podałem cały kod programu(trochę tego jest):

program FAKTORA; uses crt; var imie,Firma,ul,nip :string; a,b,c,i,n:integer; z:integer; x,q,w:real; dzial:char; blad:boolean; begin textbackground(9); textcolor(2); clrscr; repeat clrscr; writeln('Wybierz co chcialbys kupic'); writeln('1. Zakup okien'); writeln('2. Zakup drzwi'); writeln('3. Kalkulator'); writeln; writeln ('Wybierze numer opcji z menu'); readln(a); case z of 1: begin clrscr; writeln('Podaj imie i nazwisko kupujĄcego oddzielone spacjĄ '); readln(imie); writeln('Podaj nazwŠ firmy '); readln(Firma); writeln('Podaj NIP firmy '); readln(nip); writeln('Podaj adres firmy '); readln(ul); writeln('Podaj ilo~c zam˘wianych okien i cene jednego okna oddzielone spacjĄ '); readln(a,B); clrscr; begin n:=0; repeat clrscr; gotoxy(16,10); writeln('Dobrze teraz program za^aduje dane do fakt˘ry'); gotoxy(16,11); writeln(' Prosze chwile poczeka†'); gotoxy(20,12); write('0% 100%'); gotoxy(21,13); for i:=1 to 40 do write(#176); gotoxy(21,13); for i:=1 to 40 do begin write(#219); delay(150); end; gotoxy(25,16); writeln('NACI—NIJ ENTER'); until n<1 ; readln; end; clrscr; gotoxy(1,4); writeln(#218,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 194,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#191); writeln(#179,'sprzedawca ',#179,' kupujĄcy',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'Jan Kowalski ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'XQWZ ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'nip:12044342345 ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'MIASTO XQWZ ',#179,' ',#179); writeln(#179,'NR-KOD MIASTO ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,' Okno PCV ',#179,' ',#179); writeln(#179,' ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 193,#196,#196,#194,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'Podatek VAT ',#179,' ',#179); writeln(#179,' ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 196,#196,#196,#197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,' RAZEM ',#179,' ',#179); writeln(#192,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 196,#196,#196,#193,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#217); gotoxy(25,7); write(imie); gotoxy(25,9); write(Firma); gotoxy(25,11); write('nip:',(nip)); gotoxy(25,13); write(ul); gotoxy(25,16); write('ilo~† sztuk ',a); gotoxy(2,17); write('cena jednostki ',B); gotoxy(25,17); write('brutto ',b*a); gotoxy(2,19); write('Vat za jedno = ',b/100*22 :5:2); gotoxy(25,19); write('Vat ca^y = ',b/100*22*a:5:2); gotoxy(25,22); write('netto= ',(b/100*22*a)+(b*a) :5:2); readln; end; end; case z of 2: begin clrscr; writeln('Podaj imie i nazwisko kupujĄcego oddzielone spacjĄ '); readln(imie); writeln('Podaj nazwŠ firmy '); readln(Firma); writeln('Podaj NIP firmy '); readln(nip); writeln('Podaj adres firmy '); readln(ul); writeln('Podaj ilo~c zam˘wianych drzwi i cene jednych drzwi oddzielone spacjĄ '); readln(a,B); clrscr; begin n:=0; repeat clrscr; gotoxy(16,10); writeln('Dobrze teraz program za^aduje dane do fakt˘ry'); gotoxy(16,11); writeln(' Prosze chwile poczeka†'); gotoxy(20,12); write('0% 100%'); gotoxy(21,13); for i:=1 to 40 do write(#176); gotoxy(21,13); for i:=1 to 40 do begin write(#219); delay(150); end; gotoxy(25,16); writeln('NACI—NIJ ENTER'); until n<1 ; readln; end; clrscr; gotoxy(1,4); writeln(#218,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 194,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#191); writeln(#179,'sprzedawca ',#179,' kupujĄcy',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'Jan Kowalski ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'XQWZ ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'nip:12044342345 ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'MIASTO XQWZ ',#179,' ',#179); writeln(#179,'NR-KOD MIASTO ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,' Drzwi ',#179,' ',#179); writeln(#179,' ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 193,#196,#196,#194,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,'Podatek VAT ',#179,' ',#179); writeln(#179,' ',#179,' ',#179); writeln(#195,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 196,#196,#196,#197,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#180); writeln(#179,' RAZEM ',#179,' ',#179); writeln(#192,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,# 196,#196,#196,#193,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,# 1 96,#196,#196,#196,#196,#196,#196,#196,#196,#217); gotoxy(25,7); write(imie); gotoxy(25,9); write(Firma); gotoxy(25,11); write('nip:',(nip)); gotoxy(25,13); write(ul); gotoxy(25,16); write('ilo~† sztuk ',a); gotoxy(2,17); write('cena jednostki ',B); gotoxy(25,17); write('brutto ',b*a); gotoxy(2,19); write('Vat za jedno = ',b/100*22 :5:2); gotoxy(25,19); write('Vat ca^y = ',b/100*22*a:5:2); gotoxy(25,22); write('netto= ',(b/100*22*a)+(b*a) :5:2); end; end; case z of 3: begin clrscr; Blad:=false; Write('podaj pierwszą liczbę '); Readln(x); Write('podaj druga liczbe '); Readln(q); Write(' Wybierz dzialanie (+,-,*,/) '); Readln(dzial); Case dzial of '+': w:=x+q; '-': w:=x-q; '*': w:=x*q; '/':if b<>0 then w:=x/q else blad:=true; else blad:=true; end; if not blad then writeln('wynik dzialania: ',w) else writeln('blad dzialania lub dzielenia przez zero'); readKey; end; end; until z=0; readln; end.
Użytkownik Azzlagorl edytował ten post 26 grudzień 2009, 04:59

---

napisałeś "case z of..." -powinno być "case a of..." bo przed tym wczytałeś numer operacji do zmiennej a (napisałeś readln(a);).


napisałeś "case z of..." -powinno być "case a of..." bo przed tym wczytałeś numer operacji do zmiennej a (napisałeś readln(a);).

Nom właśnie tak parę godzin temu patrze jeszcze raz w cały kod i zobaczyłem kod readln(a); a powinno być właśnie z ... ale mam za to nauczkę i podzielę się wnioskiem: Nie pisać programów po dwóch dniach bez snu :P

Heh:P W programowaniu jest ten minus, że jak zapomni się choćby przecinka gdzieś a reszta jest dobrze to program się nie skompiluje i nie uruchomi -czasami trzeba przeglądać dużo kodu...

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl