KLEINSTE ZAHL <- gelöst

[Teekeks]

Grundsätzlich kann man bei for Schleifen den Zähler nicht verändern. Da braucht es eine "while do" oder "repeat until" Schleife.

Stimmt nicht:

Code: Alles auswählen

var x:integer;
    pint:PInteger;
begin
  pint:=@x;
  for x:=0 to 42 do
  begin
    Writeln(inttostr(x));
    if x=42 then pint^:=0;
  end;
end;

Fertig ist die Endlosschleife

[theo]

Stimmt nicht:
Fertig ist die Endlosschleife

Naja, das nenne ich "den Compiler verarschen". Ich bleibe bei meiner Aussage.

[Teekeks]

Aber IMHO ist das "grundsätzlich" falsch gewählt

Weil: nur weil der Compiler das nicht will kann das doch trotzdem gehen...

[theo]

Aber IMHO ist das "grundsätzlich" falsch gewählt

Das sind sprachliche Feinheiten. Ich habe "grundsätzlich" geschrieben, im Sinne von "grundsätzllich, falls keiner ein blödes Beispiel findet, wie man es trotzdem hinkriegt".
Es war also abschwächend und nicht verstärkend gemeint.
Gut so?

[Teekeks]

Ich glaube das können wir so stehen lassen.
(Mist, wieder ein Punkt an dich )

[Targion]

Theo the invincible

[theo]

Ich kann auch noch nachtreten mit einem prominenten Zitat:

"Trying to outsmart a compiler defeats much of the purpose of using one."
B. Kernighan & Plauger, "The Elements of Programming Style"

[pluto]

@Stephanie H
Dein Code sieht ja recht Lustig aus.... Es geht also um ein 2D Array. Und du möchtest jetzt einfach in einer Spalte die kleinste Zahl finden ? Oder im ganzen 2D Array die kleinste Zahl ? Hier mal mein Vorschlag:

Code: Alles auswählen

var
  z:Integer;
begin
  z:=0;
  for y:=0 to ZeilenAnzahl do begin
    for x:=0 to SpaltenAnzahl do begin
     if Mein2DArray[y,x] < z then z:=Mein2DArray[y,x];
   end;
  end; 
end;

Schon findest du die kleinste Zahl. Allerdings ist ein 2D Array etwas ungewöhnlich. Warum nicht ein Normaler 1D Array ?

[Stephanie H.]

also ich glaub ich probier mal plutos variante aus [danke pluto !D]
ich hab ein 2D-Array genommen weil
also ich muss da so von verschiedenen städten die abstände berrechnen und die städte mit einer am nahesten liegenden stadt verbinden...
und das sind irgendwie 1000 städte
und jede spalte steht für eine stadt und in den zeilen sind dann die abstände von den anderen städten zu der stadt...
hört sich vielleicht ein bisschen kompliziert an...

[corpsman]

Hört sich sehr komisch an schon mal nach http://en.wikipedia.org/wiki/Dijkstra%27s_algorithm oder http://en.wikipedia.org/wiki/A* gesucht ?

Auf meiner HP gibt es da auch schon "einfache" Delphi Implementierungen Allerdings habe ich die noch nicht nach Lazarus portiert...