Рефетека.ру / Информатика и програм-ие

Реферат: Пример программирония на Бейсике (результаты сессии 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

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 | 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 Абирбаев |14 Копбаева |
|2 Азимханов |15 калымханов |
|3 Алимхожаева |16 Каршыгабек |
|4 Баймуратова |17 Мукатаев |
|5 Байтугелов |18 Наурызбаев |
|6 Байманасов |19 Отеулин |
|7 Даулеталиев |20 Торекулов |
|8 Ержуманова |21 Тажиев |
|9 Жайлбаев |22 Тусупов |
|10 Жексенбино |23 Шагылбаева |
|11 Жоламанов |24 Калымбаева |
|12 Жанбыршиев |25 Бейсебаева |
|13 Каденов | |

Литературы:

1. В. Э. Фигурнов. «IBM PC для пользователя.» 7-е издания М-1997

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

3. Г. И. Светозарова и др. «Практикум по програмированию на языке

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


Рефетека ру refoteka@gmail.com