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

• #1730 N!tRo tag Thooome #1729

  Új Válasz 2007-01-16 19:14:08 #1730

  Ú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

  

  N!tRo

  tag

  válasz Thooome #1729 üzenetére

  Én is megcsináltam hirtelen:
  
  program ora;
  uses crt, graph;
  var um,mh,i: integer;
  rad:real;
  begin
  mh:=detect;
  initgraph(um,mh,'');
  for i:= 0 to 59 do
  begin
  rad:=6*i*pi/180;
  putpixel(round(cos(rad)*100+320),round(sin(rad)*100+240),WHITE);
  end;
  readln;
  end.

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