Опишите ,используя структуру записи ,вступительные экзамены , на которых абитуриенты сдавали три экзамена , а для поступления надо было набрать 12 баллов . Составьте программу ,считывающую с клавиатуры результаты всех вступительных экзаменов и выводящую на экран следующую информацию:- QBasic(Бейсик)

disel
1
2
3
А) список абитуриентов ,сдавших все три экзамена на 5
Б) список абитуриентов ,потерпевших неудачу на экзаменах
В) список абитуриентов , зачисленных в институт .
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
TYPE EntranceExam
    name AS STRING * 20
    exam1 AS INTEGER
    exam2 AS INTEGER
    exam3 AS INTEGER
END TYPE
 
DIM applicant AS EntranceExam
INPUT "Введите имя абитуриента: ", applicant.name
INPUT "Введите результаты по экзаменам: ", applicant.exam1, applicant.exam2, applicant.exam3
totalScore = applicant.exam1 + applicant.exam2 + applicant.exam3
 
IF totalScore >= 12 THEN
    PRINT "Абитуриент зачислен в институт: "; applicant.name
ELSE
    PRINT "Абитуриент не зачислен в институт: "; applicant.name
END IF
 
IF applicant.exam1 = 5 AND applicant.exam2 = 5 AND applicant.exam3 = 5 THEN
    PRINT "Абитуриент сдал все экзамены на 5: "; applicant.name
ELSE
    PRINT "Абитуриент не сдал все экзамены на 5: "; applicant.name
END IF

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

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

Leave a Comment