Hirdetés
- Luck Dragon: Asszociációs játék. :)
- petipetya: Nagy chili topic. :)
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- gerner1
- GoodSpeed: Kell-e manapság egérpad vagy sem?
- sziku69: Szólánc.
- bambano: Bambanő háza tája
- Pitterix: Gyógytorna
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
- Kijelző került a kamerasávra a Xiaomi 17 Pro és 17 Pro Max hátulján
- Luck Dragon: Asszociációs játék. :)
- Hardcore café
- Battlefield 6
- Soundbar, soundplate, hangprojektor
- Fujifilm X
- A fociról könnyedén, egy baráti társaságban
- Amlogic S905, S912 processzoros készülékek
- Jófogás tapasztalatok
- Drum 'n' bass
- További aktív témák...
- Samsung Galaxy S21 Ultra 256GB, Kártyafüggetlen, 1 Év Garanciával
- Apple Watch SE 2gen 40mm, Kártyafüggetlen, 1 Év Garanciával
- Intel Core Ultra 9 285K - Új, Gari 2028.08.05. -ig - Eladó!
- Lenovo ThinkPad X1 YOGA 3. 2in1 14"FHD TOUCH i5-8250U 8GB DDR4 ,250GB SSD Win11 27%ÁFÁS, ÜZLETBŐL
- ASUS VG248 24 165HZ
- Apple iPhone 13 Mini 128GB /Kártyafüggetlen / 12Hó Garancia / 99% akku
- 159 - Lenovo LOQ (15APH8) - AMD Ryzen 7 7840HS, RTX 4060
- PS5 PlayStation 5 Slim (lemezes, 1TB) kiváló állapotban! 6 Hónap Jótállás
- HP EliteBook 840 G7 i5-10210U 16GB 256GB 14" 400nit 100% sRGB 1 év garancia
- LG 45GS95QX - 45" Ívelt OLED / 2K WQHD / 240Hz 0.03ms / NVIDIA G-Sync / FreeSync Premium / HDMI 2.1
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő

