Zufallszahlen, BubbleSort, Balkendiagramme (Pascal)

Aus ProgrammingWiki

Archivierte Version vom 2011-01-14T08:02:02+00:00. Aktuelle Version

Inhaltsverzeichnis

1 Definition und Ausgabe eines eindimensionalen Arrays
2 Zufallszahlen
3 BubbleSort
4 Darstellung im Balkendiagramm

Definition und Ausgabe eines eindimensionalen Arrays

var Zahlen:Array of Integer;

procedure fillZahlen(n:Integer);
var i:integer;
begin
 // -5,-4,-3...10
 setArrayLength(Zahlen,n);
 for i := 0 to n-1 do Zahlen[i] := -5+i;
end;

procedure ZahlenAusgabe(liste:Array of Integer);
var i:integer;
begin
 for i := 0 to length(liste)-1 do begin
  if i = length(liste)-1 then 
   writeln(liste[i]) else
   write(liste[i]+', ');
 end;
end;

fillZahlen(15);
ZahlenAusgabe(Zahlen);

Zufallszahlen

procedure ZufallsZahlen(var arr:Array of Integer; n,minimum,maximum:Integer);
var i:Integer;
begin
 setArrayLength(arr,n);
 for i := 0 to n-1 do begin
  arr[i] := random(maximum-minimum+1)+minimum;
 end;
end;

ZufallsZahlen(Zahlen,20,10,200);
ZahlenAusgabe(Zahlen);

BubbleSort

procedure BubbleSort(var arr:Array of integer);
var h,i,j:Integer;
begin
 for j := 0 to length(arr)-1 do begin
  for i := j to length(arr)-1 do begin
   if arr[i] < arr[j] then begin
    h := arr[i];
    arr[i] := arr[j];
    arr[j] := h;
   end;
  end;
 end;
end;

ZufallsZahlen(Zahlen,20,10,100);
ZahlenAusgabe(Zahlen);
writeln('Sortiert:');
BubbleSort(Zahlen);
ZahlenAusgabe(Zahlen);

Darstellung im Balkendiagramm

procedure BalkenDiagramm(arr: Array of integer; canvas: integer);
var Rand, MaxBreite, MaxHoehe, i: integer;
    balkenBreite, balkenMinValue, balkenMaxValue, y, y0: real;
begin
 selectCanvas(canvas);
 canvas_clear();
 Rand := 50;
 MaxBreite := 400 - 2*Rand;
 MaxHoehe  := 300 - 2*Rand;
 balkenBreite := MaxBreite/length(arr);

 // Minimum und Maximum im Array suchen
 balkenMinValue := 0;
 balkenMaxValue := 0;
 for i := 0 to length(arr)-1 do begin
  if arr[i] < balkenMinValue then balkenMinValue := arr[i];
  if arr[i] > balkenMaxValue then balkenMaxValue := arr[i];
 end;

 // Balken zeichnen
 y0 := balkenMinValue/(balkenMaxValue-balkenMinValue)*MaxHoehe+Rand+MaxHoehe;
 for i := 0 to length(arr)-1 do begin
  y := -MaxHoehe/(balkenMaxValue-balkenMinValue)*arr[i]; 
  canvas_rect(round(Rand+i*balkenBreite),round(y0),round(balkenBreite),round(y));
 end;
end;

Ungeordnete Zufallszahlen:

Geordnete Zufallszahlen:

ZufallsZahlen(Zahlen,50,0,1000);
BalkenDiagramm(Zahlen,1);
BubbleSort(Zahlen);
BalkenDiagramm(Zahlen,2);
writeln('Fertig');

Zufallszahlen, BubbleSort, Balkendiagramme (Pascal)

Inhaltsverzeichnis

Definition und Ausgabe eines eindimensionalen Arrays

Zufallszahlen

BubbleSort

Darstellung im Balkendiagramm

Suche