, '');; m = 2 then (Fw, 'Tk koefficient privideniya dlini sterzhnya m = 2'); (Fw, '=> ocenka ustoychjvosti-NIZKAYA'); (Fw, '');;: = 3.14 ; ('VVEDITE DLINU STERZHNYA l (m)'); (l); ('VIBERETE SECHENIE:'); ('PRYAMOUGOLNOE-1'); ('KRUGLOE-2'); ('DVUTAVR-3'); ( 'SHVELLER-4'); (Z); Z = 1 then ('VVEDITE visotu hi shirinu d'); (h, d);: = h * d;: = (d * h * h * h)/12 ; (Fw, 'PLOSCHAD PRYAMOUGOLNOGO POPERECHNOGO SECHENIYA F =', F: 1:2, '', 'mkv'); (Fw, 'MINIMALNIY MOMENT INERCII DLYA PRYMOUGOLNOGO POPERECHNOGO SECHENIYA Imin =', Imin: 1:2, '' , 'm4');; Z = 2 then ('VVEDITE radius R'); (r);: = p * sqr (R);: = (p * 32 * R * R * R * R)/64; (Fw, 'PLOSCHAD KRUGLOGO POPERECHNOGO SECHENIYA F =', F: 1:2, '', 'mkv'); (Fw, 'MINIMALNIY MOMENT INERCII DLYA KRUGLOGO POPERECHNOGO SECHENIYA Imin =', Imin: 1:2, '', 'm4');; Z = 3 then ('VVEDITE NOMER DVUTAVRA'); ('Nomer 10-1'); ('Nomer 12-2'); ('Nomer 14-3'); ('Nomer 16 - 4 '); (' Nomer 18-5 '); (K); K = 1 then: = 12;: = 1.98; (Fw,' PLOSCHAD DVUTAVROVOGO POPERECHNOGO SECHENIYA # 10 F = ', F: 1:2,' ',' mkv '); (Fw,' MINIMALNIY MOMENT INERCII DVUTAVROVOGO POPERECHNOGO SECHENIYA # 10 Imin = ', Imin: 1:2,' ',' m4 ');; K = 2 then: = 14.7;: = 3.50; (Fw, 'PLOSCHAD DVUTAVROVOGO POPERECHNOGO SECHENIYA # 12 F =', F: 1:2, '', 'mk'); (Fw, 'MINIMALNIY MOMENT INERCII DVUTAVROVOGO POPERECHNOGO SECHENIYA # 10 Imin =', Imin: 1:2, '', 'm4');; K = 3 then: = 17.4;: = 5.72; (Fw, 'PLOSCHAD DVUTAVROVOGO POPERECHNOGO SECHENIYA # 14 F =', F: 1:2, '', 'mkv'); ( Fw, 'MINIMALNIY MOMENT INERCII DVUTAVROVOGO POPERECHNOGO SECHENIYA # 14 Imin =', Imin: 1:2, '', 'm4');; K = 4 then: = 20.2;: = 8.73; (Fw, 'PLOSCHAD DVUTAVROVOGO POPERECHNOGO SECHENIYA # 16 F = ', F: 1:2,' ',' mkv '); (Fw,' MINIMALNIY MOMENT INERCII DVUTAVROVOGO POPERECHNOGO SECHENIYA # 16 Imin = ', Imin: 1:2,' ',' m4 '); ; K = 5 then: = 23.4;: = 12.90; (Fw, 'PLOSCHAD DVUTAVROVOGO POPERECHNOGO SECHENIYA # 18 F =', F: 1:2, '', 'mkv'); (Fw, 'MINIMALNIY MOMENT INERCII DVUTAVROVOGO POPERECHNOGO SECHENIYA # 18 Imin = ', Imin: 1:2,' ',' m4 ');;; Z = 4 then (' VVEDITE NOMER SHVELLERA '); (' NOMER 5-1 '); (' NOMER 8-2 '); (' NOMER 10-3 '); (' NOMER 12-4 '); (' NOMER 14-5 '); (W); W = 1 then: = 6.16;: = 0.228; (Fw,' PLOSCHAD SHVELLEROGO POPERECHNOGO SECHENIYA # 5 F = ', F: 1:2,' ',' mkv '); (Fw,' MINIMALNIY MOMENT INERCII SHVELLEROGO POPERECHNOGO SECHENIYA # 5 Imin = ', Imin: 1:2,' ',' m4 ');; W = 2 then: = 8.98;: = 0....
