Informatika és tudomány

Hogyan lehet lekerdezni az IP cimet Delphiben?
  • Roll
    #25
    real-el már elfogadja, de furcsa szám jön ki

    Így írtam be:
    var r,t:real;
    pi:real;
    begin
    r:=strtofloat(edit1.text);
    t:=sqr(r)*pi;
    label1.Caption:=floattostr(t);