15 Puzzle Programmierung

[mainze]

Hallo,

ich suche eine Version von 15 Puzzle in Lazarus (muss nicht eine zu komplizierte Variante sein). Ihr kennt das Spiel sicher. Vielleicht kann mir jemand helfen oder hat so eine Programmierung zur Hand.

Ihr würdet mir sehr helfen.

Gruß, mainze

[mainze]

Schreibt mir bitte für Zuarbeiten eine private Nachricht.

Gruß, mainze

[theo]

Eine PN, damit der Lehrer nichts mitkriegt?
Und wovon träumst du nachts?

[Mathias]

Und wovon träumst du nachts?

Von dem 16en Feld das fehlt.

[Niesi]

Hallo,

ich suche eine Version von 15 Puzzle in Lazarus (muss nicht eine zu komplizierte Variante sein). Ihr kennt das Spiel sicher. Vielleicht kann mir jemand helfen oder hat so eine Programmierung zur Hand.

Ihr würdet mir sehr helfen.

Gruß, mainze

Als Tipp: Du wirst nie was wirklich lernen, wenn Du Dir alles machen lässt - und Suchmaschinen können nützlich sein ...

[Mathias]

und Suchmaschinen können nützlich sein ...

Ein bisschen suchen und man wird fündig.

https://wiki.lazarus.freepascal.org/15-puzzle

[Niesi]

und Suchmaschinen können nützlich sein ...

Ein bisschen suchen und man wird fündig.

https://wiki.lazarus.freepascal.org/15-puzzle

Ich wollt's nicht soooo einfach machen .. .

Manche können nicht mal suchen. War schon immer so ...

[KodeZwerg]

Von der Sache her finde ich dieses Puzzle spiel ist ein gutes Einsteigerprojekt um den Umgang mit der Programmiersprache zu erlernen.
Ich selbst würde gegenüber dem Wiki Beispiel, was auch sehr einfach ist, ein Bild malen und dem ein Click-Event spendieren.
Per Point kann man auslesen in welchen Bereich man geklickt hat, jetzt nur noch ein 2D array damit assoziieren und schon ist die Logik fertig

[Mathias]

Von der Sache her finde ich dieses Puzzle spiel ist ein gutes Einsteigerprojekt um den Umgang mit der Programmiersprache zu erlernen.

Was man auch noch machen könnte, das die Buttons/Images Pixelweise rutschen. Die Möglichkeiten sind fast Endlos.

[Niesi]

Von der Sache her finde ich dieses Puzzle spiel ist ein gutes Einsteigerprojekt um den Umgang mit der Programmiersprache zu erlernen.

Was man auch noch machen könnte, das die Buttons/Images Pixelweise rutschen. Die Möglichkeiten sind fast Endlos.

Stimmt - allerdings ist dazu Lust am Programmieren und Lernen vonnöten.

Hier wollte doch nur wer seine Hausaufgaben gemacht bekommen ...

[icho2099]

Hier wollte doch nur wer seine Hausaufgaben gemacht bekommen ...

Vielleicht ging es aber auch um die Ausbildung zur Führungskraft,
da geht es nicht um selber wissen oder selber verstehen,
da geht es darum es von anderen machen zu lassen.

[Joh]

Vielleicht ging es aber auch um die Ausbildung zur Führungskraft,
...
da geht es darum es von anderen machen zu lassen.

YMMD

[m.fuchs]

Vielleicht ging es aber auch um die Ausbildung zur Führungskraft,
da geht es nicht um selber wissen oder selber verstehen,
da geht es darum es von anderen machen zu lassen.

Dann vermitteln wir an dieser Stelle gleich mal den ersten Grundsatz: "Wenn man es nicht selber kann und es dringend braucht, dann muss man ordentlich zahlen."

[kirchfritz]

Immerhin liefert ChatGPT folgende Lösung für die Aufgabenstellung "program a 15-puzzle in Lazarus"

Certainly! The 15-puzzle is a classic sliding puzzle that involves arranging 15 numbered tiles in a 4x4 grid with one empty space.
Here is a simple console-based implementation in Lazarus (Free Pascal):

Code: Alles auswählen

program FifteenPuzzle;

{$mode objfpc}{$H+}

uses
  SysUtils, Crt;

const
  Size = 4;

type
  TGameBoard = array[1..Size, 1..Size] of Integer;

var
  Board: TGameBoard;

procedure InitializeBoard;
var
  i, j, k: Integer;
begin
  k := 1;
  for i := 1 to Size do
    for j := 1 to Size do
    begin
      if k < Size * Size then
        Board[i, j] := k
      else
        Board[i, j] := 0; // Empty space
      Inc(k);
    end;
end;

procedure DisplayBoard;
var
  i, j: Integer;
begin
  WriteLn('---------------------');
  for i := 1 to Size do
  begin
    for j := 1 to Size do
    begin
      if Board[i, j] = 0 then
        Write('|  ')
      else
        WriteFormat('| %2d ', [Board[i, j]]);
    end;
    WriteLn('|');
    WriteLn('---------------------');
  end;
end;

procedure ShuffleBoard;
var
  i, j, k, randI, randJ: Integer;
begin
  Randomize;
  for k := 1 to 1000 do // Shuffle 1000 times
  begin
    repeat
      randI := Random(Size) + 1;
      randJ := Random(Size) + 1;
    until Board[randI, randJ] <> 0;
    
    // Swap the empty space with a random neighboring tile
    if (randI > 1) and (Board[randI - 1, randJ] = 0) then
    begin
      Board[randI - 1, randJ] := Board[randI, randJ];
      Board[randI, randJ] := 0;
    end
    else if (randI < Size) and (Board[randI + 1, randJ] = 0) then
    begin
      Board[randI + 1, randJ] := Board[randI, randJ];
      Board[randI, randJ] := 0;
    end
    else if (randJ > 1) and (Board[randI, randJ - 1] = 0) then
    begin
      Board[randI, randJ - 1] := Board[randI, randJ];
      Board[randI, randJ] := 0;
    end
    else if (randJ < Size) and (Board[randI, randJ + 1] = 0) then
    begin
      Board[randI, randJ + 1] := Board[randI, randJ];
      Board[randI, randJ] := 0;
    end;
  end;
end;

procedure PlayGame;
var
  move: Char;
  emptyI, emptyJ: Integer;
begin
  repeat
    ClrScr;
    DisplayBoard;
    WriteLn('Use WASD to move tiles, Q to quit.');
    Write('Your move: ');
    move := UpCase(ReadKey);
    emptyI := 0;
    emptyJ := 0;

    // Find the empty space coordinates
    for emptyI := 1 to Size do
      for emptyJ := 1 to Size do
        if Board[emptyI, emptyJ] = 0 then
          break;

    // Move tile based on user input
    case move of
      'W': if emptyI < Size then
            begin
              Board[emptyI, emptyJ] := Board[emptyI + 1, emptyJ];
              Board[emptyI + 1, emptyJ] := 0;
            end;
      'S': if emptyI > 1 then
            begin
              Board[emptyI, emptyJ] := Board[emptyI - 1, emptyJ];
              Board[emptyI - 1, emptyJ] := 0;
            end;
      'A': if emptyJ < Size then
            begin
              Board[emptyI, emptyJ] := Board[emptyI, emptyJ + 1];
              Board[emptyI, emptyJ + 1] := 0;
            end;
      'D': if emptyJ > 1 then
            begin
              Board[emptyI, emptyJ] := Board[emptyI, emptyJ - 1];
              Board[emptyI, emptyJ - 1] := 0;
            end;
    end;

  until (move = 'Q') or CheckWinCondition;
end;

function CheckWinCondition: Boolean;
var
  i, j, k: Integer;
begin
  k := 1;
  for i := 1 to Size do
    for j := 1 to Size do
    begin
      if k < Size * Size then
      begin
        if Board[i, j] <> k then
          Exit(False);
      end
      else if Board[i, j] <> 0 then
        Exit(False);
      Inc(k);
    end;

  DisplayBoard;
  WriteLn('Congratulations! You solved the puzzle!');
  Result := True;
end;

begin
  InitializeBoard;
  ShuffleBoard;
  PlayGame;
end.

This program initializes the 15-puzzle, shuffles it, and allows the user to solve it by making moves using the WASD keys (W - Up, A - Left, S - Down, D - Right). The game continues until the user enters 'Q' to quit or successfully solves the puzzle.

Ob die Lösung von ChatGPT kompilierbar ist und die Fragestellung des "Lehrers" beantwortet, überlasse ich dem ursprünglichen Fragesteller.
Schon der Versuch, die ChatGPT-Lösung zu verstehen, würde den Fragesteller ein Level nach oben katapultieren auf seinem Weg zum Programmierer-Olymp.
Und damit man mich nicht falsch versteht: Ich halte nichts von ChatGPT-Lösungen, weil sie in den meisten Fällen nicht kompilierbar sind oder schlichtweg "gelogen" sind.
Ich halte auch nichts davon, wenn Schüler nach Lösungen für Ihre Informatik-Unterricht Hausaufgaben dieses Forum befragen, ohne vorher ihre eigenen Programmierversuche zu offenbaren.
Aber ChatGPT heutzutage ersetzt das google von gestern. Da muss man halt damit klar kommen.
Als Lehrer würde ich mir vom Schüler seine Lösung erklären lassen und dabei sehr schnell merken, ob die Lösung vom Schüler verstanden wurde, oder nur ein Nachplappern einer ChatGPT-Lösung ist.

[Niesi]

Bislang habe ich an die 12 Versuche unternommen, von einer AI was programmiert zu bekommen. Manche Sachen waren durchaus einfach. Es ist aber noch nie was sinnvolles dabei herausgekommen.

Ich habe die Dinger NICHT korrigiert, nicht weiter nachgefragt und keinerlei Rückmeldung gegeben - das wäre dann ja Training für die AI. Das möchte ich dann sehr gut bezahlt bekommen.

AI wird absolut überschätzt, und ich glaube, wer von einer AI etwas programmiertes geliefert bekommt, was selbst nicht deutlich besser hinzubekommen wäre, sollte das Programmieren sein lassen ...