Найти и исправить ошибку в программе

@super678 · Регистрация: 26.12.2010

Студворк — интернет-сервис помощи студентам

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CLS
DIM a(n,n) AS INTEGER
FOR i =1 TO n
FOR j= 1 TO n
a (i,j)=in(RND*9)
PRINT a(i,j)
NEXT j
PRINT : PRINT
NEXT i
FOR i=1 TO n
FOR j=1 TO n
IF j> i THEN
 t=a(i,j)
a(i,j)= a(j,i)
a(j,i)=t
END IF
NEXT j
NEXT i
FOR i=1 TO n
PRINT a(i,j)
NEXT j
PRINT : PRINT 
NEXT i

завтра экзамен а ошибку найти не могу

@softmob · 26.12.2010, 19:38

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
INPUT "vvedite n"; n
DIM a(n, n)
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = FIX(RND * 9)
        PRINT a(i, j);
NEXT: PRINT: NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        IF j > i THEN SWAP a(i, j), a(j, i)
NEXT: NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT

@super678 · 26.12.2010, 20:14 **[ТС]**

мне надо траспонтирование матрицы

@softmob · 26.12.2010, 20:22

нельзя было сразу написать задание.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
INPUT "vvedite kolichestvo strok"; m
INPUT "vvedite kolichestvo stolbcov"; n
DIM a(m, n), b(n, m)
FOR i = 1 TO m: FOR j = 1 TO n
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
CLS
FOR i = 1 TO m: FOR j = 1 TO n
        b(j, i) = a(i, j)
NEXT: NEXT
PRINT "matrica"
FOR i = 1 TO m: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "new matrica"
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT b(i, j);
NEXT: PRINT: NEXT

@кот Бегемот · 26.12.2010, 23:13

softmob,транспонировать можно только квадратную матрицу, так что m и n - излишни.
и делается это в одном массиве с помощью swap.
Я смотрю, амбиций у тебя до хрена, а умений маловато. Ты подучись сначала, а потом уже выё*ывайся

@softmob · 26.12.2010, 23:57

Сообщение от кот Бегемот

softmob,транспонировать можно только квадратную матрицу, так что m и n - излишни.

В транспонированной матрице строки заменены на столбцы, во всяком случае так в википедии говорится.
следственно откуда откуда ограничение, что только для квадратной матрицы.
да если в одном массиве через swap тогда только квадратную матрицу получится транспонировать.

Добавлено через 21 минуту
да умений мало, я и не отрицаю. только смысл сравнивать, ты в программировании не один год, но не все же такие.
из школьной программы мало что можно узнать.
да не редко что то не получается или выходит не так. но не лучше ли помочь чем критиковать.

@кот Бегемот · 27.12.2010, 21:02

Сообщение от softmob

В транспонированной матрице строки заменены на столбцы, во всяком случае так в википедии говорится.
следственно откуда откуда ограничение, что только для квадратной матрицы.
да если в одном массиве через swap тогда только квадратную матрицу получится транспонировать.

Не всегда следует слепо верить энциклопедиям. Они дают общие понятия. В данном случае - общематематические. Вы, несомненно правы, с точки зрения математики, программа должна заменять строки столбцами и наоборот. Это примитивно, поэтому в практике программирования такая задача не встречается. В программировании ставится другая задача - умение найти формулу по которой квадратная матрица отражается относительно диагонали, т.е. транспонируется.

Сообщение от softmob

да умений мало.
да не редко что то не получается или выходит не так. но не лучше ли помочь чем критиковать.

Помогают тем, кто просит этой помощи, а не тем, кто нахватался верхушек и уже смело хамит тем, кто может больше.

@softmob · 27.12.2010, 21:28

Сообщение от кот Бегемот

Не всегда следует слепо верить энциклопедиям. Они дают общие понятия. В данном случае - общематематические. Вы, несомненно правы, с точки зрения математики, программа должна заменять строки столбцами и наоборот. Это примитивно, поэтому в практике программирования такая задача не встречается. В программировании ставится другая задача - умение найти формулу по которой квадратная матрица отражается относительно диагонали, т.е. транспонируется.

буду знать.

Сообщение от кот Бегемот

Помогают тем, кто просит этой помощи, а не тем, кто нахватался верхушек и уже смело хамит тем, кто может больше.

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

Добавлено через 10 минут
делал относительно найденой в интернете информации о транспонирование.
собственно говоря задача была решена уже во втором после
если ее еще чуть исправить то.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
INPUT "vvedite n"; n
DIM a(n, n)
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = FIX(RND * 9)
        PRINT a(i, j);
NEXT: PRINT: NEXT
FOR i = 1 TO n: FOR j = 1 TO i
        SWAP a(i, j), a(j, i)
NEXT: NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT

в 4 посте лишь скопированная задача из темы в которой уже решал её.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Найти и исправить ошибку в программе

Решение

Решение

@super678 0 / 0 / 0 Регистрация: 26.12.2010 Сообщений: 3
	26.12.2010, 20:14 [ТС]
	мне надо траспонтирование матрицы 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	26.12.2010, 23:13
	softmob,транспонировать можно только квадратную матрицу, так что m и n - излишни. и делается это в одном массиве с помощью swap. Я смотрю, амбиций у тебя до хрена, а умений маловато. Ты подучись сначала, а потом уже выё*ывайся 0