Приклад программіронія на Бейсіку (результати сесії 25 студентів, що здали 5 іспитів )

Завдання № 1

У чому полягають особливості організації пакетного режиму роботи ЕОМ,режиму розподілу часу і режиму реального часу?

ВІДПОВІДЬ:

Особливість пакетного режиму роботи ЕОМ полягають у тому що,одночасно можуть працювати, відразу кілька програм не залежно один --одного. Кількість програми, яка працює одночасно, вказуєтьсякористувачем у файлі CONFIG.SYS. Режим поділу часу призначаєтьсяпроцесором. Процесор розділяє час між працюючими програмами тапристроями. Проміжок цього часу так мало, що користувач непомічає і йому здається, що пристрої працює паралельно. Сутність режимуреального часу в тому, що в цей час пристрою працює з своєїшвидкістю. (Робота дискета, друк, сканування і т.д.)

Завдання № 2

Сформувати файл, що містить результати сесії студентів однієїгрупи у вигляді матриці в кожному рядку, якій зберігаються результати сесії
(п'ять іспитів) для одного студента. У групі 25 студентів, їх прізвищазберігаються в окремому файлі. Використовуючи сформований файл, вивести на екранпрізвища відмінників.

ВІДПОВІДЬ:

10 CLS: DIM fa $ (25), re (25, 5)
PRINT: PRINT "###################### працює програма: РЗУЛЬТАТИ
СЕСІЇ ##############": PRINT
PRINT "1. Створення файлу для прізвищ"
PRINT "2. Створення файлу для результатів сесій"
PRINT "3. Перегляд результатів сесій"
PRINT "4. END": PRINT
11 INPUT "Введіть порядок роботи:"; n: IF n> 4 OR n <1 THEN 11
ON n GOTO fem, rez, otl, 400

fem: CLS: PRINT "1. Створення файлу для прізвищ": PRINT: PRINT

PRINT "Введіть прізвищ студентів по одному на рядок:"
OPEN "fam" FOR OUTPUT AS # 1

FOR i = 1 TO 25: INPUT fa $ (i): NEXT i

FOR i = 1 TO 25: PRINT # 1, fa $ (i): NEXT i

FOR i = 1 TO 25: PRINT fa $ (i): NEXT i

PRINT «Файл для прізвищ створений »
LOCATE 24, 1: PRINT «Для продовження натисніть будь-яку клавішу»
110 IF INKEY $ = "" THEN 110
GOTO 10

rez: CLS: PRINT "2. Створення файлу для результатів сесій": PRINT: PRINT

PRINT "Введіть результати сесій по одному на рядок"

OPEN "rez" FOR OUTPUT AS # 1

FOR j = 1 TO 25

FOR i = 1 TO 5

INPUT re (j, i) : PRINT # 1, re (j, i)

NEXT i, j

PRINT «Файл для результатів створено»
LOCATE 24, 1: PRINT «Для продовження натисніть будь-яку клавішу»
210 IF INKEY $ = "" THEN 210
GOTO 10

otl: CLS
OPEN "fam" FOR INPUT AS # 1

OPEN "rez" FOR INPUT AS # 2

FOR i = 1 TO 25: INPUT # 1, fa $ (i): NEXT i

FOR i = 1 TO 25

FOR j = 1 TO 5

INPUT # 2, re (i, j)

NEXT j, i

CLS: x = 0: z = 1: PRINT "Список студентів"

PRINT "№ Ф, І, О оцінки № Ф, І, О оцінки "

FOR i = 1 TO 25 z = z + 1: IF z> 14 THEN z = 2: x = x + 30

LOCATE z + 1, x + 1: PRINT i; fa $ (i);

LOCATE z + 1, x + 15

FOR j = 1 TO 5 < p> PRINT re (i, j);

NEXT j

NEXT i

PRINT: < p> PRINT "" Відмінники: ": s = 0: k = 0

FOR i = 1 TO 25

FOR j = 1 TO 5 s = s + re (i, j)

NEXT j

IF s> 24 THEN: k = k + 1: PRINT k; "_______ "; fa $ (i) s = 0 < p> NEXT i: PRINT
PRINT «Для продовження натисніть будь-яку клавішу»
300 IF INKEY $ = "" THEN 300
GOTO 10
400 END

Результати роботи програми

(на екрані комп'ютера)

Список студентів
№ П.І.П оцінки № П.І.П оцінки
1 Абірбаев 5 5 5 5 5 14 Копбаева 3 3 3 3 3
2 Азімханов 5 4 4 5 4 15 калимханов 3 3 3 3 3
3 Алімхожаева 4 5 5 5 3 16 Каршигабек 4 4 4 4 4
4 Баймуратова 5 5 5 5 5 17 Мукатаев 4 4 5 5 5
5 Байтугелов 5 5 5 5 5 18 Науризбаев 4 4 4 4 4
6 Байманасов 4 5 3 3 5 19 Отеулін 4 4 4 4 4
7 Даулеталіев 4 0 5 4 5 20 Торекул 4 4 4 3 3
8 Ержуманова 4 5 4 5 5 21 Тажіев 3 3 3 3 3
9 Жайлбаев 5 5 5 5 5 22 Тусупов 3 3 3 3 3
10 Жексенбіно 5 5 5 4 3 23 Шагилбаева 3 3 3 4 4
11 Жоламанов 3 3 4 4 4 24 Калимбаева 4 4 4 4 5
12 Жанбиршіев 4 4 4 4 4 25 Бейсебаева 5 5 5 5 5
13 Каден 4 3 3 3 3

Прізвище відмінників
1 _______ Абірбаев
2 _______ Баймуратова
3 _______ Байтугелов
4 _______ Жайлбаев
5 _______ Бейсебаева

для продовження натисніть будь-яку клавішу
Файл результатів: (для тестування програми)

Файл: rez

| 5 5 5 5 5 | 3 3 3 3 3 |
| 5 4 4 5 4 | 4 4 4 4 4 |
| 4 5 5 5 3 | 4 4 5 5 5 |
| 5 5 5 5 5 | 4 4 4 4 4 |
| 5 5 5 5 5 | 4 4 4 4 4 |
| 4 5 3 3 5 | 4 4 4 3 3 |
| 4 5 5 4 5 | 3 3 3 3 3 |
| 4 5 4 5 5 | 3 3 3 3 3 |
| 5 5 5 5 5 | 3 3 3 4 4 |
| 5 5 5 4 3 | 4 4 4 4 5 |
| 3 3 4 4 4 | 5 5 5 5 5 |
| 4 4 4 4 4 | |
| 4 3 3 3 3 | |
| 3 3 3 3 3 | |

Файл для прізвища: (для тестування програми)
Файл: fam

Літератури:

1. В. Е. фігурні. «IBM PC для користувача.» 7-е видання М-1997

2. Симашко А. С. та ін «Спеціальна інформатика». Москва-1999

3. Г. І. Свєтозаровим та ін «Практикум з програмування на мові

Бейсік». М. Наука -1983.