Курсовая

Загрузка...

главная страница Рефераты Курсовые работы текст файлы добавьте реферат (спасибо :)Продать работу

поиск рефератов

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

скачать
похожие рефераты • Точное совпадение: 3 реферата
подобные качественные рефераты

Размер: 28.9 кб.
Язык: русский
Разместил (а): Zeus
09.09.2006
1 2    

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






Ход программы.

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<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;

   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);

   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             


    продолжение
1 2    

Добавить реферат в свой блог или сайт
Удобная ссылка:

Скачать реферат бесплатно
подобрать список литературы


Курсовая


Постоянный url этой страницы:
Реферат Курсовая


Разместите кнопку на своём сайте:
Рефераты
вверх страницы


© coolreferat.com | написать письмо | правообладателям | читателям
При копировании материалов укажите ссылку.