Реферат: Курсовая
⚡ 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Cоставить простейшие программы по условиям приведенных ниже задач и записать их на диск.
где S сегм
—площадь сегмента, см 2
;
Исходные данные для расчета приведены в табл.5.1.
Write('ввудите радиус круга в см. r =');
Write('введите дугу сегмента в рад а=');
Writeln('Площадь сегмента s=',s:17:13);
ввудите радиус круга в см. r =220.0
введите дугу сегмента в рад. a=161.3
5.2.
Определить свободную длину винта из условия работы на продольный изгиб.
где h св
- свободная длина винта, мм ;
E - модуль упругости для стали, н/мм 2
;
J - осевой момент инерции поперечного сечения винта, мм 4
;
m - коэффициент, учитывающий способ закрепления концов винта;
Исходные данные для расчета приведены в табл.5.2.
Write('Модуль упругости для стали, e=');
Write('Осевой момент инерции поперечного сечения винта j=');
Write('Коэффициент, учитывающий способ закрепления концов винта m=');
Write('Коэффициент запаса прочности n=');
Write('Приложенная осевая сила f=');
Writeln('Свободная длина винта h=',h:10:5);
Модуль упругости для стали, e=2.15e05
Осевой момент инерции поперечного сечения винта j=3.9e04
Коэффициент, учитывающий способ закрепления концов винта m=2.0
Свободная длина винта h=516704.66250
Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу для определения наибольшего из двух значений S сегм
. Исходные данные для расчета S сегм1
приведены в табл.5.1, S сегм2
- в табл. 6.1. При составлении программы использовать оператор условного перехода. Записать программу на диск под новым именем.
Загрузить в оперативную память компьютера программу, разработанную в задании 5.2. На ее основе составить программу с шагом ( цикл с известным числом повторений ), используя дополнительные исходные данные из таблицы 7.1. Предусмотреть вывод на печать всех полученных значений h св
.
Программу составить в трех вариантах:
а. Используя операторы WHILE ... DO;
б. Используя операторы REPEAT ... UNTIL;
Записать все варианты программы на диск.
Write('Модуль упругости для стали e=');
Write('Осевой моментинерции поперечного сечения винта j=');
Write('Коэф., учитывающий способ закрепления концов винта m=');
Write('Коэф. запаса прочности n=');
Write('Осевая сила, начальное значение f=');
Write('Осевая сила, конечное значение f2=');
Write('Модуль упругости для стали e=');
Write('Осевой момент инерции поперечного сечения винта j=');
Write('Коэф., учитывающий способ закрепления концов винта m=');
Write('Коэф. запаса прочности n=');
Write('Осевая сила, начальное значение f=');
Write('Осевая сила, конечное значение f2=');
Write('Модуль упругости для стали e=');
Write('Осевой моментинерции поперечного сечения винта j=');
Write('Коэф., учитывающий способ закрепления концов винта m=');
Write('Коэф. запаса прочности n=');
Write('Осевая сила, начальное значение f=');
Write('Осевая сила, конечное значение f2=');
Модуль упругости для стали e=2.15e05
Осевой моментинерции поперечного сечения винта j=3.9e04
Коэф., учитывающий способ закрепления концов винта m=2.0
Осевая сила, начальное значение f=1e04
Осевая сила, конечное значение f2=1.5e04
Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу с организацией цикла типа FOR для определения величины S сегм
. Дополнительные исходные данные приведены в табл. 8.1. Организовать вывод на печать в виде таблицы
значений R и S сегм
. Записать программу на диск под новым именем.
Write('введите радиус круга r[',i,']=');
Write('введите длину дуги сегмента a[',i,']=');
s[i]:=1/(2*r[i]*r[i]*(a[i]-sin(a[i])));
Writeln('---------------------------------------------------------');
Writeln('---------------------------------------------------------');
Writeln(i, r[i]:17:1,a[i]:17:2,s[i]:17:14);
введите длину дуги сегмента a[1]=0.5
введите длину дуги сегмента a[2]=1.1
введите длину дуги сегмента a[3]=0.76
введите длину дуги сегмента a[4]=0.4
введите длину дуги сегмента a[5]=1.2
---------------------------------------------------------
---------------------------------------------------------
Составить программу, содержащую цикл, для вычисления следующей суммы:
Расчет выполнить по двум вариантам: 1. В качестве a k
принять значения aиз таблицы 10.1; 2. В качестве a k
принять значения R из таблицы 10.1.
Write('Введите количество значений а ');
Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу с организацией вложенного цикла типа FOR для определения всех возможных значений S сегм
при изменении параметров R и a. Значения параметров R и a приведены в таблице 10.1. Организовать вывод на печать в виде таблицы
значений R, a и S сегм
. Записать программу на диск под новым именем.
s[i,j]:=1/(2*r[i]*r[i]*(a[j]-sin(a[j])));
Writeln('---------------------------------------------------------');
Writeln('---------------------------------------------------------');
Writeln(i:3,j:2,r[i]:15:1,a[j]:15:1,s[i,j]:16:8);
Writeln('---------------------------------------------------------') ;
---------------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
Изменить программу, разработанную в задании № 10, использовав для ввода массивов процедуру.
Procedure q(var z:massiv; n:integer; x:char);
s[i,j]:=1/(2*r[i]*r[i]*(a[j]-sin(a[j])));
Writeln('---------------------------------------------------------');
Writeln('---------------------------------------------------------');
Writeln(i:3,j:2, r[i]:15:1,a[j]:15:1,s[i,j]:16:8);
Writeln('---------------------------------------------------------') ;
---------------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
Составить программу для вычисления функции
где х 1
, х 2
—корни уравнения 3 .
х 2
+ 4 .
х —2 = 0;
у 1
, у 2
—корни уравнения 6 .
у 2
—2 .
у —5 = 0;
Результат округлить до двух десятичных знаков.
где а, b, с —коэффициенты уравнения а .
x 2
+ b .
х + с = 0.
Для вычисления корней уравнения использовать:
В случае получения комплексных корней (при b 2
- 4а .
с < 0) предусмотреть вывод на экран сообщения:
“Комплексные корни. Выполнение программы прекращено”.
Архангельский Государственный Технический Университет.
Программирование на языке Turbo Pascal.
Название: Курсовая
Раздел: Рефераты по кибернетике
Тип: реферат
Добавлен 15:21:27 30 августа 2005 Похожие работы
Просмотров: 66
Комментариев: 17
Оценило: 5 человек
Средний балл: 4.8
Оценка: неизвестно Скачать
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Реферат: Курсовая
Курсовая работа по теме Походження і будова Сонячної системи
Учебное пособие: Аудит в організації
Доклад: Параллельные машины баз данных
Курсовая работа по теме Разработка модуля проверки диапазона исходных данных и нахождения номера первого символа в строке
Гимнастика Реферат По Физкультуре
Контрольная Работа Познание 10 Класс С Ответами
Реферат На Тему Транспортно-Складская Система В Машиностроительном Производстве
Культура 17 Века Реферат
Дипломная работа по теме Роль особо охраняемых объектов в сохранении биоразнообразия
На Дне Это Карнавал Масок Сочинение
Реферат по теме Методы проведения антиинфляционной политики в России: прошлое и настоящее
Реферат: Хрен обыкновенный. Скачать бесплатно и без регистрации
Дипломная работа: Исследование мотивационно-потребностной сферы супругов
Дипломная работа: Установки погружных центробежных насосов для добычи нефти из скважин
Дипломная работа: Прибыль и пути ее увеличения
Французский естествоиспытатель Жан Батист Ламарк
Контрольная работа по теме Система центральных и региональных органов государственного управления
Реферат: Башкирские шежере как исторический источник
Реферат На Тему Корпорация Как Система Управления
Курсовая работа по теме Туристские регионы, организации и предприятия
Шпаргалка: Билеты по уголовному праву (часть 1)
Реферат: Методы ликвидаций отсутствующих должников
Доклад: Вознесенский Андрей Андреевич