Поиск по сайту


Каталог учебных материалов

Свежие работы в разделе

Наша кнопка

Разместить ссылку на наш сайт можно воспользовавшись следующим кодом:


Контакты

Если у вас возникли какие либо вопросы, обращайтесь на email администратора: admin@kazreferat.info

Курсовая

Узнать стоимость написания работы

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

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


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


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

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

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

б) модуль.

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

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

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

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

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

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

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

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

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


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

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

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

Другие материалы

  • Курсовая самостоятельно
  • ... до сознания - всё. ХВАТИТ. Хочу писать сам! Ну что ж. Ты попал по адресу. Прошу : Каждому студенту курсовая самостоятельно http://kursovaya.nightmail.ru/student.htm Курсовая самостоятельно как способ личного развития Студенты сегодня загружены. Загружены и ещё раз загружены. Загружены тем ...

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

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

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

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

  • Курсовое проектирование по учебной дисциплине "Разработка управленческого решения"
  • ... управления и политики К У Р С О В О Й П Р О Е К Т по дисциплине "Разработка управленческого решения" на тему: "__________________________________________________________" (название темы, в соответствии с заданием на курсовое проектирование) Выполнил (а) студент (ка) ...

  • Організація та методика виконання курсових
  • ... річних фінансових звітів підприємств. На сьогоднішній день постала проблема щодо отримання даних матеріалів студентами. Виконання курсової роботи з дисципліни «Організація сільськогосподарського виробництва» дає студенту можливість поглибити знання з окремої теми дисципліни на прикладі конкретного ...

  • Методичні вказівки до виконання курсової роботи для студентів інженерно-педагогічних спеціальностей
  • ... Кучеренко Сергій Михайлович Васильєва Марина Петрівна ДИДАКТИЧНІ ОСНОВИ ПРОФЕСІЙНОЇ ОСВІТИ Методичні вказівки до виконання курсової роботи для студентів інженерно-педагогічних спеціальностей Підписано до друку ____. 2010 р.Формат 60*84 1/16 Папір офсетний. Ум. друк. арк. __. Зам. №. Наклад 450 ...

  • Курсовые и суммовые разницы
  • ... результата деятельности предприятия. Он не имеет ни чего общего с сумма ми курсовых разниц и поэтому должен отражаться в учете в особом порядке. Данный финансовый результат представляет собой суммовую разницу, т.е. разницу между рублевыми оценками проданной (приобретенной) валюты по официальному ...

  • Правила выполнения курсовой работы по дисциплине "Менеджмент"
  • ... На вопросы и ответы отводится 7–10 минут; 6) зачитываются достоинства и недостатки работы, отраженные во внешней рецензии и рецензии, написанной руководителем курсовой работы; Внешняя рецензия на выполненную курсовую работу оформляется специалистом, работающим на анализируемом предприятии, имеющим ...

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

  • Правила оформления курсовых работ
  • ... ;      оценка качества выполнения курсовой работы в соответствии с предъявляемыми к ней требованиями. Общие требования к содержанию и оформлению курсовых работ 12.      Курсовая работа имеет следующую структуру: –      ...

  • Точные курсовые системы ТКС И ГМК
  • ... на современных самолетах, выдерживают ударные перегрузки до 4g с частотой 40-100 ударов в 1 мин. Ниже приведены основные технические данные курсовой системы ТКС-П2. Допустимый уход гироскопов в режиме ГПК в нормальных условиях полета в широтах, отличающихся от широты последней балансировки ...

  • Выполнение курсовой работы по дисциплине "Деньги, кредит, банки"
  • ... », «Бюджетная система РФ», «Страхование», «Инвестирование», «Финансы предприятий». Требования к уровню освоения содержания курса В результате изучения дисциплины «Деньги, кредит, банки» студент должен: а) знать: —сущность, функции и роль денег в экономике; —отличия кредитных денег от бумажных; ...

  • Аудит учета операций на валютных счетах организации: движения средств, обязательной продажи экспортной выручки, добровольной покупки и продажи, обратной продажи иностранной валюты, учета курсовых разниц. Задачки
  • ... очень ограниченно. Текущий валютный счет открывается организациями для учета средств, оставшихся в распоряжении организации после обязательной продажи экспортной выручки и совершения иных операций по счету в соответствии с валютным законодательством (иностранная валюта может быть использована на ...

Rambler's Top100 Рейтинг@Mail.ru
Рефераты и материалы размещенные на сайте принадлежат их законным правообладателям. При использовании материалов сайта, ссылка на KazReferatInfo обязательна!
Казахстанские рефераты
Copyright © 2007-2016г. KazReferatInfo