Turbo Basic прикладної

[ виправити ] текст може містити помилки, будь ласка перевіряйте перш ніж використовувати.

скачати

Міністерство загальної та професійної

освіти Російської федерації


Південно-Уральський Державний університет

Кафедра будівельних матеріалів


КУРСОВИЙ ПРОЕКТ

З дисципліни «Інформатика»


Виконав студент

групи АС-145 Ахтямов Руслан Рашидович

Керівник проекту Абизов Віктор Олександрович

Нормоконтроль Семеняк Григорій Сергійович

До захисту

Проект захистив з оцінкою


Челябінськ 2001


ВСТУП


Інформатика є однією з важливих наукових дисциплін. Вона вивчає методи представлення, накопичення, передачі та обробки інформації за допомогою електронно-обчислювальних машин. Знання інформатики необхідно для плідної творчої діяльності інженера будь-якої спеціальності. Ця дисципліна вимагає необхідні знання з математики та інших предметів.

Розробка даного курсового проекту засноване на розробці програми розрахунку середнього балу студентів АС-145 і АС-144 за результатами зимової сесії. Ця програма досить актуальна. При різного роду доповнення до цієї програми можна розрахувати середні бали будь-якої кількості студентів, будь-яких груп. Так само можна її використовувати для виявлення відмінників з певних предметів, для можливого їх заохочення. Ця програма може полегшити роботу кураторів, деканату з нагляду за успішністю студентів, а так само для нарахування стипендії студентам. Програма може зберігати таблиці у файли, що значно полегшують роботу.

Програма зачіпає широке коло питань. Її розробка відповідає інтересам усього досліджуваного курсу інформатики, тому що вона вимагає самостійного поглибленого вивчення інформації для програмування, яка не входить в курс навчання з даної дисципліни.


ЗАВДАННЯ НА КУРСОВУ РОБОТУ

Розробити програму розрахунку середнього балу студентів груп АС-144, АС-145 за результатами зимової сесії.


ЗМІСТ РОБОТИ

Титульний лист 1

Введення 2

Завдання на курсову роботу 3

Зміст роботи 4

Анотація 5

Формулювання завдання. Основні поняття і визначення, що зустрічаються в розрахунково-пояснювальній записці 6

Блок-схема алгоритму розв'язання задачі 7

Текст програми 8

Детальний порядкове опис ходу роботи програми. 11

Контрольний приклад перевірки рішення завдання 13

Список використовуваної літератури 14


АНОТАЦІЯ

Курсовий проект з дисципліни «Інформатика»

Курсовий проект присвячений для розрахунку середнього балу студентів АС-144 і АС-145 за результатами зимової сесії, а так само виявлення відмінників з певних дисциплін. Він може бути використаний подібних розрахунків у будь-яких інших групах.

Педагогічної завданням курсового проекту є глибоке і детальне вивчення такої мови програмування, як Turbo Basic.

У курсовому проекті міститься текст програми, вихідні дані якої вводяться допомогою файлу послідовного доступу, для цього розроблена спеціальна перед-програма. результати розрахунку виводяться на екран у вигляді таблиці і файлу послідовного доступу.

До тексту курсового проекту додається блок-схема алгоритму розв'язання задачі порядкове опис ходу програми контрольний приклад перевірки виконання завдання і дискета яка містить файл програми.


Формулювання завдання. Основні поняття та визначення,

зустрічаються в розрахунково-пояснювальній записці.

Формулювання завдання:


Розробити програму розрахунку середнього балу студентів груп АС-144, АС-145 за результатами зимової сесії.

Вихідні дані: результати здачі іспитів на день закінчення зимової сесії 2001 року.

Додаткові умови розробки програми:

  1. Вихідні дані для програми вводити за допомогою файлу послідовного доступу;

  2. Результати розрахунку ранжувати за зменшення (перший рядок містить прізвище студента, що має максимальний середній бал) і вивести у вигляді таблиці на екран і в файл послідовного доступу.

  3. Вивести на екран за алфавітом прізвища студентів, що одержали оцінку «відмінно», згрупувавши їх за дисциплінами.


Основні поняття і визначення, що зустрічаються в розрахунково-пояснювальній записці:


Стокові змінні - імена представляються рядкові значення, ці значення можуть змінюватися в ході виконання програм.

Константи - група літер, оточених двома лапками, значення яких не змінюється під час програми.

Файл послідовного доступу - файли створені послідовністю символів в кодах ASCCI.

Програма - набір кодів символів або кодів команд, які виконуються в певній послідовності.

Команда - інструкція про виконання деякої операції.

Масив - група строкових і числових даних, що розділяють між собою одне й те саме ми.

Цикл - містить деяку кількість операцій, яке багаторазово повторюється в програмі.


БЛОК-СХЕМА АЛГОРИТМУ РІШЕННЯ ЗАДАЧІ

н ачало


b $ = »Прізвище», з $ = »Ім'я», d $ = »По батькові»,

r $ = "дисципліна», I $ = »Середній», j $ = »бал»,

g $ = »матем», h $ = »фізика», f $ = »поч / геом»



висновок b $, з $, d $, r $, I $, j $, g $, h $, f $



i = 1,50


k = b (1, i) f = b (2, i) c = b (3, i) p = (k + f + c) / 3

q (i) = p pol (I) = I p = 0



n = 1,50


I = 1,49


Ні C = q (I +1) q (i) = q (I +1) q (i) = c

q (i)



висновок відсортованих даних на

екран і в файл



I = 1,50

ні та висновок A $

B (1, i) = 5



I = 1,50


немає

B (2, i) = 5 та висновок A $




I = 1,50


ні та висновок A $

B (3, i) = 5




кінець


ТЕКСТ ПРОГРАМИ

Програма для введення інформації:


1 open "fpd.fpd" for output as # 1

2 data "Ахтямов р.р", "Бараш А.Г.", "Бояркіна М.Л", "Брикін А.О."

3 data "Брюхавецкая Л.В.", "Бугаєв А.О.", "Гринблат Ю.І.", "Дєдух Л.В."

4 data "Дербеденев П.А.", "Дружинін К.В.", "Дьяченко Т.С.", "Єрмакова Н.В."

5 data "Ефремовцева Є.Є.", "Захезін А.Є.", "Ішмухаметов А.М.", "Кановалов І.І."

6 data "Карпенко Д.В.", "Кірін Ю.Ю.", "Кіяткіна Н.П.", "Князєв П.С."

7 data "Козирєва Е.А.", "Красніхіна К.В.", "Кучеров М.А.", "Лобанов Р.А."

8 data "Маржа В.В.", "Макушев Е.А", "Олювін П.С.", "Полєтаєв І.В."

9 data "Пир'єв Д.А.", "Ратушинської А.", "Романов П.С.", "Ронжин В.А."

10 data "Русина В.Ю.", "Самойловський М.А.", "Саночкін М.В.", "Синіцин Д.С."

11 data "Скворцов Д.А.", "Солдатова Є.Д.", "Спадарь В.Г.", "Султанов Б.Ж."

12 data "Тимашова Є.М.", "Токар М.А.", "Урік С.І.", "Федоров В.В."

13 data "Федоров І.О.", "Хакімова Е.Ш", "Хісамова О.Р.", "Чернов С.А."

14 data "Шаповал А.В", "Шутченко І.Ю."

15 data 4,3,2,3,5,3,3,3,2,2,3,5,4,3,2,3,3,2,3,3,3,4,3,3, 3,2,4,3,4,3,2,3,2,3,3,5,3,3,3,4,3,3,3,4,3,5,2,2,5, 3

16 data 4,3,2,2,5,3,2,2,3,3,3,4,3,5,2,3,3,2,3,2,2,5,3,3, 3,2,5,3,5,3,2,3,3,3,3,3,2,3,3,4,3,2,4,4,3,4,2,2,5, 3

17 data 5,3,3,3,5,3,3,3,2,3,3,5,3,5,2,3,3,2,4,3,3,5,4,4, 3,2,4,3,5,3,2,3,3,3,5,5,3,4,3,4,3,3,5,5,3,4,2,2,4, 3

18 DIM A $ (50): DIM B (150)

19 FOR I = 1 TO 50

20 READ A $ (I): PRINT # 1, A $ (I)

21 NEXT I

22 FOR I = 1 TO 150

23 READ B (I): PRINT # 1, B (I)

24 NEXT I

25 CLOSE # 1


ОСНОВНА ПРОГРАМА

10 OPEN "fpd.fpd" FOR INPUT AS # 1

15 CLS: SCREEN 12

20 DIM A $ (50): DIM B (3,50)

30 FOR I = 1 TO 50

40 INPUT # 1, A $ (I)

60 NEXT I

70 FOR I = 1 TO 3

80 FOR J = 1 TO 50

90 INPUT # 1, B (I, J)

110 NEXT J

120 NEXT I

130 CLOSE # 1

132 open "tablica.bas" for output as # 2

135M $="++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++"

136 N $="+++++++++++++++++++++++++++++++"

137 print # 2, m $;"+++++++++++++"

138 LOCATE 1,1: PRINT M $

140 LOCATE 3,25: PRINT N $


141 LOCATE 5,1: PRINT M $

142 LOCATE 22,1: PRINT M $

150 FOR I = 1 TO 22

152 LOCATE I, 1: PRINT "+"

154 LOCATE I, 25: PRINT "+"

156 LOCATE I, 56: PRINT "+"

157 LOCATE I, 65: PRINT "+"

160 NEXT I

162 FOR I = 1 TO 22

164 LOCATE I, 44: PRINT "+"

168 LOCATE I, 36: PRINT "+"

170 NEXT I

172 LOCATE 23,5: PRINT "ХОЧЕТЕ ПРОДОВЖИТИ НАТИСНІТЬ SPACE"

174 locate 2,6: b $ = "Прізвище": print b $

176 locate 3,11: c $ = "Ім'я": print c $

178 locate 4,9: d $ = "По батькові": print d $

179 locate 2,34: r $ = "Дисципліна": print r $

180 locate 2,58: i $ = "Середній": print i $

182 locate 3,60: j $ = "бал": print j $

184 locate 4,26: g $ = "мат": print g $

186 locate 4,37: h $ = "Фіз": print h $

188 locate 4,46: f $ = "поч \ гео": print f $

189 print # 2, "+"; b $; "+"; r $; "+"; i $; "+"

200 print # 2, "+"; d $; "+"; n $; "+"; j $; "+"

201 print # 2, "+"; c $; "+"; g $; "+"; h $; "+"; f $; "+ +"

202 print # 2, m $;"+++++++++++++"

204 p = 0: dim q (50): dim pol (50)

205 for i = 1 to 50

210 k = b (1, i): f = b (2, i): c = b (3, i)

215 p = (k + f + c) / 3: q (i) = p: pol (i) = i

216 p = 0

227 next i

230 p = 0: k = 1: j = 1

235 for n = 1 to 50

237 for i = 1 to 49

240 if q (i)

245 next i

246 next n

247 for i = 1 to 50

248 p = q (I): g = pol (i)

250 if k = 16 then goto 260

251 if k = 31 then goto 260

252 if k = 46 then goto 260

255 goto 300

260 if inkey $ = "" then k = 1: goto 300

270 goto 260

300 locate k +6,2: print a $ (g)

310 locate k +6,31: print b (1, g)

315 locate k +6,39: print b (2, g)

320 locate k +6,49: print b (3, g)


330 locate k +6,59: print using "#.##"; p

335 print # 2 ,"+"; a $ (g); "+"; b (1, g); "+"; b (2, g); "+"; b (3, g); "+ "

336 print using "#.##"; p;: print # 2, "+"

360 k = k +1

375 next i

390 for o = 12 to 21

391 locate o, 1: print ""

392 next o

393 locate 12,1: print m $

394 print # 2, m $;"+++++++++++++"

395 close # 2

397 if inkey $ = "" then goto 400

398 goto 397

400 cls: PRINT "Відмінники з математики": print

410 FOR I = 1 TO 50

420 IF B (1, I) = 5 THEN PRINT A $ (I)

430 NEXT I

432 if inkey $ = "" then goto 440

433 goto 432

440 cls: PRINT "Відмінники з фізики": print

443 FOR I = 1 TO 50

445 IF B (2, I) = 5 THEN PRINT A $ (I)

450 NEXT I

451 if inkey $ = "" then goto 455

452 goto 451

455 cls:

PRINT "Відмінники з нарисної геометрії": print

460 FOR I = 1 TO 50

465 IF B (3, I) = 5 THEN PRINT A $ (I)

470 NEXT I

490 END


ДОКЛАДНИЙ Порядкова ОПИС ХОДУ ПРОГРАМИ


Програма введення інформації:

1 підготовка файлу fpd.fpd для запису в нього інформації;

2-17 введення вихідних даних за допомогою заявника DATA;

18 заяву масиву А $ розмірністю 50 для зберігання прізвищ

і масиву B розмірністю 150 для зберігання оцінок;

19-21 цикл для запису прізвищ студентів у файл послідовного доступу;

22-24 цикл для запису оцінок студентів у файл послідовного доступу;

25 закриття файлу послідовного доступу;


Основна програма:

  1. підготовка файлу fpd.fpd для зчитування нього інформації;

15 очищення екрана і установка його високої роздільної здатності;

20 заяву масиву А $ розмірністю 50 для зберігання прізвищ

і масиву B розмірністю 3 * 50 для зберігання оцінок студентів;

30-60 цикл для зчитування прізвищ студентів;

70-120 цикли для зчитування оцінок студентів;

130 закриття файлу послідовного доступу fpd.fpd;

132 підготовка файлу tablica.bas для запису в нього таблиці;

135 присвоювання змінної M $ текстової константи;

136 присвоювання змінної N $ текстової константи;

137 друк константи M $ і деякої текстової константи в файл tablica.bas;

138-170 висновок на екран рамки таблиці;

172 висновок на екран під таблицею текстового повідомлення;

174-188 висновок на екран назв колонок («шапки» таблиці);

189-202 запис у файл tablica.bas «шапки» таблиці;

204 оголошення масивів для зберігання середнього балу студентів;

205 відкриття циклу для розрахунку середнього балу;

210 присвоювання змінної k значення оцінки з математики,

присвоювання змінної f значення оцінки з фізики,

присвоювання змінної c значення оцінки за поч. геометрії;

215 розрахунок середнього балу і присвоювання змінної p середнього

арифметичного значення оцінок i-го студента (присвоювання змінної p масиву q, а масиву pol присвоюємо номер студента (i));

216 обнулення змінної р;

227 закриття циклу для розрахунку середнього балу;

230 обнулення р,

присвоювання змінної k значення 1,

присвоювання змінної j значення;

235-246 цикли для сортування номери студентів та їх середнього балу за зростанням

(Бульбашкова система);

247 відкриття циклу для виведення даних про студентів на екран і в файл tablica.bas;

250-252 умова для виведення на екран даних про студентів по 15 осіб;

255 якщо умова 250-252 не виконується то відбувається виведення студентів у стовпчик;

260 якщо умова 250-252 виповнилося, то вимога натиснути пробіл для виведення наступної

групи;

270 поки не виконається умова 260 програма буде чекати;

300-330 висновок даних про студентів в таблицю (на екран);


335 висновок даних про студентів в файл tablica.bas;

360 збільшення лічильника k на одиницю;

375 закриття циклу виведення інформації на екран і в файл tablica.bas;

390-394 очищення екрана від старих даних з 12 по 21 рядок;

395 закриття файлу tablica.bas;

397 умова для виводу на екран прізвищ відмінників з математики;

398 очікування програмою натискання на пробіл;

400 очищення екрана і друк текстового повідомлення;

410-430 цикл з умовою виведення на екран прізвищ відмінників з даної дисципліни;

432 умова для виводу на екран прізвищ відмінників з фізики;

433 очікування програмою натискання на пробіл;

440 очищення екрана і друк текстового повідомлення;

443-450 цикл з умовою виведення на екран прізвищ відмінників з даної дисципліни;

451 умова для виводу на екран прізвищ відмінників з поч. геометрії;

452 очікування програмою натискання на пробіл;

455 очищення екрана і друк текстового повідомлення;

460-470 цикл з умовою виведення на екран прізвищ відмінників з даної дисципліни;

480 кінець програми.


КОНТРОЛЬНИЙ ПРИКЛАД ПЕРЕВІРКИ РІШЕННЯ ЗАДАЧІ

Ахтямов Р.Р.

Математика 4

Фізика 4

Нарисна геометрія 5

Середній бал (4 +4 +5) / 3 = 4,33

Результат:

++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++

+ Прізвище + Дисципліна + Середній +

+ Батькові ++++++++++++++++++++++++++++ бал +

+ Ім'я + мат + Фіз + поч \ гео + +

++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++

+ Ахтямов Р.Р. + 4 + 4 + 5 + 4.33 +

++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++


Список використаної літератури


  1. Зельднер Григорій Олексійович. «Microsoft BASIC», Москва, ABF, 1995,432 стор

  2. Каміль Мусін Євгенович. «BASIC», Москва, ABF, 1994,399 стор


Copying 2001 all rights reserved 

Додати в блог або на сайт

Цей текст може містити помилки.

Програмування, комп'ютери, інформатика і кібернетика | Реферат
33.7кб. | скачати


Схожі роботи:
Система Turbo-Basic
Мова програмування Turbo-Basic
Hовi команди системи Turbo-Basic
Основи прикладної механіки
Прикладної або системний
Рішення прикладної задачі
Визначення PR як прикладної соціальної науки
Основні напрямки сучасної прикладної політології
Відносини академічної й прикладної науки Типи соціальних психологів
© Усі права захищені
написати до нас