ify"> program kursovoi_variant_24; graph, crt;, rez: text;,,: integer;, l, Tkon: real;: integer;, minV, maxS, minS: real; schityvanie (var v0, l , Tkon: real; var n: integer); z: integer;: char;;
{$ I-} (dan, 'dannye.dan'); (dan);: = ioresult;
{I +} z <> 0 then ('oshibka faila'' dannye.dan'' No:', z),, (1);, (dan, s), (dan, s); (dan, v0); (dan, l); (dan, Tkon); (dan, n); (dan);; vvod_parametrov (var v0, l, Tkon: real; var n: integer); i : integer;: char;; ('ishodnymi dannumi yavlyautsa:'); ('na4al'' naya skorost'' Vo:', v0: 4:3); ('dlinna niti mayatnika L:', l: 4:3 ); ('kone4noe vremya Tkon:', tkon: 4:3); ('koli4estvo razbienei po vremeni n:', n); ('Vi hotite izmenit'' eti dannye?'); ('Da-y, Net - n, sdelaite vybor: '); (s); (s =' y ') or (s =' Y ') then (' vvedite na4al'' nuju skorost'' Vo: '); (v0); (' vvedite dlinnu niti mayatnika L: '); (l); (' vvedite kone4noe vremya Tkon (v sekundah): '); (Tkon); (' vvedite koli4estvo razbienei po vremeni n: '); (n);; (s = 'n') or (s = 'N') then break (s = 'n') or (s = 'N');; zapis_parametrov (v0, l, Tkon: real; n: integer); z: integer ;: char;;
{$ I-} (dan, 'dannye.dan'); (dan);: = ioresult;
{I +} z <> 0 then ('oshibka faila'' dannye.dan'' No:', z);; (1);; (dan, 'na4al'' nymi dannymi yavlyautsa: '); (dan,' Vo L Tkon n '); (dan, v0: 10:3); (dan, l: 10:3); (dan, Tkon: 10:3); (dan, n : 10); (dan);; Max_Min (var MaxV, MinV, maxS, minS: real); i: integer;, V, dt, t: real;: = v0; s: = 0; maxS: = s; minS: = s; maxV: = v; minV: = v;: = Tkon/n; i: = 1; t: = 0; i: = 2 to n +1 do: = (i-1) * dt; : = v-dt * 9.8 * sin (s/l);: = s + dt * v; maxS s then minS: = s; maxV v then to 10 to 10 do; (1,1,1); (8); (103,20 +30 * (i-1), then ('proizoshla oshibka grafiki:', grapherrormsg (errorCode)); ('rabota programmy 320 - (V-minV) * 300/(maxV-minV))); i: = 2 to n +1 do: = (i-1) * dt;: = v-dt * 9.8 * sin (s/l );: = s + dt * v; (v: 4:4, zn1); v = maxV then begin x: = getX; y: = getY;: = 'maxV =' + zn1; (100,380, zn1); moveTo (x, y);; v = minV then begin x: = getX; y: = getY;: = 'minV =' + zn1; (100,400, zn1); moveTo (x, y);; (round (100 + t * 500/Tkon), round (320 - (V-minV) * 300/(maxV-minV)));; (15); outTextXY (100,420, 'graphik zavisimosti 320 - (s-mins) * 300/(maxS-minS))); i: = 2 to n +1 do: = (i-1) * dt;: = v-dt * 9.8 * sin (s/l );: = s + dt * v; (S: 4:4, zn1); s = maxS then begin x: = getX; y: = getY;: = 'maxS =' + zn1; (100,380, zn1); moveTo (x, y);; S = minS then begin x: = getX; y: = getY;: = 'minS =' + zn1; (100,400, zn1); moveTo (x, y);; (round (1...
