Язык Basic Опции

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

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

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

[DAN]

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

не понял, че надо с R и Z делать? и тот и другой сначала расположить по возрастанию а потом по убыванию?

Сообщение отредактировал DAN - Nov 20 2005, 19:10

[-flank]

я тож прочитал, и не понял, набор слов какой то...

[JoNy202]

Подробнее задачу опиши, лучше всего по пунктам

[-flank]

for i=1 to 30
R[i]=Z[i]
next i
x=30
for i=1 to 30
R[i]=Z[x]
x=x-1
next i

писалось от балды, под синтаксис бейсика подправить
если я все правильно понял...

[JoNy202]

а это что за язык

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

for i=1 to 30
R[i]=Z[i]
next i
x=30
for i=1 to 30
R[i]=Z[x]
x=x-1
next i

писалось от балды, под синтаксис бейсика подправить
если я все правильно понял...

Я помню сначала надо писать Program, а что в бейсике сразу с For начинают?? Напиши Плизз подробнее


И еще одна задачка. Тема: Имя матрицы и размеры F, k, l. Действие: Транспонировать матрицу и вывести на печать элементы главной диагонали и диоганалей расположенных под главной диагональю. Результаты разместить в двух строках. Я знаю это бред, но так она звучит

[JoNy202]

Нисколько не бред, только вот, давно в школе изучают матрицы и транспонируют их ???

PS а ты сам то знаешь как с матрицами работать

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

Было дело на 1 курсе. Вот тока я изучал не бейсик, а Fortran. А потом во втором семестре - Pascal. Вроде помню в паскале как транспонировать. а Вот в бейсике ваще не представляю. Это не мне надо. Люди попросили чтоб я вывесил на форум. Вдруг чем помогут. А я даже и не пробовал сам. Да и ктомуже нет проги "Basic". Ну если сможете, помогите!!!

[DAN]

Е-мое да зачем даже в институтах изучают бейсики и фортраны?! Кому они нужны?
У меня есть КуВасик 4.5 щас на нем попробую - вспормню синтаксис а нпишу полное решение.
ЗЫ Только 2 вопроса: разъясни первую задачу фланк может и н правильно понял, что значит транспонировать? считать с консоли? образовать наугад?
в lib.pauk.net.ru есть учебник Visualbasic - можно там вспомнить синтаксис

Сообщение отредактировал DAN - Nov 20 2005, 21:14

[DAN]

Могу уточнить к решению фланка что надо в начале написать
DIM i, x AS INTEGER
DIM r(1 TO 30), z(1 TO 30) AS INTEGER
то бишь объявить переменные и массивы (хотя переменные вроде не обязательно в васике но все же

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

Е-мое да зачем даже в институтах изучают бейсики и фортраны?! Кому они нужны?
У меня есть КуВасик 4.5 щас на нем попробую - вспормню синтаксис а нпишу полное решение.
ЗЫ Только 2 вопроса: разъясни первую задачу фланк может и н правильно понял, что значит транспонировать? считать с консоли? образовать наугад?
в lib.pauk.net.ru есть учебник Visualbasic - можно там вспомнить синтаксис

Первая задача так и звучит. Если у Flanka задача работает, То значит все нормально, тока мне кажеться она не полная. Мне нужна от начала до конца, а он начал с For. А вторая задачка как хочешь либо с консоли, или на угад хоть. Главное чтоб работало. . DAN если сможешь то плиз реши.
P.S>> Тока, чтоб С начала до конца была и главное работала. Во вторник точно скажу как эти задачки звучат. А пока если не трудно то сделай. А во вторник узнаешь, правильно ты думал или не правильно!

Могу уточнить к решению фланка что надо в начале написать
DIM i, x AS INTEGER
DIM r(1 TO 30), z(1 TO 30) AS INTEGER
то бишь объявить переменные и массивы (хотя переменные вроде не обязательно в васике но все же

Во ты правильно думаешь. Сделай ПЛИЗЗ!! Признателен тебе!!

[-flank]

синтаксис не помню, бейсика нет, скажу только что к моему примеру надо добавить то что написал ДАН, а именно:
DIM r(1 TO 30), z(1 TO 30) AS INTEGER

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

синтаксис не помню, бейсика нет, скажу только что к моему примеру надо добавить то что написал ДАН, а именно:
DIM r(1 TO 30), z(1 TO 30) AS INTEGER

Если не трудно то напиши полностью программу. Чтоб тока мона ее было проверить!

[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

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

[-flank]

ну практически я правильно написал только Z не заполнялось и скобки нужно круглые, о чем я написал, но паук пропал...
можно еще выпендрится и сделать чтобы массивы писались в одну строку, удобоваримей будет... (или в бейсике перехода на следующую строку нет по умолчанию?)

[DAN]

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

тут надо было бы сделать 5 вместо 10 т.к. в цикле пробегались от 1 до 5 но это не страшно)

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

Dan оказываеться еще БЛОк-схема нужна. СМОЖЕШЬ!!!??

[DAN]

Dan оказываеться еще БЛОк-схема нужна. СМОЖЕШЬ!!!??

А что под этим подразумевается?