Программада While . . .Do қайталану операторын пайдаланайық
program BxrQQozW;
var n, t:integer;
a,v0,h0,VY,VX,V,X,Y:real;
Begin
Writeln('h0, v0 jahne a-dw engxz'); Readln(n,h0,v0,a);
t:=0;
while t<=n Do
Begin
VY:=(v0*sin(3.14*a/180)-9.8*t);
VX:=(v0*cos(3.14*a/180));
V:=sqrt(sqr(v0*sin(3.14*a/180)-9.8*t)+sqr(v0*cos(3.14*a/180)));
X:=(v0*cos(3.14*a/180)*t);
Y:=(h0+v0*sin(3.14*a/180)*t-4.9*sqr(t));
t:=t+1;
end;
Writeln(VY:2:1,' ',VX:2:2,' ',V:2:2,' ',X:2:2,' ',Y:2:2);
end.
Программаны жүргізіп
N h0 v0 a
5 100 10 30 берсек нәтиже
-44.0 8.66 44.65 43.31 2.29
Программаны жүргізіп бұрыш жасай лақтырылған дененің бастапқы жылдамдығы көлбеу бұрышына тәуелділігінің сандық сипаттамасын алыңыз .
Лақтырылу бұрышының бастапқы V0-қа тәуелділілігі
Program VmAbailan;
const g=9.85;
var n,a0:integer;
a,v0,t,s:real;
Begin
Write('n,v0-nw engxz');Readln(n,v0);
For a0:=10 To n Do
begin
a:=(a0*3.14)/180;
t:=v0*sin(a)/g;
S:=v0*cos(a)*2*t;
Writeln(a0:2,' ',T:2:1,' ',S:4:1);
end;
Readln;
end.
Траекторияның қисықтық радиусы
Қисық сызықты қозғалыс-шеңбер доғасы бойымен қозғалыс. Дененің шеңбер бойымен қозғалысы v жылдамдықпен ғана емес, сондай-ақ айналу T периодымен және айналу жиілігімен де сипат- талады. Жылдамдық модулі бұл шамамен бұлайша байланысады:
v=2 πR/T ; v=2 πRn ; v=2 πR/T =2 πRn = ωR- жылдамдықтың сызық тық модулі, шеңбердің радиусы.
a=v²/R=ω²R=ωγ-үдеудің ( центрге тартқыш ) нормаль модулі, ω=2πn=
2 π/T, ω=∆φ/∆t – бұрыштық жылдамдық , ∆φ -∆t уақыт аралы ғындағы бұрылу бұрышы , n- айналу жиілігі ,T=1/n – айналу периоды.
a=v²/r ,a=4π²r/T² ; a=4π²n²r.
Дөңес көпірдің үстімен қозғалыс
1-есеп. Қисықтығының радиусы 90 м дөңес көпірдің ортасына қы- сым түсірмеу үшін автомобиль қандай жылдамдықпен қозғалуы ке- рек ? Бұл жылдамдық автомобильдің массасына тәуелді ме?
F=0,P=m*a,P=mv²/R, v= =30
Mg= mv²/R, v= 7 Жауабы 30 м/c
Ізделінді жылдамдық дене массасына тәуелді емес ,
өйткені ол формулаға кірмейді
P
R O
Программа
Program DohesKohp;
const G=9.81;
Var R,V:real;
begin
Writeln('R-dx engxz');Readln(R);
V:=sqrt(G*R);
Writeln(V:2:2);
End.
29.7 шығады .
Достарыңызбен бөлісу: |
