Организовать ввод элементов двумерного массива из текстового файла

@123Ruslan123 · Регистрация: 21.09.2014

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

Помогите переделать программу под эти задания.
задание:
1.Организовать ввод элементов двумерного массива размерностью N*M из текстового файла(открытие файла через объекты DriveListBox,DirListBox,FileListBox)
2.Вывести исходный массив в таблицу MSFlexGrid.
3.Определить суммы отрицательных элементов по столбцам.
4.Найти квадрат произведения максимального элемента массива и элемента с индексом (L,K).
5.Удалить столбцы, в которых есть хотя бы один отрицательный элемент, кратный 4.

флекс.rar

@123Ruslan123 · 27.09.2014, 12:40 **[ТС]**

Помогитеее, пожалуйста

@Alex77755 · 27.09.2014, 18:51

Начинайтеее, пожалуйстааа!
помоожеееееем!
Делаааать ззза вааааааас неее буууудееемм!

@123Ruslan123 · 28.09.2014, 16:15 **[ТС]**

Определить суммы отрицательных элементов по столбцам.
Как?)

@Alex77755 · 28.09.2014, 16:45

Сумма определяется методом сложения

Добавлено через 1 минуту
Отрицательные значит меньше 0.
Проверяется оператором <

@123Ruslan123 · 28.09.2014, 17:27 **[ТС]**

Как её найти в этом именно файле.
Если делать через объекты DriveListBox,DirListBox,FileListBox, то :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command2_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
For i = 1 To n
proizv = 1
For j = 1 To m
If B(i, j) < 0 Then proizv = proizv * B(i, j)
Next j
If proizv <> 1 Then Label9.Caption = Label9.Caption & "Строка- " & i & " = " & proizv & vbCrLf
If proizv = 1 Then Label9.Caption = Label9.Caption & "Строка- " & i & " = " & 0 & vbCrLf
Next i
End Sub

А как сделать это в этом файле?

SoftIce · 28.09.2014, 17:44

В конце той темы, в которой ты взял прикрепленный к первому сообщению проект, есть почти готовое решение с использованием DriveListBox,DirListBox,FileListBox. Сил не хватило дочитать тему до конца?

@123Ruslan123 · 30.09.2014, 16:51 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command2_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
For i = 1 To n
summ = 1
For j = 1 To m
If B(i, j) < 0 Then summ = summ + B(i, j)
Next j
If summ <> 1 Then Label9.Caption = Label9.Caption & "Ñòðîêà- " & i & " = " & summ & vbCrLf
If summ = 1 Then Label9.Caption = Label9.Caption & "Ñòðîêà- " & i & " = " & 0 & vbCrLf
Next i
End Sub

Здесь идет расчет по строкам, как сделать по столбцам сумму отриц. элементов?

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@123Ruslan123 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 5

	Организовать ввод элементов двумерного массива из текстового файла 21.09.2014, 14:58. Показов 2534. Ответов 7 Метки нет (Все метки) Помогите переделать программу под эти задания. задание: 1.Организовать ввод элементов двумерного массива размерностью N*M из текстового файла(открытие файла через объекты DriveListBox,DirListBox,FileListBox) 2.Вывести исходный массив в таблицу MSFlexGrid. 3.Определить суммы отрицательных элементов по столбцам. 4.Найти квадрат произведения максимального элемента массива и элемента с индексом (L,K). 5.Удалить столбцы, в которых есть хотя бы один отрицательный элемент, кратный 4. флекс.rar 0

@123Ruslan123 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 5
	27.09.2014, 12:40 [ТС]
	Помогитеее, пожалуйста 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	27.09.2014, 18:51
	Начинайтеее, пожалуйстааа! помоожеееееем! Делаааать ззза вааааааас неее буууудееемм! 0

@123Ruslan123 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 5
	28.09.2014, 16:15 [ТС]
	Определить суммы отрицательных элементов по столбцам. Как?) 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.09.2014, 16:45
	Сумма определяется методом сложения Добавлено через 1 минуту Отрицательные значит меньше 0. Проверяется оператором < 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.09.2014, 17:44
	Сообщение было отмечено The trick как решение Решение В конце той темы, в которой ты взял прикрепленный к первому сообщению проект, есть почти готовое решение с использованием DriveListBox,DirListBox,FileListBox. Сил не хватило дочитать тему до конца? 0

Организовать ввод элементов двумерного массива из текстового файла

Решение