Реферат Програмування в Turbo Pascal

pan> ), S ( t ), F ( t )

uses graphABC, crt; = array [1 .. 7] of real; = array [1 .. 8] of real; = array [1 .. 8] of real; = array [1 .. 7] of real;, L, Vm, Alfa, a, u, q: real;, y, z: integer;: rasst;: vrem;: Skor;: uskor; = 9.8;: = 0.05;: = 250;: = 15;: = 0.6;

a: = 0.25;

// Pervi grafik, S (t) (2,20, 'S'); (350,250, to 7 do: = q + S [x];: = 250 - (round (q)) * 10;: = y +40; (y, z);; (250,40, ' Ãðàôèê èçìåíåíèÿ ïðîéäåííîãî ïóòè êî âðåìåíè . '); (250,60,' Íàæìèòå "Enter" äëÿ ïðîäîëæåíèÿ . ');;;

// vtoroi grafik, otnowenie skorosti ko vremeni, V (t) (2,20, 'V'); (350,250, to 8 do: = y +40;: = 250 - (round ((Round (V [x] * 150)))); (y, z);; (250,40, ' Ãðàôèê èçìåíåíèÿ ñèëû êî âðåìåíè . '); (250,60,' Íàæìèòå " ; Enter " äëÿ ïðîäîëæåíèÿ . ');;;

// treti grafik, otnowenie uskoreniya ko vremeni, a (t) (2,20, 'a'); (350,250, to 7 do: = 250 - ((trunc ((Fa [x]) * 150))); (y, z, y +40, z);: = y +40;; (250,40, ' Ãðàôèê èçìåíåíèÿ ñèëû êî âðåìåíè . '); (250,60,' Íàæìèòå