Завдання № 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
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 травня 1914 Копбаева 3 3 3 3 березня
2 Азімханов 5 4 4 5 квітня 1915 калимханов 3 3 3 3 березня
3 Алімхожаева 4 5 5 5 березня 1916 Каршигабек 4 4 4 4 квітня
4 Баймуратова 5 5 5 5 травня 1917 Мукатаев 4 4 5 5 травня
5 Байтугелов 5 5 5 5 травня 1918 Науризбай 4 4 4 4 квітня
6 Байманасов 4 5 3 5 березня 1919 Отеулін 4 4 4 4 квітня
7 Даулеталіев 4 0 5 5 квітня 1920 Торекул 4 4 4 3 березня
8 Ержуманова 4 5 4 5 травня 1921 Тажіев 3 3 3 3 березня
9 Жайлбаев 5 5 5 5 травня 1922 Тусупов 3 3 3 3 березня
10 Жексенбіно 5 5 5 3 квітень 1923 Шагилбаева 3 3 3 4 квітня
11 Жоламанов 3 3 4 4 квітня 1924 Калимбаева 4 квітня 4 4 5
12 Жанбиршіев 4 4 4 4 квітня 1925 Бейсебаева 5 5 5 5 травня
13 Каден 4 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.