Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат

Задания   №1

          В  чем состоят особенности организации пакетного режима работы  ЭВМ, режима разделения времени и режима реального времени?

ОТВЕТ:

                   Особенность пакетного режима работы ЭВМ заключаются в том что, сразу могут работать, сходу несколько программ не зависимо друг - друга. Количество программки, которая работает сразу, указывается юзером в файле CONFIG.SYS. Режим разделения Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат времени назначается микропроцессором. Микропроцессор делит время меж работающими программками и устройствами. Просвет сих пор так не много, что юзер не  замечает, ему кажется, что устройства работает параллельно. Суть режима реального времени в том, что в это время устройства работает с собственной скоростью. (Работа дискета, печать, сканирования и т Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат.д.)

Задания  №2

          Сформировать файл, содержащий результаты сессии студентов одной группы в виде матрицы в каждой строке, которой хранятся результаты сессии (5 экзаменов) для 1-го студента.  В группе 25 студентов, их фамилии хранятся в отдельном файле. Используя сформированный файл, вывести на экран фамилии отличников.

ОТВЕТ:

10 CLS:  DIM fa$(25), re(25, 5)

PRINT : PRINT "###################### работает программка Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат: РЗУЛЬТАТЫ СЕССЫ##############": 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 "Введите фамилий студентов по одному на строке Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат:"

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. Сотворения файла Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат для результатов сессий ": 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 Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат "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 студентов, сдавших 5 экзаменов) - реферат 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 Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат 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 Шагылбаева Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат  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. Симашков А Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов) - реферат. С. и др. «Специальная информатика».  Москва-1999

3. Г. И. Светозарова и др. «Практикум по програмированию на языке Бейсик». М. Наука-1983.



primer-podscheta-kalorij-dlya-pohudeniya.html
primer-postanovki-zadachi-linejnogo-programmirovaniya-v-excel.html
primer-postroeniya-i-rascheta-setevogo-grafika.html