Minesweeper

[Bjoerk]

Was soll das hier werden? Postet jetzt jeder seinen Minensucher? Mavarik hatte doch schon mich (und wie ich im nachhinein finde völlig zurecht und was mir nur aus Begeisterung passierte) darauf aufmerksam gemacht, daß es in den allermeisten Fällen nicht hilfreich ist, ganze units zu posten? Sorry, ist nicht persönlich gemeint.

[Popov]

@Bjoerk

Ich könnte das nun politisch machen und das Grundgesetz zitieren, aber das wäre dann doch ein Overkill. Aber lass mich dann doch klein wenig den Geist unserer Verfassung hier einbringen, in dem da wäre: kein Mensch sollte sich über den anderen erheben.

Das hier ist ein Forum. Das hier ist keine Moodle- oder andere Lern-Platform, die den Sinn hat den Leuten etwas beizubringen. Wer hier postet hat ein Problem und möchte gerne eine Lösung. Wer hier ein Problem postet, der macht es nicht um zu diskutieren, sondern um etwas zu erfahren. Er will eine Lösung.

Wenn ein Anfänger die Aufgabe vom Lehrer bekommt ein Programm zu schreiben, und er kommt mit der Aufgabe nicht klar, so dass er hier postet, dann liegt es an jedem User hier ob er ihm hilft oder nicht. Aber eines werde ich garantiert nicht machen - ich werde mich nicht über den Anfänger erheben und versuchen einen Delphi-Lehrer zu spielen. Ich werde mir nicht das Recht nehmen zu sagen: wenn ich ihm den ganzen Code gebe, dann lernt er nichts. Ich bin nicht seine Mama, ich bin nicht sein Papa, ich bin auch nicht sein Lehrer. Er ist ein freier Mensch der selbst entscheiden muss wie er glücklich wird. Und wenn ich aus Langeweile die Lösung programmiere und hier poste, dann liegt es an dem Fragersteller ob er das beachtet oder nicht. Oder ob er vielleicht dann doch lieber die kleinen Hinweise hat und selbst an das Ziel zu kommen. Dieses Recht werde nicht ich für ihn ausüben, denn wer bin ich denn, dass ich mir das Recht nehme über jemand anders zu entscheiden?

Also, entweder ist das hier ein Lehrer-Forum wo Programmierer die Probleme haben etwas lernen können. Dann sollten sich aber bitte alle dann auch so verhalten und didaktisch korrekt lehren. Oder es ist ein Problem Forum, d. h. jeder der Probleme hat darf sie posten und drauf hoffen, dass einer antwortet. Und wie einer drauf antwortet, das sollte jedem selbst überlassen werden.

Aber wo wir schon dabei sind - es gibt im Grunde zwei Arten wie einer etwas lernen kann: man lernt an einem Tag das A, am zweiten das B, am dritten das C usw. Irgendwann nach Wochen hat man so viel gelernt, dass man daraus ein Wort bilden kann. Die zweite Methode ist gleich mit dem Wort anzufangen, z. B. "Apfel". Danach nimmt man sich die einzelnen Buchstaben durch.

Wie gesagt, das hier ist kein Lehrer-Forum, sondern ein Hilfe-Forum. Deshalb ist es eigentlich unhöflich einem der Hilfe braucht nur ein Schlagwort zu liefern mit dem Gedanken - so lernt er es besser. Wer es so machen will, kann es so machen. Da ich aber hier kein Lehrer bin, entscheide ich gelegentlich einfach den ganzen Code zu geben. Weil es mir einfach egal ist ob er was lernt. Es ist seine Entscheidung. Es ist anmaßend diese Entscheidung für ihn zu übernehmen. Wenn einer am ertrinken ist, dann retten man ihn, man ruft ihm vom Strand nicht zu wie man schwimmen lernen kann.

[Sir Rufo]

Zitat von Bjoerk:

Was soll das hier werden? Postet jetzt jeder seinen Minensucher? Mavarik hatte doch schon mich (und wie ich im nachhinein finde völlig zurecht und was mir nur aus Begeisterung passierte) darauf aufmerksam gemacht, daß es in den allermeisten Fällen nicht hilfreich ist, ganze units zu posten? Sorry, ist nicht persönlich gemeint.

Ja, Nein, Jain ...

Hier im Forum kann man nicht erwarten fertigen Source zu bekommen -> es besteht keinerlei Anspruch durch den Fragenden (weder rechtlich noch moralisch).

Es ist aber nicht verboten (weder rechtlich noch moralisch)!

Was zugesichert wird ist, dass sich die (hier sehr aktive) Gemeinschaft die Frage anschaut und je nach Lust und Laune (es besteht keinerlei Verpflichtung, weder rechtlich noch moralisch) darauf etwas (mehr oder minder) Konstruktives antwortet.

Also wer will darf Source posten. Jeder den das stört darf sich dazu äussern. Jeder der sich an dieser Äußerung stört, darf sich auch äußern ... usw. usw. solange alle freundlich und beim Thema bleiben ist alles in Butter

PS: Der Lerneffekt ist proportional zur Eigeninitiative, darum ist Vorsagen/Abschreiben von Komplett-Lösungen zwar kurzfritig hilfreich, langfristig betrachtet allerdings relativ wertlos.

[Mavarik]

[OT]

Zitat von Sir Rufo:

PS: Der Lerneffekt ist proportional zur Eigeninitiative, darum ist Vorsagen/Abschreiben von Komplett-Lösungen zwar kurzfritig hilfreich, langfristig betrachtet allerdings relativ wertlos.

Das ist das Ding mit dem Hunger, dem Fisch und der Angel...

Wenn sich hier 3-5 Profis die seit TurboPascal 1.0 programmieren, 5 Zeilen Sourcecode posten oder auch mal ne ganze Unit hab Ich nix dagegen. Ich sage immer 10 Zeilen Source sagen mehr als 100 Worte...

Wenn es aber um Hausaufgaben geht - und dass habe ich letztens erst wieder erfahren müssen - fällt das für mich in den Bereich Lehrauftrag und Nachwuchsförderung. Hier gibt es für mich 3 Abstufungen:

Frage (1): Ich will das Programmieren habe aber keine Ahnung wie!
Antwort (1): Papier und Bleistift nehmen und erst mal planen ohne Delphi!

Frage (2): Ich möchte XY machen weiß aber nicht wie!
Antwort (2): Die beste Antwort ist dann nicht in Delphi sondern in Logik-Sprache

Frage (3): Ich bekomme hier in Zeile XY eine Exception warum?
Antwort (3) : In Delphi: versuche mal Array[i-1] nicht Array[i]... (Beispiel)

Aber das ist nur meine Meinung und keine Forumsregel...

Mavarik

[/OT]

[BadenPower]

Zitat von Bjoerk:

Was soll das hier werden? Postet jetzt jeder seinen Minensucher?

Warum nicht?
100 Minensucher, welche nahezu identisch aussehen, aber garantiert gleichzeitig 90 verschiedene Lösungsansätze in den Internas.

Durch solch einen Vergleich stellt man erst einmal fest, wieviele Wege, welche man machmal gar nicht in Betracht gezogen hatte, nach Rom führen.

Auch der Vergleich von kompletten Programmen kann durchaus lehrreich sein.

[Sir Rufo]

Um nochmal zu den Aufdeck-Regeln zu kommen:

Wenn ein Feld aufgedeckt wird, dass keine Mine im Nachbarfeld hat, dann werden auch alle Nachbarfelder aufgedeckt.

Delphi-Quellcode:

procedure TSpiel.DeckMichAuf( Feld : TFeld );
var
  LNachbar : TFeld;
begin
  if Feld.Aufgedeckt then 
    Exit;

  Feld.Aufgedeckt := True;
  
  if Feld.HatMine then
    Exit;

  if Feld.AnzahlNachbarMinen = 0 then
  begin
    for LNachbar in NachbarnVon( Feld ) do
      DeckMichAuf( LNachbar );
  end;
end;

[Popov]

Zitat von Sir Rufo:

Wenn ein Feld aufgedeckt wird, dass keine Mine im Nachbarfeld hat, dann werden auch alle Nachbarfelder aufgedeckt.

Jajn. In der Regel schon, es gibt aber eine Ausnahme. Beispiel:

Code:

|*|1|_|_|
+-+-+-+-+
|1|1|_|_|
+-+-+-+-+
|_|#|1|1|
+-+-+-+-+
|_|_|1|*|

Nehmen wir an die Raute ist der Klick und das Feld ist auch leer. Nun werden alle Felder um das Feld (mit Raute) offen gelegt, bis auf das Feld oben rechts (wenn es frei ist, also weder eine Mine, noch eine Zahl enthällt).

Enthält das Feld oben rechts von dem Klick (Raute) eine Zahl

Code:

|*|1|1|*|
+-+-+-+-+
|1|1|1|1|
+-+-+-+-+
|_|#|1|1|
+-+-+-+-+
|_|_|1|*|

wird auch das Feld oben rechts offen gelegt.

Warum aber nicht das Erste? Weil dieses Feld bereits zum nächsten freien Fläche gehört. Berühren sich zwei freien Flächen über Ecke, werden sie nicht offen gelegt wenn eine der Flächen frei wird. Das würde sonst u. U. das ganze Minen-Feld offen legen und nur Minen verdecken.

[BadenPower]

Zitat von Popov:

Jajn. In der Regel schon, es gibt aber eine Ausnahme. Beispiel:

Code:

|*|1|_|_|
+-+-+-+-+
|1|1|_|_|
+-+-+-+-+
|_|#|1|1|
+-+-+-+-+
|_|_|1|*|

Nehmen wir an die Raute ist der Klick und das Feld ist auch leer. Nun werden alle Felder um das Feld (mit Raute) offen gelegt, bis auf das Feld oben rechts (wenn es frei ist, also weder eine Mine, noch eine Zahl enthällt).

Das ist doch schon wieder falsch.

Zum 100. mal: Die Diagonale ist keine Grenze.

In diesem Beispiel wird auf Feld(1,2) mit der Raute geklick.
geöffnet werden:
(0,2),(1,2),(0,3),(1,3) UND (2,1),(3,1),(2,0),(3,0)

Beispiel siehe Bild in Post #82.

[saii]

Erstmal: Ich möchte nicht, das ihr das Programm für mich schreibt. Ich brauche nur leider viel Hilfe.
Ich werde auch Popov's Programm nicht einfach so abgeben. Ich werde meins fertigstellen (soweit wie ich komme).

Weiß jemand, warum keine Panels aufgedeckt werden, wenn ich auf ein Panel ohne benachbarte Minen drücke?
Warscheinlich was ganz banales, was ich übersehe

[Bjoerk]

Zitat von saii:

Erstmal: Ich möchte nicht, das ihr das Programm für mich schreibt. Ich brauche nur leider viel Hilfe.
Ich werde auch Popov's Programm nicht einfach so abgeben. Ich werde meins fertigstellen (soweit wie ich komme).

Weiß jemand, warum keine Panels aufgedeckt werden, wenn ich auf ein Panel ohne benachbarte Minen drücke?
Warscheinlich was ganz banales, was ich übersehe

Weil der Algo so nicht geht. Da muß z.B. rekursiv was gemacht werden. Siehe Z.B. Popov oder #73 mit #80 von meiner Wenigkeit (auch die Beispiele von BadenPower).