Public paste
Trilind
By: Xmoo | Date: Feb 13 2011 11:34 | Format: None | Expires: never | Size: 590 B | Hits: 478

  1. begin
  2. Getal1 := StrToFloat(eWaarde.Text); //Float is getallen achter de comma
  3. //2 x pi x straal
  4.  
  5.   i := 0;
  6.     Omtrek := 2 * pi * Getal1; //Omtrek
  7.   while i <= 9 do
  8.     begin
  9.       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
  10.       Omtrek := Omtrek + 1; //Omtrek +1
  11.       Getal1 := Omtrek / 2 / pi;  //Nieuwe straal
  12.       Verschil := Getal1 / 2 / pi; //Verschil
  13.  
  14.     i := i + 1; //Altijd onderin
  15.     end;
  16.  
  17.   end;