hi ihr...
ich hab ein problem
ich muss ein programm mit dev pascal erstellen, welches zahlen aus einem zahlenfeld sortiert...
ich habe auch schon angefangen...
aber ich finde meinen fehler nicht
muss auch zugeben, dass ich nicht so gut im programmieren bin...
bitte helft mir
liebe grüße lissyssil
quelltext:
program sortieren;
const n=10;
type zfeld= array [1..n] of integer;
var zahl: zfeld;
i, j, merke: integer;
procedure bubblesort;
begin
i:=1;
repeat
zahl:=random (20)+1;
writeln (zahl);
i:=i+1;
until i=n+1;
for i:=n-1 downto 1 do
for j:=1 to 1 do
if zahl[j]>zahl[j+1] then
begin
merke:=zahl[j];
zahl[j]:=zahl[j+1];
zahl[j+1]:=merke;
writeln;
end;
end;
begin
randomize;
bubblesort;
readln;
end.
lissyssil Gast |