Ú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.

• #1728 N!tRo tag Thooome #1727

  Új Válasz 2007-01-16 19:06:17 #1728

  Ú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 #1727 üzenetére

  Akkor talán kezdjük ott, hogy egy kör 360 fokra osztható fel. Nem pedig 59-re, ahogy te csinálod.
  Ha 60 pontot akarsz (gondolom órát csinálsz), akkor a 360 fokot felosztod 60 részre és ezekkel a részekkel fogsz rajzolni. Azaz, 6 fokonként rajzolsz ki egy pixelt.
  Kész programot ne kérj, a lényeg, hogy elméleti segítséggel Te oldd meg!

• #1726 N!tRo tag Thooome #1725

  Új Válasz 2007-01-16 18:52:44 #1726

  Ú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 #1725 üzenetére

  Ha a programodban lévő for ciklus változója ( az i ) fok akar lenni és nem radián, gondolom ezt abból, hogy 1-től 59 fokig rajzoljon egy pixelt a képernyőre, akkor a putpixel előtt beírsz egy ilyen sort:
  rad:=i*pi/180;
  
  és a cos meg a sin paramétere a rad változó lesz.
  
  De ha nem ezt akartad, akkor nemtom mit akarsz. Esetleg ha bővebben leírnád mit csinál a program, vagyis mit akarna csinálni ha jól működne, satöbbi.

• #1724 N!tRo tag Thooome #1723

  Új Válasz 2007-01-16 18:38:05 #1724

  Ú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 #1723 üzenetére

  radián = fok*PI/180
  fok = 180*radián/PI
  

• #1722 N!tRo tag Thooome #1721

  Új Válasz 2007-01-16 18:29:18 #1722

  Ú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 #1721 üzenetére

  A sin meg a cos pascal függvények radiánban számolnak.

• #1714 N!tRo tag Thooome #1713

  Új Válasz 2007-01-14 16:49:26 #1714

  Ú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 #1713 üzenetére

  ciklusba csinálsz egy olyan sort hogy ha a ciklusváltozó páros (kettővel osztható) akkor beállítja a színt pirosra (setcolor talán), egyébként meg fehérre állítja a színt.
  
  valami ilyesmi:
  
  for i:= 1 to 10 do
  ...
  if (i mod 2) = 0 then setcolor(red) else setcolor(white);
  ...
  
  

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