gramas
Nowy
Dołączył: 23 Paź 2011
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
 Wysłany: Nie 12:41, 23 Paź 2011 Temat postu: program graficzny |
|
|
chcialem zrobic program wktorym ludzik by sie teleportowal i wystopil problem taki ze jak pisze procedure to mi nierysuje ludzika xD
program Wariat;
uses crt, graph;
procedure l(p,x,y:integer);
begin
if p>0 then
begin
circle(20,20,10);
line(20,30,20,80);
line(20,50,10,40);
line(20,50,30,40);
line(20,80,10,90);
line(20,80,30,90);
delay(4000);
clearviewport;
circle(20+p,20,10);
line(20+p,30,20+p,80);
line(20+p,50,10+p,40);
line(20+p,50,30+p,40);
line(20+p,80,10+p,90);
line(20+p,80,30+p,90);
delay(4000);
clearviewport;
l(40,x+p,y)
end;
end;
var
p:word;
st,tr :integer;
Begin
Detectgraph(st,tr);
initgraph(st,tr, 'c:\fpc\units\tp');
moveto(10,10);
repeat until keypressed;
closegraph;
end.
jesli ktos widzi cos czego ja niewidze lub wie czegos ja niewie jaka funkcje zastosowac prosze o podpowiedz
Post został pochwalony 0 razy
|
|
