Zahlenraten

Freeprogs.iphpbb.com
Verfügbare Informationen zu "Zahlenraten"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: Dragorad - vpascal
  • Forum: Freeprogs.iphpbb.com
  • Forenbeschreibung: Der Ort zum Austauschen selbst Programmierter Programme!
  • aus dem Unterforum: Quellcodes
  • Antworten: 5
  • Forum gestartet am: Mittwoch 04.04.2007
  • Sprache: deutsch
  • Link zum Originaltopic: Zahlenraten
  • Letzte Antwort: vor 15 Jahren, 11 Monaten, 22 Tagen, 14 Stunden, 35 Minuten
  • Alle Beiträge und Antworten zu "Zahlenraten"

    Re: Zahlenraten

    Dragorad - 05.04.2007, 12:02

    Zahlenraten
    Ein kleines Spile für zwischendurch. Man muss eine 4stellige Zahl erraten, hat aber nur eine begrenzte Zahl an Versuchen.

    Code: program   proj_safe;
    uses      crt;
    const     esc=#27;
    var       zahl:array[1..4] of integer;
              i,nummer,x,zahl_ges:integer;

    {----------------------------------------------------------------------------}

    procedure writexy(x,y:integer;text:string);
              begin
               gotoxy(x,y);
               write(text);
              end;

    procedure writexynr(x,y,zahl:integer);
              begin
               gotoxy(x,y);
               write(zahl);
              end;

    procedure rahmen;
              var i:integer;
              begin
               writexy(19,9,'+');
               for i:=1 to 40 do writexy(i+19,9,'-');
               for i:=1 to 40 do writexy(i+19,11,'-');
               writexy(19,10,'¦');
               writexy(60,10,'¦');
               writexy(60,9,'+');
               writexy(19,11,'+');
               writexy(60,11,'+');
              end;

    {----------------------------------------------------------------------------}

    begin     repeat
               clrscr;
               randomize;
               x:=1;
               nummer:=40;
               zahl[x]:=random(10);
               rahmen;
               textcolor(yellow);
               for i:=1 to 40 do writexy(i+19,10,'*');
               textcolor(15);
               repeat
                writexy(69,1,'Versuche: ');
                if nummer<10 then write('0',nummer)
                else write(nummer);
                writexy(1,1,'Wie lautet die Zahl? ');
                readln(zahl_ges);
                if zahl_ges=zahl[x] then
                begin
                 writexynr(x,3,zahl[x]);
                 textcolor(green);
                 writexy(1,5,'RICHTIG');
                 textcolor(15);
                 x:=x+1;
                 zahl[x]:=random(10);
                end
                else
                begin
                 textcolor(red);
                 writexy(1,5,'FALSCH ');
                 textcolor(15);
                end;
                nummer:=nummer-1;
                writexy(59-nummer,10,' ');
               until (x=5) or (nummer=0);
               gotoxy(1,5);
               clreol;
               writexy(1,25,'Zum Beenden [ESC] drücken.');
              until readkey=esc;
    end.



    Re: Zahlenraten

    vpascal - 05.04.2007, 20:22


    Cool! Vielen Dank Dragorad!



    Re: Zahlenraten

    Dragorad - 05.04.2007, 21:47


    Keine Ursache! Hast du eigentlich auch Quellcodes zum Veröffentlichen?



    Re: Zahlenraten

    vpascal - 05.04.2007, 22:35


    nee, noch nicht. Ich werd mal ein bisschen rumfriemeln. Eigentlich könnte ich ja auch die von dem Virenprogramm oder Lottoprogramm uploaden z um rumbrasseln.



    Re: Zahlenraten

    Dragorad - 05.04.2007, 23:03


    Das wäre echt cool.



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum Freeprogs.iphpbb.com

    Der Trash Thread! - gepostet von vpascal am Donnerstag 24.05.2007



    Ähnliche Beiträge wie "Zahlenraten"

    Magic School - Fleur Delacour (Sonntag 03.01.2010)
    ZahlenRaten 4.3 - Anonymous (Dienstag 11.10.2005)