Ładny brzuch
program kl;
uses crt, graph;
var
tryb, karta,i,x : integer;
procedure dom;
begin
rectangle(100,100,200,200);
end;
procedure droga;
begin
line(0,450,680,450);
line(0, 350,680,350);
end;
procedure samochod(x:integer);
begin
rectangle(x,380, x+100,420);
end;
begin karta := detect;
initgraph(karta, tryb, 'c:\tp');
dom;
droga;
for i := 1 to 500 do
begin
setcolor(white);
samochod(x+i);
delay(100);
setcolor(black);
samochod(x+1);
end;
readkey;
closegraph;
end.
Napisaem ten kod, chodzi mi o to aby porusza sie tylko samochod. Jak poprawi ten kod eby byo wida zawsze tylko kwadrat a nie tak jak jest teraz!!!
Witam.
Z tego co tu widz to w 5 lini od dou jest:
samochod(x+1);
a powinno by chyba:
samochod(x+i);
Powinno dziaa.
Pozdrawiam...
Uytkownik mefju edytowa ten post 24 kwiecie 2006, 19:58
TEMAT ZAMKNITY - DZIEKI
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Napisaem ten kod, chodzi mi o to aby porusza sie tylko samochod. Jak poprawi ten kod eby byo wida zawsze tylko kwadrat a nie tak jak jest teraz!!!
Witam.
Z tego co tu widz to w 5 lini od dou jest:
samochod(x+1);
a powinno by chyba:
samochod(x+i);
Powinno dziaa.
Pozdrawiam...
Uytkownik mefju edytowa ten post 24 kwiecie 2006, 19:58
TEMAT ZAMKNITY - DZIEKI