В группе учится n студентов. Каждый получил на экзаменах по 4 оцен ки. Подсчитать число студентов, не имеющих 2 и 3. Вывести список группы с оценками — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
например:
 
Иванов
оценка 1 5
оценка 2 4
оценка 3 2
оценка 4 5
 
Сидоров
оценка 1 2
оценка 2 4
оценка 3 2
оценка 4 5
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
26
27
28
29
30
31
32
33
CLS
INPUT "kolichestvo studentov"; n
DIM otsenki(n * 4)
DIM familiy(n) AS STRING
FOR y = 1 TO n
PRINT "vvedity nazvanie studenta nomer"; y
INPUT familiy$(y)
NEXT y
FOR i = 0 TO n * 4 - 1
l = i MOD 4 + 1
IF l = 0 THEN l = 1
1 PRINT "otsenka nomer"; l; "studenta"; " "; familiy$(i \ 4 + 1)
INPUT otsenki(i + 1)
IF otsenki(i + 1) = 4 OR otsenki(i + 1) = 5 OR otsenki(i + 1) = 2 OR otsenki(i + 1) = 3 THEN m = 3 ELSE GOTO 1
NEXT i
PRINT
CLS
FOR x = 1 TO n
PRINT familiy$(x)
PRINT "otsenki";
FOR e = 1 TO 4
PRINT otsenki(e + (x - 1) * 4);
l = e
IF otsenki(e + (x - 1) * 4) = 2 OR otsenki(e + (x - 1) * 4) = 3 THEN dvoek = dvoek + 1
IF otsenki(e + (x - 1) * 4) = 2 OR otsenki(e + (x - 1) * 4) = 3 THEN EXIT FOR
NEXT e
FOR e = l + 1 TO 4
PRINT otsenki(e + (x - 1) * 4);
NEXT e
PRINT
PRINT
NEXT x
PRINT n - dvoek

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment