Войти на сайт

или
Регистрация

Навигация


Курсовая

12424
знака
10
таблиц
0
изображений

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

 

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

Program zadacha_8;

Var r,a,s :array [1..5] of real;

i:integer;

Begin

For i:=1 to 5 do

Begin

Write('введите радиус круга r[',i,']=');

Read(r[i]);

Write('введите длину дуги сегмента a[',i,']=');

Readln(a[i]);

s[i]:=1/(2*r[i]*r[i]*(a[i]-sin(a[i])));

end;

Writeln('---------------------------------------------------------');

Writeln(' № r a s ');

Writeln('---------------------------------------------------------');

For i:=1 to 5 do

Writeln(i, r[i]:17:1,a[i]:17:2,s[i]:17:14);

Readln;

end.

 

Решение.

введите радиус круга r[1]=15.7

введите длину дуги сегмента a[1]=0.5

введите радиус круга r[2]=10.4

введите длину дуги сегмента a[2]=1.1

введите радиус круга r[3]=12.8

введите длину дуги сегмента a[3]=0.76

введите радиус круга r[4]=8.2

введите длину дуги сегмента a[4]=0.4

введите радиус круга r[5]=9.3

введите длину дуги сегмента a[5]=1.2

---------------------------------------------------------

 № r a s

---------------------------------------------------------

1 15.7 0.50 0.09859212439

2 10.4 1.10 0.02214053650

3 12.8 0.76 0.04293500082

4 8.2 0.40 0.70273015694

5  9.3 1.20 0.02157409847

 

 

Задание № 9 

Составить программу, содержащую цикл, для вычисления следующей суммы: 

Расчет выполнить по двум вариантам: 1. В качестве ak принять значения a из таблицы 10.1; 2. В качестве ak принять значения R из таблицы 10.1.

 

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

Program zadacha_9;

 Var c,a:real;

 z,n:integer;

Begin

Write('Введите количество значений а ');

Readln(n);

For z:=1 to n do

Begin

Write('a=');

Readln(a);

c:=3*a+c;

end;

c:=1+c;

Writeln('С=',c:1:2);

Readln;

end.

Решение 1.

Введите количество значений а 4

a=0.5

a=0.4

a=0.7

a=0.8

С=8.20

Решение 2.

Введите количество значений а 5

a=15.7

a=14.2

a=16.4

a=10.3

a=8.1

С=195.10

 

Задание № 10 

Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу с организацией вложенного цикла типа FOR для определения всех возможных значений Sсегм при изменении параметров R и a. Значения параметров R и a приведены в таблице 10.1. Организовать вывод на печать в виде таблицы значений R, a и Sсегм. Записать программу на диск под новым именем.

Таблица 10.1

Параметр 1 2 3 4 5
R 15,7 14,2 16,4 10,3 8,1
a 0,5 0,4 0,7 0,8 ───

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

Program zadacha_10;

Var r,a :array [1..5] of real;

s:array [1..5,1..5] of real;

i,j:integer;

Begin

For i:=1 to 5 do

Begin

Write('Введите r[',i,']=');

Read(r[i]);

end;

For i:=1 to 4 do

Begin

Write('Введите a[',i,']=');

Readln(a[i]);

end;

Writeln('r a s');

For i:=1 to 5 do

For j:=1 to 4 do

 Begin

s[i,j]:=1/(2*r[i]*r[i]*(a[j]-sin(a[j])));

end;

Writeln('---------------------------------------------------------');

Writeln(' № r a s ');

Writeln('---------------------------------------------------------');

For i:=1 to 5 do

For j:=1 to 4 do

Writeln(i:3,j:2,r[i]:15:1,a[j]:15:1,s[i,j]:16:8);

Writeln('---------------------------------------------------------') ;

Readln;

end.

 

Решение.

 

Введите r[1]=15.7

Введите r[2]=14.2

Введите r[3]=16.4

Введите r[4]=10.3

Введите r[5]=8.1

Введите a[1]=0.5

Введите a[2]=0.4

Введите a[3]=0.7

Введите a[4]=0.8

---------------------------------------------------------

№ r a s

---------------------------------------------------------

1 1 15.7 0.5 0.09859212

1 2 15.7 0.4 0.19169774

1 3 15.7 0.7 0.03636421

1 4 15.7 0.8 0.02454482

2 1 14.2 0.5 0.12052159

2 2 14.2 0.4 0.23433632

2 3 14.2 0.7 0.04445256

2 4 14.2 0.8 0.03000423

3 1 16.4 0.5 0.09035534

3 2 16.4 0.4 0.17568254

3 3 16.4 0.7 0.03332620

3 4 16.4 0.8 0.02249425

4 1 10.3 0.5 0.22906940

4 2 10.3 0.4 0.44539142

4 3 10.3 0.7 0.08448878

4 4 10.3 0.8 0.05702755

5 1 8.1 0.5 0.37040044

5 2 8.1 0.4 0.72018863

5 3 8.1 0.7 0.13661659

5 4 8.1 0.8 0.09221236

---------------------------------------------------------

 

Задание № 11

Изменить программу, разработанную в задании № 10, использовав для ввода массивов процедуру.

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

Program zadacha_11;

Type massiv=array [1..5] of real;

Procedure q(var z:massiv; n:integer; x:char);

Var i:integer;

Begin

For i:=1 to n do

Begin

Write('Введите ',x,'[',i,']=');

Readln(z[i]);

end;

end;

Var r,a :massiv;

s:array [1..5,1..5] of real;

i,j,n:integer;

Begin

n:=5;

q(r,n,'r');

n:=4;

q(a,n,'a');

Writeln('r a s');

For i:=1 to 5 do

For j:=1 to 4 do

 Begin

s[i,j]:=1/(2*r[i]*r[i]*(a[j]-sin(a[j])));

end;

Writeln('---------------------------------------------------------');

Writeln(' № r a s ');

Writeln('---------------------------------------------------------');

For i:=1 to 5 do

For j:=1 to 4 do

Writeln(i:3,j:2, r[i]:15:1,a[j]:15:1,s[i,j]:16:8);

Writeln('---------------------------------------------------------') ;

Readln;

end.

Решение.

Введите r[1]=15.7

Введите r[2]=14.2

Введите r[3]=16.4

Введите r[4]=10.3

Введите r[5]=8.1

Введите a[1]=0.5

Введите a[2]=0.4

Введите a[3]=0.7

Введите a[4]=0.8

---------------------------------------------------------

№ r a s

---------------------------------------------------------

1 1 15.7 0.5 0.09859212

1 2 15.7 0.4 0.19169774

1 3 15.7 0.7 0.03636421

1 4 15.7 0.8 0.02454482

2 1 14.2 0.5 0.12052159

2 2 14.2 0.4 0.23433632

2 3 14.2 0.7 0.04445256

2 4 14.2 0.8 0.03000423

3 1  16.4 0.5 0.09035534

3 2 16.4 0.4 0.17568254

3 3 16.4 0.7 0.03332620

3 4 16.4 0.8 0.02249425

4 1 10.3 0.5 0.22906940

4 2  10.3 0.4 0.44539142

4 3 10.3 0.7 0.08448878

4 4 10.3 0.8 0.05702755

5 1 8.1 0.5 0.37040044

5 2 8.1 0.4 0.72018863

5 3 8.1 0.7 0.13661659

5 4 8.1 0.8 0.09221236

---------------------------------------------------------

 

 

Задание № 12

Составить программу для вычисления функции

S = ex1-x2/ey1-y2 ,

где х1, х2 —корни уравнения 3.х2 + 4.х —2 = 0;

у1, у2 —корни уравнения 6.у2 —2.у —5 = 0;

Результат округлить до двух десятичных знаков.

Подпись: k

Корни уравнения вычисляются по формуле:

где а, b, с —коэффициенты уравнения а.x2 + b.х + с = 0.

Для вычисления корней уравнения использовать:

а) процедуру;

б) модуль.

В случае получения комплексных корней (при b2 - 4а.с < 0) предусмотреть вывод на экран сообщения:

“Комплексные корни. Выполнение программы прекращено”.

Записать программу на диск.

Министерство образования Р.Ф.

Архангельский Государственный Технический Университет.

Курсовая работа по информатике.

Программирование на языке Turbo Pascal.

Выполнила студентка 1 курса

Факультета МТД


Усова Елизавета

Проверил: Старкова АВ

Архангельск 2004.


Информация о работе «Курсовая»
Раздел: Кибернетика
Количество знаков с пробелами: 12424
Количество таблиц: 10
Количество изображений: 0

Похожие работы

Скачать
29321
0
0

... "Мой Труд Самостоятельный". Цель данного труда - помочь студенту самостоятельно написать курсовую работу от титульного листа до списка литературы. Каждому студенту курсовая самостоятельно: http://kursovaya.nightmail.ru/student.htm Почему школьник и студент берёт реферат в интернете В последние годы очень сильно выросло число школьников и студентов, которые пользуются услугами бесплатных ...

Скачать
54949
42
60

... nразъем = 135 резист = 0,05*10-6 час-1 nрезист = 3 общ = 344,1*10-6 час-1 Т = 2906,14 час Р = 0,6 ЗАКЛЮЧЕНИЕВ данном курсовом проекте был разработан процессор для ограниченного набора команд. Исходя из критерия проектирования, то есть максимального быстродействия блоки процессора построены на основе ТТЛШ технологии, на перспективных быстродействующих сериях, эти серии имеют ...

Скачать
44940
4
1

... освіти. Освітньо-професійна программа підготовки бакалавра напряму підготовки 0502 “Менеджмент”. Проект. МНО України. К. 1999 рік. 3.   Василенко В.А., Агалаков Н.М., Цехла С.Ю. Методические указания к выполнению курсовой работы по дисциплине "Экономическое обоснование управленческих решений". Симферополь: КФ КНЭУ, 1997, - 24 с. 4.   Подсолонко В.А. Стратегия подготовки экономистов и менеджеров ...

Скачать
31598
4
4

... листа - 20 мм. Номер страницы ставиться внизу в центре шрифтом № 10. Абзацы в тексте следует начинать с отступа, равного 10 мм. Курсовая работа должна содержать: титульный лист (Приложение № 1) задание на проектирование (Приложение № 2) содержание (Приложение № 3) введение теоретическую часть в соответствии с утвержденным заданием исследовательскую часть заключение список литературы ...

0 комментариев


Наверх