Public paste
Joost
By: Delphi | Date: Feb 13 2011 12:12 | Format: None | Expires: never | Size: 804 B | Hits: 466

  1. procedure TForm1.Button1Click(Sender: TObject);
  2.  
  3. var Getal1 : Extended;
  4. i : Integer;
  5. Omtrek : Extended;
  6. Verschil : Extended;
  7.  
  8. begin
  9. Getal1 := StrToFloat(eWaarde.Text); //Float is getallen achter de komma
  10. //2 x pi x straal
  11.  
  12.   i := 0;
  13.     Omtrek := 2 * pi * Getal1; //Omtrek
  14.   while i <= 10 do
  15.     begin
  16.       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
  17.       Omtrek := Omtrek + 1; //Omtrek +1
  18.       Getal1 := Omtrek / 2 / pi;  //Nieuwe straal
  19.       Verschil := Getal1 / 2 / pi; //Verschil
  20.  
  21.     i := i + 1; //Altijd onderin
  22.  
  23. end;
  24.  
  25. end;
  26. procedure TForm1.Button2Click(Sender: TObject);
  27. begin
  28. Lijst.Clear;
  29. end;
  30.  
  31. end.