Lazarus Sortieren

[SIrRonBird]

Hallo Leute ,
ich habe die Aufgabe mit Lazarus 6 Sortierverfahren zu programmieren und habe keinen Plan wie ich das machen soll !

Ein Sortierverfahren hab ich schon und zwar das Einfügesort !

Wäre cool wenn ein PseudeCode kommen würde.
Mit freundlichen Grüßen SirRonBird

[m.fuchs]

http://de.wikipedia.org/wiki/Sortierverfahren

Da sind einige beschrieben und auch mit Pseudocode.

[mschnell]

In Lazarus gibt es bereits ein Sortier-Verfahren (soweit ich weiß: Quicksort) für TList und Genossen.

-Michael

[Heinrich Wolf]

In Lazarus gibt es bereits ein Sortier-Verfahren (soweit ich weiß: Quicksort) für TList und Genossen.

-Michael

Für eine Hausaufgabe finde ich es eher ungeeignet, das eingebaute Verfahren zu verwenden. Man könnte aber den Quellcode analysieren, wenn man findet, wo er ist.

[SIrRonBird]

Gibt es denn eine Internetseite die Sortieren speziell für Lazarus erklärt ? (Google ist da nicht hilfreich)
MFG SirRonBird

[willi4willi]

Gibt es denn eine Internetseite die Sortieren speziell für Lazarus erklärt ? (Google ist da nicht hilfreich)
MFG SirRonBird

Ich habe einmal in Google "delphi sortieralgorithmen" eingegeben.

Versuch es doch einfach auch mal.



Selection-Sort
Insertion-Sort
Bubble-Sort
Shell-Sort
QuickSort
Heap-Sort
Merge-Sort

Werden erklärt und Code-Beispiele gibt es auch noch.


Viele Grüße

Willi4willi

PS: Falls eine Goolge-Phobie besteht dann bitte diesen Link http://www.delphipraxis.net/281-tutoria ... -i-ii.html nutzen.

[SIrRonBird]

Heißt die Programmiersprache Delphi ? Sorry ich bin ein Noob in dem Bereich !

[theo]

Heißt die Programmiersprache Delphi ? Sorry ich bin ein Noob in dem Bereich !

Die Lösungen, die du für Delphi findest, funktionieren meist auch unter Lazarus.

[Heinrich Wolf]

Heißt die Programmiersprache Delphi ? Sorry ich bin ein Noob in dem Bereich !

Lazarus ist ein geclontes Delphi.

[mschnell]

Lazarus ist ein geclontes Delphi.

Verbessertes !!!
oder ???

-Michael

[Heinrich Wolf]

Lazarus ist ein geclontes Delphi.

Verbessertes !!!
oder ???

-Michael

Hmm.
Ich kann keine Äpfel mit Birnen vergleichen. Mit meinem D5 standard arbeite ich lieber als mit Lazarus. Lazarus hat neueren Funktionsumfang. Delphi hat sich auch weiterentwickelt. Aber ein neueres Delphi als mein 2006 personal kenne ich nicht. An Lazarus mag ich, dass es das auf Linux gibt und dass es gratis ist. Aber ich denke, Lazarus hat in Sachen Geschwindigkeit und Qualität des Debuggers noch einiges aufzuholen.

Heiner

[willi4willi]

Heißt die Programmiersprache Delphi ? Sorry ich bin ein Noob in dem Bereich !

Die gemeinsame Programmiersprache heißt Pascal. Delphi ist eine IDE und Erweiterung auf der Grundlage von Turbo-Pascal. Lazarus basiert auf FreePascal.

Die Syntax, also die Art und Weise, wie der Code geschrieben werden muss, ist zwischen beidem sehr ähnlich. Jedenfalls viel ähnlicher als zum eigentlichen Großvater, dem Standard-Pascal.

Wenn Du irgendwo TurboPascal(Delphi)-Code findest, so wist Du ihn zu ca. 80% in Free-Pascal(Lazarus) verwenden können.
Die restlichen 20% die in FreePascal anders geschrieben werden werden müssen, hängen damit zusammen, dass FreePascal und damit auch dessen Code, auf den verschiedensten Plattformen und Betriebssystemen läuft und laufen muss.
Delphi und TurboPascal m.E. sind noch ausschließlich für Intel/Microsoft -Systeme (MS-DOS/Windows).
Darum die leichten Unterschiede.

Viele Grüße

[mschnell]

Die gemeinsame Programmiersprache heißt Pascal.

Oder genauer "Object Pascal". Noch genauer gibt es auch von Object Pascal verschiedene Varianten, von denen der FPC mehrere abdeckt.

-Michael

[BeniBela]

Das ist dann zwar geschummelt, aber du kannst 8 Sortierverfahren im fpc-2.6.0/packages/amunits/examples/sortdemo.pas Verzeichnis finden...

[SIrRonBird]

Ich bin jetzt auf eine ListBox umgestiegen weil jetzt mehr Kritierien dazu gekommen sind.
Ich versuche also erstmal das Generieren aus dem alten Programm zuüberstragen und wie soll es anders sein er tut nichts !

Hier der Quelltext:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
 
var
  i,z,a,Zufallszahl: integer;
begin
  i:=1;
  if RadioButton4.Checked = true Then
  a:=10
  else if RadioButton5.Checked = true Then
  a:=50
  else if RadioButton6.Checked = true Then
  a:=500
  else if RadioButton7.Checked = true Then
  a:=1000
  else if RadioButton8.Checked = true Then
  a:=100
  else showmessage('Fehler Bitte Wähle eine Option');
 
  if RadioButton1.Checked = true Then
  z:=100
  else if RadioButton2.Checked = true Then
  z:=1000
  else if RadioButton3.Checked = true Then
  z:=10000
  else showmessage('Fehler Bitte Wähle eine Option');
 
 
  while i <= a do
    begin
       Zufallszahl := random(z);
       ListBox1.Items[i]:= inttostr(Zufallszahl);
       i := i+1
    end;
end;

Ich weiß nicht was ich falsch gemacht habe ?! Bitte helft mir !