Питання з інформатики

Завдання № 1

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

ВІДПОВІДЬ:

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

Сформувати файл, що містить результати сесії студентів однієї групи у вигляді матриці в кожному рядку, якій зберігаються результати сесії (п'ять іспитів) для одного студента. У групі 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 травня 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

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

Ім'я файлу: fam

Літератури:

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

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

3. Г. І. Свєтозарова і ін «Практикум з програмування на мові Бейсік». М. Наука 1983.