VPF::[VB6] Задача на матрицу - Форум программистов

Esera

Дата 29.11.2006, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.11.2006

Репутация: нет
Всего: нет

Дана матрица A(m, n), 2  m  10, 2  n  10, состоящая из целых чисел. Удалить из матрицы строки, состоящие из одинаковых элементов. Если таких строк в матрице больше половины, то вывести сообщение и матрицу не преобразовывать. Исходную и преобразованную матрицы вывести в текстовые поля. При решении задачи не использовать дополнительных массивов и матриц. Для решения задачи составить следующие подпрограммы:
-    логическую функцию проверки одной строки матрицы;
-    процедуру удаления одной строки матрицы;

Найдите ошибку  и дополните, пожалуйста

Код


Private Sub Vvod (A() As Integer, ByRef m%, ByRef n%)
Dim i As Integer
Dim j As Integer

Do
m = Val(InputBox("stroki"))
n = Val(InputBox("stolbcyi="))
Loop Until n > 0 And n <= 10 And m > 0 And m <= 10

For i% = 1 To m
For j% = 1 To n

A(i, j) = Val(InputBox("A(i,j)="))
Next j
Next i

End Sub
Private Sub Вывод(Text1 As Object, A() As Integer, ByVal m%, ByVal n%)
Dim s As String
Dim i As Integer
Dim j As Integer

s$ = " "
For i% = 1 To m
For j% = 1 To n
s = s + Str(A(i, j)) + " "
Next
s = s + vbCrLf
Next
Text1.Text = s
End Sub

Private Function Проверка(A() As Integer, ByVal m%, ByVal n%, ByVal num%) As Boolean
Dim j As Integer
Dim i As Integer

Проверка = False

For j% = 1 To n - 1
If A(num, j) = A(num, j + 1) Then
Проверка = True
Exit Function
End If
Next
End Function

Private Sub Удаление(A() As Integer, ByRef m%, ByVal n%, ByVal num%)
Dim i As Integer
For i% = num + 1 To m

Next
m = m - 1


End Sub


Private Sub Command1_Click()
Dim b(1 To 10, 1 To 10) As Integer
Dim m As Integer
Dim n As Integer
Dim i As Integer

Ввод b, m%, n%
Вывод Text1, b, m, n
Вывод Text2, A, m, n
For i% = m To 1 Step -1
If Проверка(b, m, n, i) = True Then
Удаление b, m, n, i
End If
Next
Вывод Text2, b, m, n
End Sub

Это сообщение отредактировал(а) Exception - 29.11.2006, 17:23

Esera

Дата 29.11.2006, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.11.2006

Репутация: нет
Всего: нет

Как много тех, кто желает мне помочь!

cardinal

Дата 29.11.2006, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 15
Всего: 99

Для поиска ошибок есть программа - отладчик. Ну неужели не пройтись по коду самой?

p.s. русскими буквами никто не пишет в языках программирования...

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Esera

Дата 29.11.2006, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.11.2006

Репутация: нет
Всего: нет

Я ее сделала
У меня проблема теперь с другой прогой, про строки...

cardinal

Дата 30.11.2006, 00:51 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 15
Всего: 99

Я пока так и не увидел, как ты сделала первую задачу (процедуру формирования списка слов одной строки).
Я бы начал так:

Код


'-------------------------------------------------------------------------------
' Вызывающая процедура (главная программа)
Private Sub Command1_Click()

Dim res() As String
res = GetListOfWords(Text1.Text)

...

End Sub

Private Function GetListOfWords(s As String) As String()
Dim res() As String
res = split(s, " ")
GetListOfWords = res()
End Function

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

То есть улавливаешь разницу: тебе говорят

Код


 GetListOfWords
 SplitWords
 FormatText

а ты делаешь

Код


 Вывод_в_текстовое_поле Text1, s1, m
 Форматирование s1, новый_текст, k, m, kolvo%
 Вывод_в_текстовое_поле Text2, новый_текст, kolvo%

Короче попроси модератора "центра помощи" перенести в раздел VB6, если тут народу мало отвечает и жди помощи там. У меня нет времени, чтобы за всех решать их задачи.

Успехов!

p.s. обязательно выкладывай тот кусок кода, по которому задаешь вопрос (код изменился - выкладывай еще раз)...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »