С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Iluxa
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 41
1

Двухмерные массивы

10.05.2011, 07:40. Просмотров 429. Ответов 3
Метки нет (Все метки)

составить программу нахождения числа, встречающегося во всех строках двухмерного массива A(N.N) , если такого числа нет, программа должна выдать сообщение "нет". Ребята только очень прошу создать программу простыми командами без String$(124,86) там без всяких таких обычными стандартными командами у меня просто есть такая программа я сам ее составил такими командами прошу прямо по простому сделать =( без RND даже
INPUT "KOL- VO STROK"; N
INPUT "KOL- VO STOLBCOV"; M
INPUT "NACHALO INTERVALA"; K
INPUT "KONEC INTERVALA" ; T
IF T<K THEN SWAP T,K
PRINT "MASSIV:"
FOR I= 1 TO N: FOR J= 1 TI M
A(I,J)= INT ( 150* RND (1)-50)
PRINT A(I,J);
IF A(I,J);
IF A(I,J)>0 AND A (I,J) < T AND A(I,J)> K THEN S=S+A(I,J)
NEXT: PRINT: NEXT
PRINT "SUMMA:"; S
вот ребята прошу намного проше сделать эту программу с обычными командами без Rnd then swap со всеми обычными легкими командами
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2011, 07:40
Ответы с готовыми решениями:

QBasic и двухмерные массивы...
Составьте программу вычисления суммы неповторяющихся элементов двухмерного массива А(N,P)?

Двухмерные массивы. Оператор swap
Задана матрица R(n,m). Поменять местами 1-ю и последнюю строки. В полученной матрице найти...

Двухмерные массивы. Минимальный элемент на пересечении строк и столбцов.
Дан массив R(n,m) определить строку и столбец на пересечении которых находится минимальный элемент....

Двухмерные массивы
На чёрном экране матрица, имеющая размерность 4*4, выводится в строку, а надо в исходном виде, т.е...

Двухмерные массивы
Задача ДАна двухмерная матрица из 1 и 0 найти квадратную матрицу целиком из нулей. не пойму как...

3
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
10.05.2011, 14:29 2
Цитата Сообщение от Iluxa Посмотреть сообщение
INPUT "KOL- VO STROK"; N
INPUT "KOL- VO STOLBCOV"; M
INPUT "NACHALO INTERVALA"; K
INPUT "KONEC INTERVALA" ; T
IF T<K THEN SWAP T,K
PRINT "MASSIV:"
FOR I= 1 TO N: FOR J= 1 TI M
A(I,J)= INT ( 150* RND (1)-50)
PRINT A(I,J);
IF A(I,J);
IF A(I,J)>0 AND A (I,J) < T AND A(I,J)> K THEN S=S+A(I,J)
NEXT: PRINT: NEXT
PRINT "SUMMA:"; S
вот ребята прошу намного проше сделать эту программу с обычными командами без Rnd then swap со всеми обычными легкими командами
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
INPUT "KOL- VO STROK"; N
INPUT "KOL- VO STOLBCOV"; M
INPUT "NACHALO INTERVALA"; K
INPUT "KONEC INTERVALA"; T
IF T < K THEN P1 = K: K = T: T = p1
DIM a(n,m)
FOR I = 1 TO N: FOR J = 1 TO M
        CLS
        PRINT "vvedite"; I; ";"; J; "element"
        INPUT A(I, J)
NEXT: NEXT
CLS
PRINT "MASSIV:"
FOR I = 1 TO N: FOR J = 1 TO M
        PRINT A(I, J);
        IF A(I, J) > 0 AND A(I, J) < T AND A(I, J) > K THEN S = S + A(I, J)
NEXT: PRINT: NEXT
PRINT "SUMMA:"; S
команду if...then... нет смысла заменять... да как то и нереально без нее написать... это стандартная функция!
2
Iluxa
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 41
10.05.2011, 14:34  [ТС] 3
Очень сильно благодарен вам
0
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
10.05.2011, 14:49 4
Цитата Сообщение от Iluxa Посмотреть сообщение
составить программу нахождения числа, встречающегося во всех строках двухмерного массива A(N.N) , если такого числа нет, программа должна выдать сообщение "нет"
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CLS
INPUT "kol-vo strok i stolbcov"; N
DIM a(N, N)
FOR I = 1 TO N: FOR J = 1 TO N
        CLS
        PRINT "vvedite"; I; ";"; J; "element"
        INPUT a(I, J)
NEXT: NEXT
CLS
PRINT "MASSIV:"
FOR I = 1 TO N: FOR J = 1 TO N
        PRINT a(I, J);
NEXT: PRINT: NEXT
FOR I = 1 TO N: FOR J = 1 TO N
        s = 0
        FOR i1 = 1 TO N: k = 0: FOR j1 = 1 TO N
                IF a(I, J) = a(i1, j1) THEN k = 1
            NEXT
            IF k = 1 THEN s = s + 1
        NEXT
        IF s = N THEN PRINT "chislo:"; a(I, J): END
NEXT: NEXT
PRINT "net"
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2011, 14:49

Двухмерные массивы
В двухмерном массиве первый столбец поменять местами с последним столбцом, второй столбец с...

Двухмерные массивы
Помогите сделать Дана целочисленная прямоугольная матрица n x m. Определить: 1. Те столбцы, в...

Двухмерные массивы
На уроке задали данную работу, возникли проблемы по ходу выполнения... Буду благодарен если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru