Физика сабаќтарында компьютерді пайдалану
Программада While . . .Do қайталану операторын пайдаланайық
жүктеу/скачать 2,49 Mb.
|
- Бұл бет үшін навигация:
- Траекторияның қисықтық радиусы
- Дөңес көпірдің үстімен қозғалыс
| Программада 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 шығады . жүктеу/скачать 2,49 Mb. Достарыңызбен бөлісу:
|