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