Пример: Транспортная логистика
Я ищу:
На главную  |  Добавить в избранное  

Кибернетика /

Курсовая



Скачать реферат


ВАРИАНТ 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.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 

Числовые значения 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 f




Copyright © 2005—2007 «Mark5»