Язык 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 оказываеться еще БЛОк-схема нужна. СМОЖЕШЬ!!!??

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

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

Ссначала рисуешь овал и в нм пишешь начало, затем рисуешь параллелепипед там пиешь например, чтение исходного файла. Затем рисуеться ромб. в ромбе идет присуждение, например i := i +1. Потом снова овал и в нем пишешь Конец. Если что я тебе могу дать пример блок схемы.

[Гость_Gidomak_*]

Народ, дайте пожалуйста кто нить ссылку на сам бэйсик для ВТ, и на какой нить учебник

[Kumarr]

народ помогите плиз прогу в QBasic'е надо написать: дан двумерный целочисленный массив A(m;n). Задается с экрана либо генерируется в пределах (-20;20). (<- эту часть я сделал)
А дальше не знаю как: Требуется найти среднее арифметическое каждого столбца

[Gobbs]

народ помогите плиз прогу в QBasic'е надо написать: дан двумерный целочисленный массив A(m;n). Задается с экрана либо генерируется в пределах (-20;20). (<- эту часть я сделал)
А дальше не знаю как: Требуется найти среднее арифметическое каждого столбца

Алгоритм следующий.

CODE

#include<conio.h>
#include<iostream.h>

int main()
{
int m=2,n=2;
int A[2][2]={{1,1},
{3,4}};
for(int i=0;i<m;i++)
{
float temp=0;
for(int k=0;k<n;k++){
temp+=A[k][i];
cout<<"srednee arifm-oe stolbca #"<<i<<" "<<temp/m<<endl;
}
getch();
return 0;
}

P.S. к сожалению, с бейсиком не знаком, но принцип работы алгоритма, думаю, понять из этого кода можно.

Сообщение отредактировал Gobbs - Oct 12 2007, 23:33

[Kumarr]

Алгоритм следующий.

CODE

#include<conio.h>
#include<iostream.h>

int main()
{
int m=2,n=2;
int A[2][2]={{1,1},
{3,4}};
for(int i=0;i<m;i++)
{
float temp=0;
for(int k=0;k<n;k++){
temp+=A[k][i];
cout<<"srednee arifm-oe stolbca #"<<i<<" "<<temp/m<<endl;
}
getch();
return 0;
}

P.S. к сожалению, с бейсиком не знаком, но принцип работы алгоритма, думаю, понять из этого кода можно.

если честно то ниче не понял)

[Gruzin]

кхм...читал читал и вот что подумал.. мне тут вспомнилась школьная задачка тупост полная но так и не смог посчитаьь... 2 в степени 800
в бесике... таких чисел он не считает...мне кажется... у него не хватит длинны строки на обозначение сокращения.. я прав?
если так то интерестно зачем давать такие задачи и горить что они решимы...

[Gobbs]

я прав?

нет.

[Гость_G1UK_*]

народ помогите плиз прогу в QBasic'е надо написать: дан двумерный целочисленный массив A(m;n). Задается с экрана либо генерируется в пределах (-20;20). (<- эту часть я сделал)
А дальше не знаю как: Требуется найти среднее арифметическое каждого столбца

Код

rem ...
ind1=0
ind2=0
while (ind1<=m and ind2<=n) do
ind1=ind1+1
ind2=ind2+1
sum=sum+A(ind1;ind2)
kolvo=kolvo+1
endwhile
srarifm=sum/kolvo
print "srednee arifmeticheskoe= ",srarifm

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

[Kumarr]

Код

rem ...
ind1=0
ind2=0
while (ind1<=m and ind2<=n) do
ind1=ind1+1
ind2=ind2+1
sum=sum+A(ind1;ind2)
kolvo=kolvo+1
endwhile
srarifm=sum/kolvo
print "srednee arifmeticheskoe= ",srarifm

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

неа, нифига не получается
вот на этом месте ругается : sum=sum+A(ind1;ind2)

[Гость_G1UK_*]

Попробуй sum=sum+a(ind1,ind2) вместо ;

[Kumarr]

Попробуй sum=sum+a(ind1,ind2) вместо ;

пробовал, так же ругается "индекс вне диапазона"

[Гость_G1UK_*]

m и n - кол-во элементов строки и ряда соответственно. Ты их задал ?

[Kumarr]

m и n - кол-во элементов строки и ряда соответственно. Ты их задал ?

да, вроде - я не совсем тебя понял..

[Gruzin]

нет.

будь добр тогда скажи решение...