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

• #2449 kingabo őstag lalbacsi #2448

  Új Válasz 2011-04-05 00:00:19 #2449

  Ú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

  

  kingabo

  őstag

  válasz lalbacsi #2448 üzenetére

  Hali!

  Először is: légy szíves használd a programkód gombot, hogy olvasható legyen az idézett kódod! (pár hsz-el feljebb képpel le van írva hogy hogyan kell!)
  Baromi régen borland pascalban rajzolgattunk, elvileg borland c-ben ugyanazok az fv-k csak nyilván c-s stílusban...

  Pascalos kód: egy "forgó" kereket rajzol ki a képernyő közepére, ha minden igaz, remélem sikerül hasznát venni. (szerintem c-s "szemmel" is olvasható a kód, ha valami nem világos kérdezz, hátha rémlik még )
  uses crt,graph;
  var i,gd,gm,x,y,r,vx1,vx2,vy1,vy2,f:integer;
  ra:real;
  
  function radian(fok:integer):real;
  begin
  radian:=fok*pi/180;
  end;
  begin
  detectgraph(gd,gm);
  initgraph(gd,gm,'c:\bp\bgi');
  f:=30;
  x:=getmaxx; x:=x div 2;
  y:=getmaxy; y:=y div 2;
  r:=100;
  setlinestyle(3,$0101,3);
  circle(x,y,r);
  repeat
  cleardevice;
  setcolor(white);
  circle(x,y,r);
  for i:=1 to 12 do
  begin
  setcolor(white);
  f:=f+30;
  ra:=radian(f);
  vx1:=x+trunc(r*cos(ra));
  vy1:=y+trunc(r*sin(ra));
  line(x,y,vx1,vy1);
  end;
  delay(60);
  for i:=1 to 12 do
  begin
  f:=f+30;
  setcolor(black);
  ra:=radian(f);
  vx1:=x+trunc(r*cos(ra));
  vy1:=y+trunc(r*sin(ra));
  line(x,y,vx1,vy1);
  end;
  
  f:=f-720;
  f:=f+5;
  until keypressed;
  readln;
  end.

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