Aktív témák

• #60 labuwx tag Jester01 #59

  2008-12-13 23:05:33 #60

  Ö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

  

  labuwx

  tag

  válasz Jester01 #59 üzenetére

  Nekem működik, de itt a kód:

  program gazok;
  uses graph,crt;
  const
  pontdb=100;
  x1 =0;
  y1 =0;
  x2 =170;
  y2 =100;
  var
  x,y,vx,vy:array[1..pontdb] of integer;
  a,b,i:integer;
  begin
  a:=detect;
  initgraph(a,b,'BGI');
  rectangle(x1,y1,x2,y2);
  randomize;
  for i:=1 to pontdb do
  begin
  x[i]:=random(150)+10;
  y[i]:=random(80)+10;
  vx[i]:=random(7)-3;
  while vx[i]=0 do vx[i]:=random(7)-3;
  vy[i]:=random(7)-3;
  while vy[i]=0 do vy[i]:=random(7)-3;
  end;
  repeat
  delay(32000);
  for i:=1 to pontdb do
  begin
  putpixel(x[i],y[i],black);
  x[i]:=x[i]+vx[i];
  y[i]:=y[i]+vy[i];
  putpixel(x[i],y[i],yellow);
  if (x[i]<=x1-vx[i]) or (x[i]=>x2-vx[i]) then vx[i]:=-vx[i];
  if (y[i]<=y1-vy[i]) or (y[i]=>y2-vy[i]) then vy[i]:=-vy[i];
  end;
  until keypressed;
  closegraph;
  end.

• #58 labuwx tag

  2008-12-13 19:10:03 #58

  Ö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

  

  labuwx

  tag

  Sziasztok!
  Az lenne a gondom, hogy van egy feladat(téglalapban pattognak a pontok) amihez kellene a graph unit. A suliban elkezdtem turbo pascalban és hazahoztam befejezni, de a 64bites vista miatt freepascalban próbáltam folytatni, de csak odáig jut el, hogy megrajzolja a téglalapot és áll. Szerintem a freepascal graph unitja más mint a tpé (ha igen pls adjatok egy leírást a parancsokról). Forráskód
  A segítséget előre is köszönöm.

Aktív témák