Курсова

ВАРІАНТ 58.

Завдання N 5.

Cоставить найпростіші програми з умовам наведених нижче завдань і записати їх у диск.

5.1.Найти площа сегмента.

Розрахункова формула:

где Sсегм —площа сегмента, см2;

R —радіус кола, см;

(—дуга сегмента, рад.

Вихідні дані до розрахунку наведені у табл.5.1.

Таблиця 5.1 |Парметры | R | (| |розрахунку | | | |Числові | 220,0| 161,3| |значення | | |.

Ход программы.

Program zadacha5₁;

Var r, a, s:real;

Begin.

Write («ввудите радіус кола в див. r = «);

Readln®;

Write («введіть дугу сегмента в радий а= «);

Readln (a); s:=1/(2*r*r*(a-sin (a)));

Writeln («Площа сегмента p. s= «, s:17:13); end.

Блок-схема.

Рішення ввудите радіус кола в див. r =220.0 введіть дугу сегмента в радий. a=161.3.

Площа сегмента s=0.6 370.

5.2.Определить вільну довжину гвинта з умови роботи з подовжній изгиб.

Розрахункова формула:

[pic][pic][pic][pic][pic] де hсв — вільна довжина гвинта, мм ;

E — модуль пружності для стали, н/мм2;

J — осьової момент інерції поперечного перерізу гвинта, мм4;

(- коефіцієнт, враховує спосіб закріплення кінців гвинта; n — коефіцієнт запасу міцності ;

F — прикладена осьова сила, н.

Вихідні дані до розрахунку наведені у табл.5.2.

Таблиця 5.2 |Параметри | E | J | (| n | F | |розрахунку | | | | | | |Числові |2,15.10| | 2,0| 4,0 | 104| |значення |5 |3,9.104| | | |.

Ход програми. Program zad5₂; Var e, j, m, n, f, h: real; Const p=3.14; Begin Write («Модуль пружності для стали, e= «); Readln (e); Write («Осьової момент інерції поперечного перерізу гвинта j= «); Readln (j); Write («Коефіцієнт, враховує спосіб закріплення кінців гвинта m= «); Readln (m); Write («Коефіцієнт запасу міцності n= «); Readln (n); Write («Прикладена осьова сила f= «); Readln (f); h:=(p*p*e*j)/(m*m*n*f); Writeln («Вільна довжина гвинта h= «, h:10:5); end. Блоксхема.

Решение. Модуль пружності для стали, e=2.15e05 Осьової момент інерції поперечного перерізу гвинта j=3.9e04 Коефіцієнт, враховує спосіб закріплення кінців гвинта m=2.0 Коефіцієнт запасу міцності n=4.0 Прикладена осьова сила f=1e04 Вільна довжина гвинта h=516 704.66250.

Завдання № 6.

Завантажити в оперативну пам’ять комп’ютера програму, розроблену в завданні 5.1. Для її основі скласти програму визначення найбільшого з цих двох значень Sсегм. Вихідні дані до розрахунку Sсегм1 наведені у табл.5.1, Sсегм2 — в табл. 6.1. Під час упорядкування програми використовувати оператор умовного переходу. Записати програму на диск під новим именем.

Таблиця 6.1 |Параметри | R | (| |розрахунку | | | |Числові | 10,2 | 0,89 | |значення | | |.

Ход программы.

Program zadacha₆; Var r, a, s1,s2:real; Begin Write («r1= «); Readln®; Write («a1= «); Readln (a); s1:=1/(2*r*r*(a-sin (a))); Writeln («s1= «, s1:10:14); Write («r2= «); Readln®; Write («a2= «); Readln (a); s2:=1/(2*r*r*(a-sin (a))); Writeln («s2= «, s2:10:14); Readln; If s1>s2 then Writeln («s1>s2 ») Else Writeln («s2>s1 ») end. Блок схема.

Решение.

r1=220.0 a1=161.3 s1=0.6 370 r2=10.2 a2=0.89 s2=0.4 255 661 272.

s2>s1.

Завдання № 7.

Завантажити в оперативну пам’ять комп’ютера програму, розроблену в завданні 5.2. Для її основі скласти програму з кроком (цикл з певним числом повторень), використовуючи додаткові вихідні дані з таблиці 7.1. Передбачити висновок на печатку всіх отриманих значень hсв.

Програму скласти у трьох варіантах: а. Використовуючи оператори WHILE … DO; б. Використовуючи оператори REPEAT … UNTIL; в. Використовуючи оператор IF.

Записати все варіанти програми на диск.

Таблиця 7.1 | Осьова сила, F | Початкова | Кінцеве | Крок | | | | | | | |значення |значення |зміни | | Числові | 104 | 1,5.104 | 0,05.104 | |значення | | | |.

Ход програми. Program zadacha_7a; Var e, j, m, n, f, f2, h, k: real; Const p=3.14; Begin Write («Модуль пружності для стали e= «); Readln (e); Write («Осьової моментинерции поперечного перерізу гвинта j= «); Readln (j); Write («Коэф., враховує спосіб закріплення кінців гвинта m= «); Readln (m); Write («Коэф. запасу міцності n= «); Readln (n); Write («Осьова сила, початкова значення f= «); Readln (f); Write («Осьова сила, кінцеве значення f2= «); Readln (f2); Write («Запровадьте крок k= «); Readln (k); While fS1.

Конец.