Курсовая

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

нет

да

                                    S1>S2

                                    S2>S1

                                   Конец.