ratio rechner

[micsie]

Hallo,

dein Programm funktioniert zwar, ich kenne dafür aber kaum eine Einsatzmöglichkeit. Eine solche Aufgabe kann man im Windows-Rechner genauso gut berechnen.
Du solltest deinen Quelltext noch besser formatieren (siehe Delphi Styleguide - http://www.delphi-source.de/grundlagen/styleguide/)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  u,
  d,
  dd,
  uu: real;
begin
  u := strtofloat(edit1.Text);
  d := strtofloat(edit2.text);
  if u < d then
  begin
    uu := (u/u);
    dd := (d/u);
    label1.caption := floattostr(uu);
    label2.caption := floattostr(dd);
  end
  else
  begin
    dd := (d/d);
    uu := (u/d);
    label1.caption := floattostr(uu);
    label2.caption := floattostr(dd);
  end;
end;

mfg micsie