Завдання № 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
CLOSE
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
CLOSE
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
CLOSE
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
PRINT re (i, j);
NEXT j
PRINT
NEXT i
PRINT:
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
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
5 4 4 5 4
4 5 5 5 3
5 5 5 5 5
5 5 5 5 5
4 5 3 3 5
4 5 5 4 5
4 5 4 5 5
5 5 5 5 5
5 5 5 4 3
3 3 4 4 4
4 4 4 4 4
4 3 3 3 3
3 3 3 3 3
3 3 3 3 3
4 4 4 4 4
4 4 5 5 5
4 4 4 4 4
4 4 4 4 4
4 4 4 3 3
3 3 3 3 3
3 3 3 3 3
3 3 3 4 4
4 4 4 4 5
5 5 5 5 5
Файл для прізвища : (для тестування програми)
Файл: fam
1 Абірбаев
2 Азімханов
3 Алімхожаева
4 Баймуратова
5 Байтугелов
6 Байманасов
7 Даулеталіев
8 Ержуманова
9 Жайлбаев
10 Жексенбіно
11 Жоламанов
12 Жанбиршіев
13 Каден
14 Копбаева
15 калимханов
16 Каршигабек
17 Мукатаев
18 Науризбаев
19 Отеулін
20 Торекул
21 Тажіев
22 Тусупов
23 Шагилбаева
24 Калимбаева
25 Бейсебаева
Літератури:
1. В. Е. фігурні. «IBM PC для користувача.» 7-е видання М-1997
2. Симашко А. С. та ін «Спеціальна інформатика». Москва-1999
3. Г. І. Свєтозаровим та ін «Практикум з програмування на мові Бейсік». М.
Наука-1983.
