5.Сағаттың секунтық тілінің циферблат бойымен қозғалуын имитациялау.
Цифрблат стрелкасының бір ұшы әрдайым координаталар басында болады да, ал (дөгелек емес) екінші ұшы дөңгелек траектория бойымен қозғалады .
uses crt,graph;
const
a=0;b=2*pi ;mx=100;my=100;
var
dd,rr:integer;
X0,Y0,x1,y1:integer;
x,y,dx:real;
function F(t:real):real;
begin F:=cos(t)
end;
function W(t:real):real;
begin
W:=sin(t)
end;
begin
dd:=detect;
initgraph(dd,rr,'c:\bp\doc\bgi');
X0:=getmaxx div 2;Y0:=getmaxy div 2;
dx:=(b-a)/60;
circle(x0,y0,mx+10);
x:=a;
x1:=round(W(x)*mx+X0);y1:=round(Y0-F(x)*my);
line(X0,Y0,x1,y1);
While xbegin
setcolor(0); line(X0,Y0,x1,y1) ;
x:=x+dx;
x1:=round(W(x)*mx+X0);y1:=round(Y0-F(x)*my);
setcolor(15); line(X0,Y0,x1,y1) ;
delay(30000);
end;
repeat until keypressed;
closegraph
end.
Есептің типі . Физикалық процестерді имитациялы (елестету) модельдеу
Дененің горизонтқа бұрыш жасай ұшуы
X=V0 · cos · t - лақтыру нүктесінен бастап t уақыттан
кейінгі горизонталь бойынша қашықтық
g t2
y=V0 · sin · t - ----- -- лақтыру нүктесінен бастап t уақыттан
2 кейінгі вертикаль (биіктгі) бойынша
қашықтық
2 V0 · sin
Tmax = ------------------ - ең ұзақ ұшу уақыты
g
V02 · sin2
Lmax = -------------------- - ең алыс ұшу аралығы
g
g t2
h = L · tg - ----------------- - денені лақтыру нүктесінен L
2 V02 · cos2 қашықтықтағы биіктігі
Достарыңызбен бөлісу: |
