Даны два массива из n, однозначных чисел. В первом из них записано кол-во мячей, забитых футбольной командой в игре, во втором — кол-во пропущенных мячей в этой же игре.а) Для каждой проведенной игры напечатать словесный результат: «выигрыш», «проигрыш» или «ничья».б) Определить кол-во проигрышей, выигрышей и ничьих данной команды.в) Подсчитать общее кол-во очков, набранных командой (за выигрыш дается 3 очка, за ничью — 1, за проигрыш — 0)- QBasic(Бейсик)

disel
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
CLS
n = 10
DIM a(n), b(n)
RANDOMIZE TIMER
FOR i = 0 TO n
  a(i) = INT(RND * 4)
  b(i) = INT(RND * 4)
NEXT
  
FOR t = 0 TO n
  PRINT a(t); ":"; b(t),
  IF a(t) > b(t) THEN
    PRINT "win"
    w = w + 1
  ELSEIF a(t) = b(t) THEN
    PRINT "draw"
    n = n + 1
  ELSE
    PRINT "lose"
    l = l + 1
  END IF
NEXT
  
PRINT "wins="; w, "draws="; n, "loses="; l
PRINT "score="; w * 3 + n

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

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

Leave a Comment