procedure TForm1.Button1Click(Sender: TObject);

 

var Getal1 : Extended;

i : Integer;

Omtrek : Extended;

Verschil : Extended;

 

begin

Getal1 := StrToFloat(eWaarde.Text); //Float is getallen achter de komma

//2 x pi x straal

 

  i := 0;

    Omtrek := 2 * pi * Getal1; //Omtrek

  while i <= 10 do

    begin

      Lijst.Items[i] := 'De omtrek is: ' +FloatToStrF(Omtrek,ffFixed,4,2) +', de straal is: ' +FloatToStrF(Getal1,ffFixed,4,2) +' en het verschil is: ' +FloatToStrF(Verschil,ffFixed,4,2) +'.';  //Tekst laten zien

      Omtrek := Omtrek + 1; //Omtrek +1

      Getal1 := Omtrek / 2 / pi;  //Nieuwe straal

      Verschil := Getal1 / 2 / pi; //Verschil

 

    i := i + 1; //Altijd onderin

 

end;

 

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Lijst.Clear;

end;

 

end.