Реферат Дослідження коливань математичного маятника

Тема: Курсовые обзорные

00 + t * 500/Tkon), round (320 - (S-minS) * 300/(maxS-minS)));; setcolor (15); (100,420, 'graphik zavisimosti S (t)'); Zapis_rez; i , z: integer;, V, dt, t: real;;

{$ I-} (rez, 'rezultat.dan'); (rez);: = ioresult;

{I +} z <> 0 then ('oshibka faila'' rezultat.dan'' No:', z);; (1);; (rez, '_________________________________________'); ( rez, '| it VS |'); (rez, '`----------------------------------- ----'' ');: = v0; s: = 0;: = Tkon/n; i: = 1; t: = 0; v = maxV then writeln (rez, i: 4, t: 12: 3, v: 12:5, s: 12:7, '====== maxV') elsev = minV then writeln (rez, i: 4, t: 12:3, v: 12:5, s: 12:7, '====== minV') elses = maxS then writeln (rez, i: 4, t: 12:3, v: 12:5, s: 12:7, '===== = maxS ') elses = minS then writeln (rez, i: 4, t: 12:3, v: 12:5, s: 12:7,' ====== minS ') else (rez, i: 4, t: 12:3, v: 12:5, s: 12:7); вЂ‹вЂ‹i: = 2 to n +1 do: = (i-1) * dt; s: = s + dt * v;: = v-dt * 9.8 * sin (s/l); v = maxV then writeln (rez, i: 4, t: 12:3, v: 12:5, s: 12:7, '===== = maxV ') elsev = minV then writeln (rez, i: 4, t: 12:3, v: 12:5, s: 12:7,' ====== minV ') elses = maxS then writeln ( rez, i: 4, t: 12:3, v: 12:5, s: 12:7, '====== maxS') elses = minS then writeln (rez, i: 4, t: 12: 3, v: 12:5, s: 12:7, '====== minS') else (rez, i: 4, t: 12:3, v: 12:5, s: 12:7) ;; (rez);; vybor; s: char;;; ('1-ishodnue dannye '); ('2-graphik V (t)'); ('3-grafik S (t) '); (' 9-EXIT '); (' sdelaite vybor nazhatiem '); (' sootvetstvyuschei knopki ');; (' rezultat vy4islenei sohranyaetsya v faile'' rezultat.dan'' '); (s);; s = '1' then (v0, l, Tkon, n); _parametrov (v0, l, Tkon, n); _parametrov (v0, l, Tkon, n); _Min (MaxV, MinV, maxS, minS);; s = '2 'then ;;; _koordinat (Tkon, maxV, minV); _V; readkey;; s = '3 '

vybor;;.

7. Результати роботи програми

_________________________________________

| i t V S |

`--------------------------------------- '

0.000 0.05000 0.0000000 ====== maxV

0.045 0.04901 0.0022500

0.090 0.04704 0.0044553

0.135 0.04414 0.0065723

0.180 0.04037 0.0085588

0.225 0.03579 0.0103754

0.270 0.03051 0.0119862