61998 (Курсовая)

2016-07-312016-07-31TaskMenСтудИзба

Описание файла

Документ из архива "Курсовая", который расположен в категории "". Всё это находится в предмете "кибернетика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "кибернетика" в общих файлах.

Онлайн просмотр документа "61998"

Текст из документа "61998"

ВАРИАНТ 58

Задание N 5

Cоставить простейшие программы по условиям приведенных ниже задач и записать их на диск.

5.1.Найти площадь сегмента.

sin



асчетная формула:

)

(

сегм







где S_сегм —площадь сегмента, см²;

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 - модуль упругости для стали, н/мм²;

J - осевой момент инерции поперечного сечения винта, мм⁴;

 - коэффициент, учитывающий способ закрепления концов винта;

n - коэффициент запаса прочности ;

F - приложенная осевая сила, н.

Исходные данные для расчета приведены в табл.5.2.

Таблица 5.2

Параметры расчета	E	J		n	F
Числовые значения	2,15^.10⁵	3,9^.10⁴	2,0	4,0	10⁴

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

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

Начальное

значение

Конечное

значение

Шаг

изменения

Числовые значения

10⁴

1,5^.10⁴

0,05^.10⁴

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

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

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

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

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	
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. В качестве _k принять значения  из таблицы 10.1; 2. В качестве _k принять значения 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 и . Значения параметров R и  приведены в таблице 10.1. Организовать вывод на печать в виде таблицы значений R,  и S_сегм. Записать программу на диск под новым именем.

Таблица 10.1

Параметр	1	2	3	4	5
R	15,7	14,2	16,4	10,3	8,1
	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;

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 = e^x^1-^x²/e^y^1-^y² ,

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

у₁, у₂ —корни уравнения 6^.у² —2^.у —5 = 0;

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



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









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

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

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

б) модуль.

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

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

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

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

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

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

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

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

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

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

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

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

Поделитесь ссылкой:

Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.

Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.

Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.

Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.

Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.

Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.

Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.

Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.

Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.

Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.

Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.

Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.