Verhältnis Gleichung

[widowmaker2k7]

geeil ich habs hinbekommen.
hab ein wenig rumgebastelt wies hinkommen könnte und es kommen sogar vernünftige werte heraus, die stimmen könnten.

für die, die es interessiert der code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, zahl1, zahl2: integer;
    zeichen:char;
    diagramm1, diagramm2: string[100];
begin
  randomize;
  zeichen:='|';
  zahl1 := random(100)+1;
  zahl2 := random(100)+1;
  label3.Caption:=inttostr(zahl1);
  label4.caption:=inttostr(zahl2);
  if zahl1 > 50 then
    label5.caption:=('ja')
  else
    label5.caption:=('nein');
  if zahl2 > 50 then
    label6.caption:=('ja')
  else
    label6.caption:=('nein');
  if zahl1>zahl2 then
    begin
      for a:= 1 to 100 do
        diagramm1 := diagramm1+zeichen;
      label7.caption:=(diagramm1);
      zahl2:= round(100*(zahl2/zahl1));
      for b:= 1 to zahl2 do
        diagramm2 := diagramm2+zeichen;
      label8.caption:=(diagramm2);
    end
  else
    begin
      for b:= 1 to 100 do
        diagramm2 := diagramm2+zeichen;
      label8.caption:=(diagramm2);
      zahl1:= round(100*(zahl1/zahl2));
      for a:= 1 to zahl1 do
        diagramm1 := diagramm1+zeichen;
      label7.caption:=(diagramm1);
    end
end;
end.

vielen dank new32