hi czy jest ktoś mądry i może wie jak napisac program w pascalu który przemieszcza okrąg od lewej do prawej, sztafete z tym okregiem , od dolengo rogu do przeciwnego oraz po sinusoidzie szczerze to ja nie mam pojęcia ale jak byście mieli infę z ogórem życze powodzenia :-D
Takie zlecenia to do działu Praca. Albo napisz, CZEGO NIE UMIESZ zrobić, ewentualnie pokaż, co już zrobiłeś.
wiem jak zrobić grafikę tylko chodzi mi o animację jak zrobić żeby to kolko sie ruszało?
jmasz dwa integery pozycja x i y tam wstawiasz wartosci
np. x := x -1;
i powinno w lewo leciec
kąt :single;
po sinusoidzie Sin(kąt * (3.140/ 180.0) );
r:integer;
for r:=0 to 359 do begin
x = rSin(kąt * (3.140/ 180.0) );
y = rSin(kąt * (3.140/ 180.0) );
end;
moze byc problem z zamiana float na int
Dajesz pętlę Repeat o warunku Until ReadKey a w niej po każdym wyliczeniu nowej wartości dajesz Delay(x).
thx a jak zrobić sztafetę (2 kółka 1 przybija to drugieodbija i na zmianę)?
z tym sinusem cos nie tak;)
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.