#1 15. Februar 2006 Muss für die Schule ein Program schreiben Nun habe ich ein Problem und ich komme nicht weiter Code: program lesen; uses strings,wincrt; var name,wohn,alter,ja,nein:string; sterne,betten:integer; begin strcopy(windowtitle,' Hotel buchung'); repeat clrscr; writeln('Wie heißen Sie?'); writeln('Was für ein Hoteln wollen Sie buchen?'); writeln; writeln; writeln(' 3 Sterne Hotel (3)'); writeln(' 4 Sterne Hotel (4)'); writeln(' 5 Sterne Hotel (5)'); writeln; readln(sterne); writeln; if (sterne=3) then begin clrscr; writeln('Sie haben ein 3 Stern'); writeln('Ist die Wahl richtig? ( ja oder nein)'); readln(nein); until nein='ja'; <---------[B]da bekomme ich einen Fehler angezeigt*[/B] clrscr; writeln('Wollen Sie ein Einzelbett? (1)'); writeln('oder ein Doppelbett? (2)'); readln(betten); end; if (sterne=4) then begin clrscr; writeln('Sie haben ein 4 Stern'); writeln('Ist die Wahl richtig? ( ja oder nein)'); readln(nein); until nein='ja'; clrscr; writeln('Wollen Sie ein Einzelbett? (1)'); writeln('oder ein Doppelbett? (2)'); readln(betten); end; if (sterne=5) then begin clrscr; writeln('Sie haben ein 5 Stern'); writeln('Ist die Wahl richtig? ( ja oder nein)'); readln(nein); until nein='ja'; clrscr; writeln('Wollen Sie ein Einzelbett? (1)'); writeln('oder ein Doppelbett? (2)'); readln(betten); end; Der Fehler heißt: Fehler 133: Syntaxfehler in Befehl/Anweisung * Ich will das er jedesmal fragt ist die Wahl richtig das habe ich ja schon. Nur ich will wen der Benutzer nein eintippt das er bei allen 3 ( Sternen) immer wieder mit until und repeat hadelt nur den kommt der oben genannte fehler Bitte helft mir Aso und kommt jetzt nicht mit TP is doch sinnlos ich finde es "leicht" zu bedienen und man hat keine Lnageweile mehr MfG TRIBLE xXx + Multi-Zitat Zitieren
#2 16. Februar 2006 Code: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var name,wohn,alter,nein:string; sterne,betten:integer; begin { TODO -oUser -cConsole Main : Insert code here } repeat writeln('Wie heißen Sie?'); writeln('Was für ein Hoteln wollen Sie buchen?'); writeln; writeln; writeln(' 3 Sterne Hotel (3)'); writeln(' 4 Sterne Hotel (4)'); writeln(' 5 Sterne Hotel (5)'); writeln; readln(sterne); writeln; until (sterne=3) OR (sterne=4) OR (sterne=5); if (sterne=3) then begin repeat writeln('Sie haben ein 3 Stern'); writeln('Ist die Wahl richtig? ( ja oder nein)'); readln(nein); until nein='ja'; // <---------[B]da bekomme ich einen Fehler angezeigt*[/B] writeln('Wollen Sie ein Einzelbett? (1)'); writeln('oder ein Doppelbett? (2)'); readln(betten); end; if (sterne=4) then begin repeat writeln('Sie haben ein 4 Stern'); writeln('Ist die Wahl richtig? ( ja oder nein)'); readln(nein); until nein='ja'; writeln('Wollen Sie ein Einzelbett? (1)'); writeln('oder ein Doppelbett? (2)'); readln(betten); end; if (sterne=5) then begin repeat writeln('Sie haben ein 5 Stern'); writeln('Ist die Wahl richtig? ( ja oder nein)'); readln(nein); until nein='ja'; writeln('Wollen Sie ein Einzelbett? (1)'); writeln('oder ein Doppelbett? (2)'); readln(betten); end; //weitere anweisungen readln; end. habs dir mal verbessert, musst nur halt wieder die crt einbinden und deine clrscr; einbauen, die muss ich in delphi leider löschen un hab nich dran gedacht dass ch auch auskommentieren könnte ^^ + Multi-Zitat Zitieren
#3 16. Februar 2006 jo danke erst ma wa nur ich will es so das er micht fragt ist die wahl richtig (hab ich ja schon) und wenn ich nein klicke das er nochmal neu anfängst + Multi-Zitat Zitieren