Einführungskurs/Zufallszahlen, BubbleSort, Balkendiagramme (Pascal)

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Definition und Ausgabe eines eindimensionalen Arrays ==

<code id="4d2c06e071d19">
var Zahlen:Array [0..15] of Integer;
procedure fillZahlen;
var i:integer;
begin
 // -5,-4,-3...10
 for i := 0 to 15 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;
</code>

<run id="4d2c06e071f79">
fillZahlen();
ZahlenAusgabe(Zahlen);
</run>

== Zufallszahlen ==

<code id="4d2c06e071d9e">
procedure ZufallsZahlen(var arr:Array of Integer; minimum,maximum:Integer);
var i:Integer;
begin
 for i := 0 to length(arr)-1 do begin
  arr[i] = random(maximum-minimum)+1+minimum;
 end;
end;
</code>

<run id="4d2c06e071ffe">
ZufallsZahlen(Zahlen);
ZahlenAusgabe(Zahlen);
</run>

== BubbleSort ==

<code id="4d2c06e071e1c">
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[i] then begin
    h := arr[i];
    arr[i] := arr[j];
    arr[j] := h;
   end;
  end;
 end;
end;
</code>

<run id="4d06a8dde4fb5">
ZufallsZahlen(Zahlen);
ZahlenAusgabe(Zahlen);
writeln('Sortiert:');
BubbleSort(Zahlen);
ZahlenAusgabe(Zahlen);
</run>

==Darstellung im Balkendiagramm ==
<code id="4d2c06e071ea6">
procedure BalkenDiagramm(arr:Array of Integer; canvas:Integer);
var Rand:Integer;
    MaxBreite:Integer;
    MaxHoehe:Integer;
    balkenBreite, balkenMaxValue, i,y:integer;
begin
 Rand := 50;
 MaxBreite := 400 - 2*Rand;
 MaxHoehe  := 300 - 2*Rand;
 balkenBreite := MaxBreite div length(arr);

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

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

<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
'''Ungeordnete Zufallszahlen:'''
<canvas w="400" h="300"></canvas>
</td>
<td>&nbsp;</td>
<td align="center">
'''Geordnete Zufallszahlen:'''
<canvas w="400" h="300"></canvas>
</td>
</tr>
</table>

<run id="4d2761b36ad6c">
ZufallsZahlen(Zahlen);
BalkenDiagramm(Zahlen,1);
BubbleSort(Zahlen);
BalkenDiagramm(Zahlen,2);
writeln('Fertig');
</run>