Тема: Привет всем.Помогите решить задачку.

В массиве записаны результаты 20 игр футбольной команды.
1) Если игра закончилась выигрышем данной команды,то записано число 3.
2)если игра закончилась вничью записано число 1.
Определить общее количество выигрышей и ничьих данной команды.

Димон,что то не пашет твой код((((((вот смотри это,с киберфорума скопипастил


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

я что-то не догоняю,это двумерный массив или одномерный?

Пацаны,помогите с задачкой кто может))

Сообщение от sonar

я что-то не догоняю,это двумерный массив или одномерный?

это ж одномерный массив. По программе резервируются места в памяти для двух одномерных массивов a и b размерностей n

Сообщение от sonar

Димон,что то не пашет твой код((((((вот смотри это,с киберфорума скопипастил


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

Только непонятно, почему там идёт ELSEIF...

Вот эта тоже работает, мб одинаково и так и так.
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
ELSE
IF a(t) = b(t) THEN
PRINT "draw"
n = n + 1
ELSE
PRINT "lose"
l = l + 1
END IF
END IF
NEXT t
PRINT "wins="; w, "draws="; n, "loses="; l
PRINT "score="; w * 3 + n
END

Сообщение от sonar

Димон,что то не пашет твой код((((((вот смотри это,с киберфорума скопипастил

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

Я же говорю! я написал на BASIC256, в нем для элементов массива почему то используется запись N[i], замените квадратные скобки на круглые N(i) и все пойдет! Еще в моей программе нет ввода данных в массив, поэтому обрабатывать пустой массив бессмысленно, сначала надо его заполнить. А вот с приведенной выше программой сложнее, она использует два массива, я не разбирался зачем, и кроме цыфр 1 и 3 использует 2, что не соответствует условиям задачи.

Димон,а вот это условие ты не записал в код "Определить общее количество выигрышей и ничьих данной команды."?

Сообщение от sonar

Димон,а вот это условие ты не записал в код "Определить общее количество выигрышей и ничьих данной команды."?

Как это не записал! а это что?

Код :

  If Igr[I]=3 Then V=V+1
  If Igr[I]=1 Then N=N+1