QBasic. Помогите, пожалуйста! . Программа запрашивает названия двух футбольных команд,...

Question

QBasic. Помогите, пожалуйста! . Программа запрашивает названия двух футбольных команд, количество забитых голов каждой из команд в первом и ответном матче и выводит название команды-победителя и общий счет. Победитель определяется по сумме двух матчей. Считается, что первый матч проходит на поле команды 1, ответный – на поле команды 2. В случае, когда результат по сумме двух матчей ничейный (например, 2:0 и 1:3 = 3:3 по сумме двух матчей), победителем становится команда, забившая больше мячей на поле соперника (либо назначается дополнительное время, если таковой нет, например 2:0 и 0:2).

Comments

И снова Базик)))

---

дааа)) просто надо написать 24 программы, и у меня уже мозг кипит их писать, поэтому возлагаю надежду на то, что мне помогут хотя бы немного из них написать))

---

Они в печатном виде? Ну, нельзя ли их сюда все сразу скинуть?

---

Можно)

Answer 1

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      PRINT Nazv2$
   ELSE
      IF O1-O2>P2-P1 THEN
         PRINT Nazv1$
      ELSE
         IF O1-O2            PRINT Nazv2$
         ELSE
            PRINT "Dopolnitelnoe:"
            PRINT Nazv1$
            INPUT D1
            PRINT Nazv2$
            INPUT D2
            IF D1>D2 THEN
               PRINT Nazv1$
            ELSE
               IF D1                  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

Comments

Спасибо большое!))