Главная / Рефераты / Рефераты по кибернетике

Реферат: Курсовая

Notice: Undefined variable: ref_img in /home/area7ru/area7.ru/docs/referat.php on line 323

ВАРИАНТ 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.Определить свободную длину винта из условия работы на продольный изгиб.
Расчетная формула:
где 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...

ВНИМАНИЕ!
Текст просматриваемого вами реферата (доклада, курсовой) урезан на треть (33%)!

Чтобы просматривать этот и другие рефераты полностью, авторизуйтесь на сайте:

Простая ссылка на эту работу:

Ссылка для размещения на форуме:

HTML-гиперссылка:

Добавлено: 2012.04.08
Просмотров: 1784

Notice: Undefined offset: 1 in /home/area7ru/area7.ru/docs/linkmanager/links.php on line 21

При использовании материалов сайта, активная ссылка на AREA7.RU обязательная!