Sortieren < Algorithmen < Schule < Informatik < Vorhilfe
|
| Status: |
(Frage) überfällig  | | Datum: | 12:11 Mi 25.08.2010 | | Autor: | BiBo07 |
Hallo Leute ich brauche mal ganz dringend Hilfe.
Und zwar sollen wir herausfinden welcher Sortieralgorithmus das folgende Programm ist:
const MAX=50;
type TReihung = array[1..MAX] of real;
procedure eingeben(var pn:integer;var pa:TReihung);
var i:integer;
begin
pn:=Form1.Memo1.Lines.Count;
for i:=0 to pn-1 do
pa[i+1]:=StrToFloat(Form1.Memo1.Lines[i]);
end;
procedure ausgeben(pn:integer;const pa:TReihung);
var i:integer;
begin
for i:=1 to pn do
Form1.Memo2.Lines.Add(FloatToStr (pa[i]));
end;
procedure sortieren(pn:integer;var pa:TReihung);
var k:real;
i,j:integer;
begin
for i:=2 to pn do
begin
j:=i-1;
k:=pa[i];
while (j<>0) and (k<pa[j]) do
begin
pa[j+1]:=pa[j];
j:=j-1;
end;
pa[j+1]:=k;
end;
end;
var a:TReihung;
n:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
eingeben(n,a);
sortieren(n,a);
ausgeben(n,a);
end;
Entweder Selectionsort, Quicksort, Bubblesort oder Insertionsort?
Könnt ihr mir bitte schnellstmöglich helfen hab nicht lange Zeit dafür.
Danke!
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 14:20 Mi 25.08.2010 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
