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

• #1376 btotyi tag goldboy #1372

  Új Válasz 2006-12-13 18:43:20 #1376

  Ú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

  

  btotyi

  tag

  válasz goldboy #1372 üzenetére

  Nem tudom táblázatosan mit értesz de egy egyszerű progi :
  
  
  
  program Project2;
  
  {$APPTYPE CONSOLE}
  
  uses
    SysUtils;
  
  Var i : integer ;
    r : Extended;
  
  begin
    for i:= 1 to 20 do
    begin
     r := Sin(i) / i;
     Writeln(Format('%2d : %3.2n',[i,r]));
    end;
  end.
  

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