WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаІнформатика, Компютерні науки → Алгоритмізація і програмування мовою GW-BASIC - Курсова робота

Алгоритмізація і програмування мовою GW-BASIC - Курсова робота

масивів.
Масивом називається кінцева упорядкована n-мірна сукупність однорідних даних, які об'єднані загальним ідентифікатором.
Оголошення масивів виконується за допомогою оператора DIM, який має такий формат:
пр. DIM ().
Вводити елементи масиву в пам'ять комп'ютера зручно за допомогою циклу, та операторів введення та виведення: FOR… NEXT, DATA, READ, INPUT.
ТМ-94.00.00.ПЗ Лист
12
Зм Лист № докум Підпис Дата
V. Словесний алгоритм
1?-2? Вводимо з клавіатури силу F та крок зміни у К 3?-6?. Присвоюємо значення: лічильник циклів Z, ширину січення В, силу F і висоту січення Н.
7? Оголошення масиву А.
11?-17? Обчислюємо значення Т/F, У; записуємо їх в масив А і виводимо на друк.
8?-1?? Друк заголовку таблиці
19? Присвоюємо максимальному елементу перший елемент масиву А
2?? Присвоюємо мінімальному елементу перший елемент масиву А.
21? Відкриваємо цикл
22?-23? Перевіряємо умову для знаходження максимального та мінімального елементу масиву А.
24? Закриваємо цикл.
25?-28? Друк заголовку таблиці для мінімального значення Т/F.
29? Відкриваємо цикл.
3?? Перевірка мінімального елементу та його пере присвоєння, друк мінімального елементу масиву А та його координати.
31? Закриваємо цикл.
33?-36? Друк заголовку таблиці для максимального значення T/F.
37? Відкриваємо цикл.
38? Перевірка максимального елементу та його пере присвоєння, друк максимального елементу масиву А та його координати.
39? Закриваємо цикл
4?? Кінець програми (обчислень).
ТМ-94.00.00.ПЗ Лист
13
Зм Лист № докум Підпис Дата
VI. Блок-схема алгоритму
ТМ-94.00.00.Г4.
Зм. Лист № докум Підпис Дата
Розробив Розрахунок дотичних
напружень в балці методом поперечних перерізів Літ. Масса Масштаб
Перевірив у
Т. контр Лист 14 Листов
Н. контр
Затв.
ТМ-94.00.00.Г4.
Зм. Лист № докум Підпис Дата
Розробив Розрахунок дотичних
напружень в балці методом поперечних перерізів Літ. Масса Масштаб
Перевірив у
Т. контр Лист 15 Листов
Н. контр
Затв.
ТМ-94.00.00.Г4.
Зм. Лист № докум Підпис Дата
Розробив Розрахунок дотичних
напружень в балці методом поперечних перерізів Літ. Масса Масштаб
Перевірив у
Т. контр Лист 16 Листов
Н. контр
Затв.
VII. Таблиця ідентифікаторів
Величина Одиниця
Позначення Найменування
В розрахунковій залежності в В-програмі
F F Сила Н
h h Висота січення мм
b b Ширина січення мм
? t Дотичне напруження
MIN ?/F a Мінімальне T/F
MAX ?/F am(am) Максимальне T/F
z z Лічильник циклів - // -
FM FM Координата MIN T/F мм
Fi Fi Координата MAX T/F мм
ТМ-94.00.00.Г4.
Зм. Лист № докум Підпис Дата
Розробив Розрахунок дотичних
напружень в балці методом поперечних перерізів Літ. Масса Масштаб
Перевірив у
Т. контр Лист 17 Листов
Н. контр
Затв.
VIII. Програма мовою BASIC
1? INPUT F
2? INPUT K
3? z=?
4? b=?
5? f=1??
6? h=9?
7? DIM A(90/k, 2)
8? PRINT "******************************************"
9? PRINT "* T/F * Y *"
1?? PRINT "******************************************"
11? FOR Y=-30 T0 60 STEP K
12? t=2*F/(b*h)*(4/3 + 2*Y/h - 6*Y^2/h^2)
13? PRINT USING "* ########## * #### *"; t/F; Y
14? a (z,1)=t/F
15? a (z, 2) = Y
16? z=z+1
17? NEXT Y
18? PRINT "******************************************"
19? am = a (0,1)
20? a = a (0,1)
21? FOR i=1 TO z-1
22? IF am a (i;1) THEN a = a (i,1):ti=i
24? NEXT i
25? PRINT: PRINT: PRINT
ТМ-94.00.00.ПЗ Лист
18
Зм Лист № докум Підпис Дата
26? PRINT "******************************************"
27? PRINT "* MINIMUM *"
29? FOR i=0 TO z-1
3?? IF a (i,1) = a (fi, 1) THEN PRINT USING "* ##.#### * ### *"; a (i,1); a (i,2)
31? NEXT i
32? PRINT "****************************************"
33? PRINT: PRINT
34? PRINT "****************************************"
35? PRINT "* MAXIMUM *"
36? PRINT "****************************************"
37? FOR i = 0 TO z-1
38? IF a (i,1) = a (fm,1) THEN PRIN USING " * ##.#### * ### *"; a (і,1); а (і,2)
39? NEXT i
4?? PRINT "***************************************"
41? END
ТМ-94.00.00.ПЗ Лист
19
Зм Лист № докум Підпис Дата
ІХ. Розрахунок контрольної точки
Для того, щоб перевірити чи правильно складена В-програма для обчислення дотичних напружень, нам потрібно розрахувати ці дотичні напруження при допомозі калькулятора RODON МК01 хоча б в одній чи вдух точках.
Нехай перша точка у=-30
Нехай друга точка у=15
Подивимось у роздруківку результатів і побачимо, що відношення ?/F в т.у=-30 та у=15 співпали. Звідси можна зробити висновок, що В-програма складена вірно і всі інші результати вірні.
ТМ-94.00.00.ПЗ Лист
20
Зм Лист № докум Підпис Дата
Х. Аналіз результатів і висновок.
Аналізуючи отримані результати, ми бачимо, що дотичні напруження виникають по всьому перерізі балки, максимальне значення дотичного напруження виникає по середині січення, тобто у центрі ваги балки, мінімальні значення ? виникають на поверхні.
Звідси можна зробити висновок, що дотичні напруження збільшують своє значення від поверхні до центра ваги балки чи будь-якого іншого тіла.
ХІ. Література
1. С.Ф.Кукурудз "Алгоритмізація і програмування мовою GW-BASIC", К.: "НМК ВО", 1992.
2. З.М.Крикун "Обчислювальна техніка в інженерних та економічних розрахунках", М.: "Недра", 1987.
3. Г.С.Писаренко, О.Л.Квітка, Е.С.Ушанський "Опір матеріалів", К.: "Вища школа", 1993.
4. М.Н.Іванов "Деталі машин", М.: "Высшая школа", 1991.
ТМ-94.00.00.ПЗ Лист
21
Зм Лист № докум Підпис Дата
Loading...

 
 

Цікаве