Brauche ma ein bissle hilfe bei TP

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von TRIBLE xXx, 15. Februar 2006 .

Schlagworte:
  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
     
  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 ^^
     
  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
     
  4. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.