Új hozzászólás Aktív témák

• #284 Tangerine senior tag lao ce #281

  Új Válasz 2004-12-04 17:05:52 #284

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz lao ce #281 üzenetére

  Ezt találtam a neten:
  
  Function cos(X: Extended): Extended;
  The value x must be in radians. To convert from degrees to radians use DegToRad. For example, cos(60 degrees) in Delphi would be cos(DegToRad(60)) = 0.5.
  
  A lényeg: cos(60 degrees) in Delphi would be cos(DegToRad(60))
  
  A te példád helyesen:
  
  B: Real;
  A: Real;
  C: Real;
  bla bla bla;
  A:=StrToFloat(Edit1.Text);
  B:=Cos(degtorad(A));
  C:=B;
  
  Azaz a C-t ki ishagyhatod.
  
  

Új hozzászólás Aktív témák