Курсовая

ВАРИАНТ 58

Задание N 5

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

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

Расчетная формула:

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

R —радиус круга, см;

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

Исходные данные для расчета приведены в табл.5.1.

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

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

Program zadacha5_1;

Var r,a,s:real;

Begin

Write("ввудите радиус круга в см. r =");

Readln(r);

Write("введите дугу сегмента в рад а=");

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

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

Блок-схема.

Решение ввудите радиус круга в см. r =220.0 введите дугу сегмента в рад. a=161.3

Площадь сегмента s=0.00000006370

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_2;
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=516704.66250

Задание № 6

Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу для определения наибольшего из двух значений Sсегм. Исходные данные для расчета Sсегм1 приведены в табл.5.1, Sсегм2 - в табл. 6.1. При составлении программы использовать оператор условного перехода. Записать программу на диск под новым именем.

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

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

Program zadacha_6;
Var r,a,s1,s2:real;
Begin
Write("r1=");
Readln(r);
Write("a1=");
Readln(a); s1:=1/(2*r*r*(a-sin(a)));
Writeln("s1=",s1:10:14);
Write("r2=");
Readln(r);
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.00000006370 r2=10.2 a2=0.89 s2=0.04255661272

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

Конец.