zultati raboti:'); i: = 1 to k +1 do [i]: = (i-1) * fi1/k; (fa2) ; (fa2, '3 avisimost N (fi) '); (fa2,' fi N '); i: = 1 to k +1 do begin [i]: = -1 * q1 * p * sin (fi [i] ) * fi [i]; (fa2, fi [i]: 5:2, '', N [i]: 5:2); (fa2); (fa2, '3 avisimost Q (fi) '); (fa2 , 'fi Q'); i: = 1 to k +1 do begin [i]: = q1 * p * cos (fi [i]) * fi [i]; (fa2, fi [i]: 5:2 , '', Q [i]: 5:2); (fa2); (fa2, '3 avisimost M (fi) '); (fa2,' fi M '); i: = 1 to k +1 do begin [ i]: = q1 * p * p * (sin (fi [i]) * fi [i] + cos (fi [i]) - cos (0)); (fa2, fi [i]: 5:2, '', M [i]: 5:2); ('PA6OTA 3ABEPIIIEHA'); (fa2);
repeat until keypressed;.
кривої брус програма алгоритм
7. Результати роботи програми
proektharaktristik krivogo brysadannie: = 0.4 Q = 80000 fi1 = 1.57 k = 15raboti:
avisimost N (fi) N
.00 0.00
.10 -349.92
.21 -1392.04
.31 -3103.48
.42 -5446.59
.52 -8369.48
.63 -11806.95
.73 -15681.51
.84 -19904.70
.94 -24378.54
.05 -28997.18
.15 -33648.69
.26 -38216.94
.36 -42583.59
.47 -46630.14
.57 -50239.98
avisimost Q (fi) Q
.00 0.00
.10 3331.00
.21 6552.43
.31 9556.71
.42 12240.23
.52 14505.26
.63 16261.77
.73 17429.11
.84 17937.59
.94 17729.85
.05 16762.06
.15 15004.92
.26 12444.36
.36 9082.14
.47 4936.07
.57 40.01
avisimost M (fi) M
.00 0.00
.10 69.92
.21 277.39
.31 615.55
.42 1073.12
.52 1634.62
.63 2280.59
.73 2988.04
.84 3730.79
.94 4480.01
.05 5204.76
8. Графічна частина
В
В
9. Аналіз результатів
В результаті роботи програми були визначені залежності нормального зусилля, поперечної сили і згинального моменту від полярної ...