Курсовая
Что означает Курсовая и что это такое? В разделе Кибернетика дан подробный ответ и объяснение на вопрос.
Здесь выложено готовое сочинение на тему Курсовая, которое вы так же можете использовать как реферат.
Эту, поверенную нами работу, вы можете скачать бесплатно перейдя по ссылке, но если вам необходима другая готовая работа по данному предмету, например реферат или изложение, доклад, лекция, проект, презентация, эссе, краткое описание, биография писателя, ученого или другой знаменитости, контрольная, самостоятельная, курсовая, экзаменационная, дипломная или любая другая работа, с вашими индивидуальными требованиями, напишите нам и мы договоримся.
Наша небольшая команда бывших и действующих преподавателей и авторов со стажем работы от 5-ти лет всегда вам поможет. Всего нами написано и проверено более 10 000 различных работ на образовательные темы. С нами вы получите действительно качестенный материал с уникальным текстом и обязательно хорошую оценку. Удачи в учебе!
ВАРИАНТ
Задание 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;
Constp=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;
Constp=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
---------------------------------------------------------
Задание
Составить программу для вычисления функции
S = ex1-x2 /ey1-y2 ,
где х1 , х2 —корни уравнения 3. х2 + 4. х —2 = 0;
у1 , у2 —корни уравнения 6. у2 —2. у —5 = 0;
Результат округлить до двух десятичных знаков.
![]() | ![]() |
![]() |
![]() | ![]() |
где а, b, с —коэффициенты уравнения а. x2 + b. х + с = 0.
Для вычисления корней уравнения использовать:
а) процедуру;
б) модуль.
В случае получения комплексных корней (при b2 - 4а. с < 0) предусмотреть вывод на экран сообщения:
“Комплексные корни. Выполнение программы прекращено”.
Записать программу на диск.
Министерство образования Р.Ф.
Архангельский Государственный Технический Университет.
Курсовая работа по информатике.
Программирование на языке Turbo Pascal.
Выполнила студентка 1 курса
Факультета МТД
Усова Елизавета
Проверил: Старкова АВ
Архангельск 2004.