- <Lacy85>: Időmilliomosok előnyben - Játékfejlesztés #1
- lezso6: Miért is jó, ha dohányzol?! Megéri rászokni!
- petipetya: Nagy chili topic. :)
- gban: Mentett Pentium 1 alaplapok
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- btz: Internet fejlesztés országosan!
- Brogyi: CTEK akkumulátor töltő és másolatai
- Luck Dragon: Asszociációs játék. :)
Aktív témák
-
labuwx
tag
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.
Aktív témák
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3390, 93% Akkumulátor
- GYÖNYÖRŰ iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3394, 94% Akkumulátor
- Bomba ár! Fujitsu LifeBook U728 - i3-8GEN I 16GB I 192SSD I 12,5" FHD I Cam I W11 I Garancia!
- LG 77C4 - 77" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - 1000 Nits
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest