KpocaB4er16
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Задали задачу, круг должен лететь по параболе. но у меня этот круг не летит а делает какие то непонятные движения! помогите исправить!
uses graph,crt;
var b,m:integer;x,y:real;x0,y0:integer; A,C,t,w,gi,fi:integer;i:integer;
begin
b:=detect;
InitGraph(b,m,'');
writeln('zadaute Hachalnie koopgunati',x0,y0);
readln(x0,y0);
writeln('zadaute A u C',A,C);
readln(A,C);
writeln('zadaute w,gi,fi');
readln(w,gi,fi);
for t:=1 to 200 do begin
x:=x0+A*cos(w*t+gi);
y:=y0+C*sin(w*t+fi);
x0:=round(x);
y0:=round(y);
PutPixel(x0,y0,10);
delay(5000);
putpixel(x0,y0,0);
end;
end.
у меня здесь вариант с точкой, надо круг. |
