[i]: = sqr (p) * E * Ipr [i]/sqr (m * l); ;; Z = 2 theni: = 1 to 5 do [i]: = Ikr [i]; [i]: = sqr (p) * E * Ikr [i]/sqr (m * l);;; Z = 3 theni: = 1 to 5 do [i]: = Idv [i]; [i]: = sqr (p) * E * Idv [i]/sqr (m * l);;; Z = 4 theni: = 1 to 5 do [i]: = Ish [i]; [i]: = sqr (p) * E * Ish [i]/sqr (m * l);;; (Fw); (Fw, '') ; (Fw, 'ZAVISIMOST KRITICHESKOY SILI OT MINIMALNOGO MOMENTA INERCII'); (Fw, '------------------------------- --------------------------- '); (Fw,' Imin; '); i: = 1 to 5 do (Fw, Ii [i]: 8:1, ';'); (Fw); (Fw, 'Pk;'); i: = 1 to 5 do (Fw, Pi [i]: 8:1, ';'); ; (Fw, 'STERZHEN.rez'); (Fw); (Fw, 'KURSOVAYA RABOTA'); (Fw, 'po teme:'); (Fw, 'RASCHET STERZHNYA NA USTOYCHIVOST'); (Fw, 'Studentki gr.101459 '); (Fw,' SMOLSKOY E.A '); (Fw,' '); (Fw,' '); (' MATERIAL: '); (' Stal ST3-1 '); (' Derevo -2 '); (' Chugun-3 '); (' VIBERETE I VVEDITE NOMER MATERIALA: '); (N); N = 1 then: = 2 * 100000; Gn: = 200; (Fw,' Modul prodolnoy uprugosti STALI ST3 E = ', E: 1:2,' ',' MPA '); (Fw,' Predelnoe napryazhenie STALI ST3 Gn = ', Gn: 1:1,' ',' MPA '); (Fw,' ');; N = 2 then: = 1 * 100000; Gn: = 180; (Fw,' Modul prodolnoy uprugosti DEREVA E = ', E: 1:2,' ',' MPA '); (Fw,' Predelnoe napryazhenie DEREVA Gn = ', Gn: 1:1,' ',' MPA '); (Fw,' ');; N = 3 then: = 0.1 * 100000; Gn: = 60; (Fw,' Modul prodolnoy uprugosti CHUGUNA E = ', E: 1:2,' ',' MPA '); (Fw,' Predelnoe napryazhenie CHUGUNA Gn = ', Gn: 1:1,' ',' MPA '); (Fw,' ') ;; N of
: Begin Jpr: = 100; (Fw, 'Predelnaya gipkost STALI ST-3 Jpr =', Jpr); (Fw, '');;
: Begin Jpr: = 110; (Fw, 'Predelnaya gipkost DEREVA Jpr =', Jpr); (Fw, '');;
: Begin Jpr: = 80; (Fw, 'Predelnaya gipkost sterzhnya Jpr =', Jpr); (Fw, '');;; ('VVEDITE KOEFFICIENT PRIVIDENIYA DLINI STERZHNYA:'); ( 'Vzavisimosti ot vibrannogo koefficienta opredelyaetsya ocenka ustojchivosti:'); ('esli m = 1 => ustojchivost NORMALNAYA'); ('esli m = 2 => ustojchivost NIZKAYA'); ('esli m = 0.5 => ustojchivost VISOKAYA '); (' esli m = 0.7 => ustojchivost HOROSHAYA '); (' VIDERETE KOEFFICIENT IZ VISHE PERECHISLENNIH: '); (m); m = 0.5 then (Fw,' Tk koefficient privedeniya dlini sterzhnya m = 0.5 ' ); (Fw, '=> ocenka ustoychivosti-VISOKAYA'); (Fw, '');; m = 0.7 then (Fw, 'Tk koefficient privideniya dlini sterzhnya m = 0.7'); (Fw, '=> ocenka ustoychivosti-HOROSHAYA '); (Fw,' ');; m = 1 then (Fw,' Tk koefficient privideniya dlini sterzhnya m = 1 '); (Fw,' => ocenka ustoychivosti-NORMALNAYA '); (Fw...
