QBasic. Помогите, пожалуйста! . Программа запрашивает названия двух футбольных команд, количество забитых голов каждой из команд в первом и ответном матче и выводит название команды-победителя и общий счет. Победитель определяется по сумме двух матчей. Считается, что первый матч проходит на поле команды 1, ответный – на поле команды 2. В случае, когда результат по сумме двух матчей ничейный (например, 2:0 и 1:3 = 3:3 по сумме двух матчей), победителем становится команда, забившая больше мячей на поле соперника (либо назначается дополнительное время, если таковой нет, например 2:0 и 0:2).
Ответы
Ответ дал:
0
DIM Nazv1$, Nazv2$
DIM P1%,O1%,D1%,P2%,O2%,D2%
CLS
INPUT "Nazvanie 1: ", Nazv1$
INPUT "Perviy: ", P1
INPUT "Otvetniy: ", O1
INPUT "Nazvanie 2: ", Nazv2$
INPUT "Perviy: ", P2
INPUT "Otvetniy: ", O2
IF P1+O1>P2+O2 THEN
PRINT Nazv1$
ELSE
IF P1+O1<P2+O2 THEN
PRINT Nazv2$
ELSE
IF O1-O2>P2-P1 THEN
PRINT Nazv1$
ELSE
IF O1-O2<P2-P1 THEN
PRINT Nazv2$
ELSE
PRINT "Dopolnitelnoe:"
PRINT Nazv1$
INPUT D1
PRINT Nazv2$
INPUT D2
IF D1>D2 THEN
PRINT Nazv1$
ELSE
IF D1<D2 THEN
PRINT Nazv2$
ELSE
PRINT "Nichia"
END IF
END IF
END IF
END IF
END IF
END IF
END
Пример:
Nazvanie 1: A
Perviy: 2
Otvetniy: 0
Nazvanie 2: B
Perviy: 0
Otvetniy: 2
Dopolnitelnoe:
A
? 3
B
? 3
Nichia
DIM P1%,O1%,D1%,P2%,O2%,D2%
CLS
INPUT "Nazvanie 1: ", Nazv1$
INPUT "Perviy: ", P1
INPUT "Otvetniy: ", O1
INPUT "Nazvanie 2: ", Nazv2$
INPUT "Perviy: ", P2
INPUT "Otvetniy: ", O2
IF P1+O1>P2+O2 THEN
PRINT Nazv1$
ELSE
IF P1+O1<P2+O2 THEN
PRINT Nazv2$
ELSE
IF O1-O2>P2-P1 THEN
PRINT Nazv1$
ELSE
IF O1-O2<P2-P1 THEN
PRINT Nazv2$
ELSE
PRINT "Dopolnitelnoe:"
PRINT Nazv1$
INPUT D1
PRINT Nazv2$
INPUT D2
IF D1>D2 THEN
PRINT Nazv1$
ELSE
IF D1<D2 THEN
PRINT Nazv2$
ELSE
PRINT "Nichia"
END IF
END IF
END IF
END IF
END IF
END IF
END
Пример:
Nazvanie 1: A
Perviy: 2
Otvetniy: 0
Nazvanie 2: B
Perviy: 0
Otvetniy: 2
Dopolnitelnoe:
A
? 3
B
? 3
Nichia
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
9 лет назад
9 лет назад