Dzielenie i zerowy wynik

0

Witam
Z pozoru prosta sprawa, a jednak nie mogę sobie z nią poradzić. Mam np i=20(typ integer) i po podzieleniu r=i/100, gdzie r jest typu real, r przyjmuje wartość 0. Dlaczego tak się dzieje? Jak można to naprawić tak, aby r=0.20? Z góry dzięki,
Tomasz Wendland</delphi>

0

r := i/100.0
albo
r := double(i)/100

0

procedure TForm1.Button1Click(Sender: TObject);
var
r,i,wynik:real;
begin
r:=20;
i:=100;
wynik:=r/i;
edit1.Text:=FloatToStrF(wynik,fffixed,6,2);//'2' to l. miejsc po przecinku
end;

Wynik wynosi 0,20.
O to Ci chodziło?:)

// o i typu integer... czytaj ze zrozumieniem [mf]

1 użytkowników online, w tym zalogowanych: 0, gości: 1