Язык Basic Опции

[Гость_Ea*Rais!_*]

Расположить в массиве R, сначала положительно, а затем отрицательно элементы массива Z, массив Z(30)

Сообщение отредактировал Ea*Rais! - Nov 20 2005, 20:22

[DAN]

все, эти задачи решили осталось подождать в таком ли виде каком надо было или нет%)

[Гость_Ea*Rais!_*]

все, эти задачи решили осталось подождать в таком ли виде каком надо было или нет%)

ДА Dan огромное тебе спасибо. Есть же такие челы как ты, когда в трудную минуту выручают. Блогадартсвую!


Первая задача выглядит так:
DIM i, x AS INTEGER
DIM r(1 TO 30), z(1 TO 30) AS INTEGER
RANDOMIZE 1000
CLS
PRINT "Massiv Z:"
FOR i = 1 TO 30
z(i) = INT(RND * 10)
PRINT z(i);
NEXT i
PRINT
PRINT "Massiv R v 1 sluchae:"
FOR i = 1 TO 30
r(i) = z(i)
PRINT r(i);
NEXT i
PRINT
PRINT "Massiv R vo 2 sluchae:"
x = 30
FOR i = 1 TO 30
r(i) = z(x)
x = x - 1
PRINT r(i);
NEXT i

Вторая вот так:
DIM a(1 TO 10, 1 TO 10) AS INTEGER


CLS
RANDOMIZE 1000

FOR i = 1 TO 5
FOR j = 1 TO 5
a(i, j) = INT(RND * 10)
PRINT a(i, j);
NEXT j

PRINT
NEXT i

PRINT

FOR i = 1 TO 5
PRINT a(i, i);
NEXT i

PRINT

FOR i = 2 TO 5
FOR j = 1 TO (5 - i + 1)
PRINT a(i + j - 1, j);
NEXT j
NEXT i

Если что кто заинтересовался! Это образец