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

Turbo Pascal animacja pajacyka

Konferencja JOIN! 2018
0 głosów
76 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 150 wizyt
pytanie zadane 27 grudnia 2016 w Pascal, Delphi przez ProgramistaGaben Nowicjusz (140 p.)
0 głosów
1 odpowiedź 97 wizyt
pytanie zadane 10 stycznia 2016 w Pascal, Delphi przez xyz Nowicjusz (120 p.)
+1 głos
3 odpowiedzi 156 wizyt
Porady nie od parady
Wynikowy wygląd pytania, odpowiedzi czy komentarza, różni się od tego zaprezentowanego w edytorze postów. Stosuj więc funkcję Podgląd posta znajdującą się pod edytorem, aby upewnić się, czy na pewno ostateczny rezultat ci odpowiada.Podgląd posta

55,338 zapytań

99,679 odpowiedzi

205,105 komentarzy

27,274 pasjonatów

Przeglądających: 340
Pasjonatów: 21 Gości: 319

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.

...