Скачать: CL | DM;

Кто помнит 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]

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

---

← →
Jeer ©   (2005-11-17 17:23) [6]

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

---

← →
TUser ©   (2005-11-17 17:24) [7]

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

Я набирал в 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c