• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Turbo Pascal animacja pajacyka

0 głosów
73 wizyt
pytanie zadane 13 lutego w Rozwój zawodowy, nauka, szkoła, praca przez MatKol Nowicjusz (120 p.)
Cześć, programuje sobie w Turbo Pascalu i dostałem zadanie aby pajacyk, którego kod już zrobilem, wykonywał animacje machania rękoma i nogami i tutaj jest problem. Ktoś wie jak to zrobić? Szukałem pomocy na wielu forach ale bez skutecznie.

Dziękuję z góry

Kod:

PROGRAM PAJACYK;
uses crt,graph,math,dos;
var
r1,x0,y0,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8,t,w,r,alfa,beta,gamma,w1,w2,w3,h,m,s,ss, I:integer;
karta, tryb:integer;
begin
karta:=detect;
tryb:=detect;
initgraph(karta,tryb,'C:\Users\egzamin\Desktop');
x0:=ROUND(GETMAXX/2);
y0:=ROUND(200);
r:=40;
circle(x0,y0,r);
t:=100;
r1:=1;
OUTTEXTXY(845,800,'Lukasz Zalewski II TI');
alfa:=60;
beta:=30;
x1:=ROUND(GETMAXX/2);
y1:=(239);
x2:=ROUND(GETMAXX/2);
y2:=(500);
x3:=ROUND(GETMAXX/2);
y3:=(290);
x4:=(780);
y4:=(330);
x5:=(1140);
y5:=(330);
x6:=(840);
y6:=(660);
x7:=(1080);
y7:=(660);
x8:=ROUND(GETMAXX/2);
y8:=(500);
line(x1,y1,x2,y2);
line(x3,y3,x4,y4);
line(x3,y3,x5,y5);
line(x8,y8,x6,y6);
line(x8,y8,x7,y7);
begin
for i:=1 to 100 do;
x3:=ROUND(x1+r*sin(alfa*pi/180));
y3:=ROUND(y1-r*cos(alfa*pi/180));

end;

readln();
closegraph;
end.

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

0 głosów
2 odpowiedzi 136 wizyt
pytanie zadane 27 grudnia 2016 w Pascal, Delphi przez ProgramistaGaben Nowicjusz (140 p.)
0 głosów
1 odpowiedź 92 wizyt
pytanie zadane 10 stycznia 2016 w Pascal, Delphi przez xyz Nowicjusz (120 p.)
+1 głos
3 odpowiedzi 151 wizyt
Porady nie od parady
Komentarze do pytań nie służą do odpowiadania, od tego jest wydzielona sekcja odpowiedzi. Funkcją komentarzy jest natomiast możliwość uzyskania dodatkowych informacji na temat samego posta.Komentarze

53,116 zapytań

96,375 odpowiedzi

197,331 komentarzy

25,939 pasjonatów

Przeglądających: 244
Pasjonatów: 21 Gości: 223

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto dwie polecane książki warte uwagi. Pełną listę znajdziesz tutaj.

...