Sudoku

Tutorials.at
Verfügbare Informationen zu "Sudoku"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: Olli - wirthi
  • Forum: Tutorials.at
  • Forenbeschreibung: Programmierforum
  • aus dem Unterforum: Pascal
  • Antworten: 3
  • Forum gestartet am: Mittwoch 19.04.2006
  • Sprache: deutsch
  • Link zum Originaltopic: Sudoku
  • Letzte Antwort: vor 16 Jahren, 4 Monaten, 17 Tagen, 12 Stunden, 10 Minuten
  • Alle Beiträge und Antworten zu "Sudoku"

    Re: Sudoku

    Olli - 09.11.2007, 16:52

    Sudoku
    Hallo, letztens habe ich mit Delphi probiert ein Programm zu schreiben, das einem Sodokus automatisch berechnet.
    Theoretisch hätte es klappen müssen aber ich hatte ein wsentliches Problem, da ich Die Zahlen zufällig belegte und mit einer while schleife nach gesehen hatten ob die summe 45 ergibt.
    Auf das wesentliche Problen zurückgeführt hat es dann wie folgt ausgesehen:

    begin
    randomize;
    z := 1;
    summe[z] := 0;
    while summe[z] <> 45 do
    begin


    for index := 1 to 9 do
    begin
    zahl[z,index] := random(9) + 1;
    end;

    for index := 1 to 9 do
    begin
    summe[z] := summe[z] + zahl[z,index];
    end;

    end; {Ende der while schleife}


    edit1.text := 'fertig';



    end;

    Hierbei wurde der Text : 'fertig' Jedoch nie ausgegeben.

    Wenn ich das Programm wie folgt geändert habe ist 'fertig' jedoch ausgegeben worden:

    for index := 1 to 9 do
    begin
    summe[z] := summe[z] + 1;
    end;

    Was ist hie rmein Problem?

    Liegt es am erzeugen zufälliger Zahlen?

    MfG Olli



    Re: Sudoku

    wirthi - 09.11.2007, 17:26


    Ohne deinen Code gelesen zu haben, fallen mir dazu zwei Sachen ein:

    * zufällig generierte Sudokus müssen nicht (eindeutig) lösbar sein.
    * 1+2+3+4+5+6+7+8+9=45, aber auch 2+2+2+4+5+6+7+8+9=45 !



    Re: Sudoku

    Olli - 10.11.2007, 15:09


    Ja danke, aber das ist mir auch klar, deswegen wollte ich später noch die summe der spalten überprüfen und die summe der kleinen quadrate( 3 * 3)



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



    Weitere Beiträge aus dem Forum Tutorials.at

    Buchstaben ersetzen - gepostet von michael_1960 am Freitag 05.10.2007
    ´Frage zu schleife - gepostet von dani93 am Dienstag 20.11.2007
    --- IDE --- (unbedingt lesen) - gepostet von X am Sonntag 10.09.2006
    TASM Compiler - auch mit ohne OBJ? - gepostet von r00tnix am Freitag 20.10.2006
    "GuG.h" <-- Header gesucht. - gepostet von exbs am Dienstag 28.11.2006
    Bitte helfen! - gepostet von cRuNcHy.cH* am Sonntag 02.07.2006
    Client/Server - gepostet von d.d.d. am Sonntag 11.03.2007
    Welche Programmiersprache? - gepostet von The Dust am Sonntag 24.06.2007
    qIp, ICQ, MSN, Trilian und andere... - gepostet von Dirty Oerty am Samstag 17.11.2007
    Tutorias für Grafiken in C - gepostet von mitti am Donnerstag 26.04.2007



    Ähnliche Beiträge wie "Sudoku"

    Homepage Abbuchung! - Lars (Freitag 09.05.2008)
    Sudoku - Jo (Mittwoch 01.08.2007)
    Sudoku Forever - Jonathan (Donnerstag 02.11.2006)
    sudoku - F I S H I (Sonntag 30.10.2005)
    Sudoku - Ariadne (Donnerstag 19.01.2006)
    Sudoku *** Jackpott: 5 Euro *** - simbaya (Sonntag 23.04.2006)
    Sudoku ist in..... - livechen (Mittwoch 26.04.2006)
    Sudoku Online - zorb (Dienstag 18.07.2006)
    3-D sudoku - Hinata (Montag 09.10.2006)
    SUDOKU - Jessy (Montag 30.01.2006)