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

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

ВАРИАНТ 58

Задание N 5 

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

Страницы: 1, 2