hi zusammen,
habe versucht nach den angaben meines professors den bubblesort-algorithmus zu schreiben, allerdings nicht als prozedur sondern als funktion. delphi findet jedoch einen fehler (incompatible types) der unten im quelltext durch ein kommentar kenntlich gemacht ist. aber ich kann den fehler einfach nicht finden - vielleicht könnt ihr mir ja helfen.
(Tadresse ist ein record aus mehreren strings)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| function bubblesort(count: integer; var a: array of Tadresse): integer;
var
i, k: integer;
p: Tadresse;
begin
count := length(a);
for i := 2 to count do
for k := count downto i do
if a[k-1] > a[k] then
begin
p := a[k-1];
a[k-1] := a[k];
a[k] := p;
end;
end; |
kann auch sein, dass da noch andere fehler im quelltext sind - aber mich interessiert momentan nur dieser eine!
schon mal vielen dank im vorraus
