Кто помнит Basic?

← →
dr Tr0jan © (2005-11-17 14:15) [0]

Уж не думал, что когда нибудь буду задавать здесь такой вопрос. Но тут оч хорошая знаокмая попросила.
Надо решить две задачки на Басике. Сам изучал басик в седьмом классе - уже ничего не помню, да оно и не надо.

1. Напечатать элементы массива B(N) не кратные двум и найти их количество.
2. Найти максимальный элемент матрицы A(N,M) и записать нули в ту строку, где он находится.

← →
TUser © (2005-11-17 14:40) [1]

c = 0

FOR i = LBOUND(b) TO UBOUND(b)
IF i MOD 2 = 0 THEN
PRINT b(i)
c = c + 1
END IF
NEXT i
PRINT "c = ", c

Со вторым сам, наверное, справишься :))

← →
TUser © (2005-11-17 14:42) [2]

тьфу, условие про кратность понял совершенно по-своему. пиши
if b(i)\2 <> 0 then

← →
Holy © (2005-11-17 14:56) [3]

Интересно, а какой диалект... У меня в голове отличный от приведенного TUser.

← →
dr Tr0jan © (2005-11-17 14:59) [4]

> TUser © (17.11.05 14:40) [1]

Спасибо. Но напиши плиз второе. Я на паскале или си могу, а вот Басик - темный лес.

← →
VictorT © (2005-11-17 16:33) [5]

Да, насчёт диалекта, это вопрос.
Помнится, раньше ешё и номера строк нумеровали.

Это было давно, в эпоху GWBASIC :))

> Интересно, а какой диалект

Я набирал в QB. В VBA тоже будет работать все, кроме print"а - но можно писать debug.print.

DIM a(0 TO 10, -2 TO 5) AS INTEGER

RANDOMIZE TIMER
FOR i = LBOUND(a) TO UBOUND(a)
FOR j = LBOUND(a, 2) TO UBOUND(a, 2)
a(i, j) = RND * 100
NEXT j
NEXT i

x = LBOUND(a)
y = LBOUND(a, 2)
Max = a(x, y)

FOR i = LBOUND(a) TO UBOUND(a)
FOR j = LBOUND(a, 2) TO UBOUND(a, 2)
IF a(i, j) > Max THEN
x = i: y = j: Max = a(i, j)
END IF
NEXT j
NEXT i

PRINT "max = ", Max

FOR j = 0 TO UBOUND(a, 2)
a(x, j) = 0
NEXT j

Кто помнит Basic? Найти похожие ветки