PDA

Просмотр полной версии : Поможите кто может!!!



Anonymous
29.05.2004, 00:54
Задан массив А= {Aij} i=1,10 j=1,20 Составьте программу поиска максимального элемента массива А и записи нулей в ту строку и в тот столбец где он находится!
Пожулуйста помогите написать ету прогу!!8))

AiK
29.05.2004, 01:33
Ты бы ради спортивного интереса указал бы язык что ли.

Anonymous
29.05.2004, 01:46
я чтот сразу не подумал
Visual Basik *))))

Anonymous
30.05.2004, 15:42
Ну пожалуйста НАРОд ну помогите!

Naeel Maqsudov
31.05.2004, 19:31
На форму добавьте TextBox (Text1) и кнопку. На кнопку напишите следующее:



Dim a(1 To 10, 1 To 20) As Double, max As Double, _
maxi As Integer, maxj As Integer, i As Integer, _
s As String, j As Integer

Private Sub Command1_Click()
max = a(1, 1): maxi = 1: maxj = 1
s = "Исходные данные: " & Chr(13) & Chr(10)
For i = 1 To 10
For j = 1 To 20
a(i, j) = Int(Rnd(1) * 1000)
s = s & a(i, j) & " "
Next
s = s & Chr(13) & Chr(10)
Next

s = s & "Результат: " & Chr(13) & Chr(10)
s = s & "Макс. элемент: " & maxi & " строка " & maxj & " столбец" & Chr(13) & Chr(10)

For i = 1 To 10: For j = 1 To 20
If max < a(i, j) Then
max = a(i, j): maxi = i: maxj = j
End If
Next: Next

a(maxi, maxj) = 0

For i = 1 To 10
For j = 1 To 20
s = s & a(i, j) & " "
Next
s = s & Chr(13) & Chr(10)
Next


Text1.Text = s

End Sub