У вас вопросы?
У нас ответы:) SamZan.net

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

Работа добавлена на сайт samzan.net: 2016-01-17

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 4.4.2025

Сформировать файл, содержащий результаты сессии студентов одной группы в виде матрицы в каждой строке, которой хранятся результаты сессии (пять экзаменов) для одного студента.  В группе 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.




1. Снежинка Пец Павел
2. Высшее образование и Болонский процесс
3. тематика 1 группа 1
4. Pov TomВ моем доме всегда царит порядок.html
5. психологические проблемы
6. з курсу для студентів спеціальності Соціологія спеціалізації Політична соціологія
7. Отчет по лабораторной работе 3 По дисциплине- Программирование и алгоритмические языки Переменные т
8. Реферат- Инновационные методики обучения- pro et contra
9. Морфология микроорганизмов.html
10. Sch~tzen Sie die Erholungsktivit~ten ein