Курсовая (стр. 1 из 2)
ВАРИАНТ
Задание N5
Cоставить простейшие программы по условиям приведенных ниже задач и записать их на диск.
5.1.Найти площадь сегмента.
 |
Расчетная формула:
 |  |  |  |
где Sсегм —площадь сегмента, см2;
R —радиус круга, см;
a —дуга сегмента, рад.
Исходные данные для расчета приведены в табл.5.1.
Таблица 5.1
| Парметры расчета | R | a |
| Числовые значения | 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.Определить свободную длину винта из условия работы на продольный изгиб.
Расчетная формула:
где hсв - свободная длина винта, мм ;
E - модуль упругости для стали, н/мм2;
J - осевой момент инерции поперечного сечения винта, мм4;
m - коэффициент, учитывающий способ закрепления концов винта;
n - коэффициент запаса прочности ;
F - приложенная осевая сила, н.
Исходные данные для расчета приведены в табл.5.2.
Таблица 5.2
| Параметры расчета | E | J | m | n | F |
| Числовые значения | 2,15.105 | 3,9.104 | 2,0 | 4,0 | 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 | a |
| Числовые значения | 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;
Constp=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 f<f2 Do
Begin
h:=(p*p*e*j)/(m*m*n*f);
Writeln('h=',h:10:5);
f:=f+k;
end;
Readln;
end.
Ход программы
Program zadacha_7b;
uses crt;
Var e,j,m,n,f,f2,h,k:real;
Const p=3.14;
Begin
clrScr;
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);
Repeat
Begin
f:=f+k;
h:=(p*p*e*j)/(m*m*n*f);
Writeln('h=',h:10:5);
Readln;
end;
Until f<f2;
Readln;
end.
Program zadacha_7c;
Var e,j,m,n,f,f2,h,k:real;
Constp=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);
If f<f2 then
Begin
f:=f+k;
h:=(p*p*e*j)/(m*m*n*f);
Writeln('h=',h:10:5);
end;
Readln;
end.
Решение.
Модуль упругости для стали e=2.15e05
Осевой моментинерции поперечного сечения винта j=3.9e04
Коэф., учитывающий способ закрепления концов винта m=2.0
Коэф. запаса прочности n=4.0
Осевая сила, начальное значение f=1e04
Осевая сила, конечное значение f2=1.5e04
Введите шаг k=0.05e04
h=516704.66250
h=492099.67857
h=469731.51136
h=449308.40217
h=430587.21875
h=413363.73000
h=397465.12500
h=382744.19444
h=369074.75893
h=356348.04310
Задание № 8
Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу с организацией цикла типа FOR для определения величины Sсегм. Дополнительные исходные данные приведены в табл. 8.1. Организовать вывод на печать в виде таблицы значений R и Sсегм. Записать программу на диск под новым именем.
Таблица 8.1
| № | R | a |
| 1 | 15,7 | 0,5 |
| 2 | 10,4 | 1,1 |
| 3 | 12,8 | 0,76 |
| 4 | 8,2 | 0,4 |
| 5 | 9,3 | 1,2 |
Ход программы.
Program zadacha_8;
Var r,a,s :array [1..5] of real;
i:integer;
Begin
For i:=1 to 5 do
Begin
Write('введите радиус круга r[',i,']=');
Read(r[i]);
Write('введите длину дуги сегмента a[',i,']=');
Readln(a[i]);
s[i]:=1/(2*r[i]*r[i]*(a[i]-sin(a[i])));
end;
Writeln('---------------------------------------------------------');
Writeln(' № r a s ');
Writeln('---------------------------------------------------------');
For i:=1 to 5 do
Writeln(i, r[i]:17:1,a[i]:17:2,s[i]:17:14);
Readln;
end.
Решение.
введите радиус круга r[1]=15.7
введите длину дуги сегмента a[1]=0.5
введите радиус круга r[2]=10.4
введите длину дуги сегмента a[2]=1.1
введите радиус круга r[3]=12.8
введите длину дуги сегмента a[3]=0.76
введите радиус круга r[4]=8.2
введите длину дуги сегмента a[4]=0.4