VPF::Срочно нужна блок-схема этого алгоритма...

0sasha0

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

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

Загрузка ...

Новичок

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

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

Очень подробно не нужно. Если будет в падлу, то прозьба хотя бы показать как описывается цикл в цикле! За ранее спасибо!

Dim Massiv_A(1 To 10, 1 To 10) As Integer
Dim MasDiagonal(1 To 10) As Integer

Dim j, i, x As Byte
Dim Min, index As Byte
Dim s As String

Form1.Cls
Label3.Caption = ""
Label4.Caption = ""
Label6.Caption = ""

'************* Начало заполнение массива А *************
For i = 1 To 10
For j = 1 To 10

  Massiv_A(i, j) = Round(1 + Rnd * 100) '** заполнение массива А случайными числами от 1 до 100

  Form1.CurrentX = 350 * j           '** устанавливаем координаты вывода значений
  Form1.CurrentY = 350 * i           '   массива А
  Print (Massiv_A(i, j))             '** выводим значения массива А

Next j
Print
Next i
'*************Заполнение массива А закончено *************

'************Помещаем в массив значения главной диагонали***********
For i = 1 To 10
MasDiagonal(i) = Massiv_A(i, i)
Label3.Caption = Label3.Caption + " " + Str(MasDiagonal(i)) 'выводим значения главной диаглнали
Next i
'*******************************************************************

'**********Поиск минимального элемента главной диагонали **********

x = MasDiagonal(1)

For i = 1 To 9

If x <= MasDiagonal(i + 1) Then
  Min = x
End If

If x >= MasDiagonal(i + 1) Then
  x = MasDiagonal(i + 1)
  Min = x
End If

Next i
'*****************************************************************

'**********Определение индекса минимального элемента главной диагонали****
For i = 1 To 10

If Min = MasDiagonal(i) Then
index = i
Exit For

End If

Next i
'*****************************************************************

Label4.Caption = Str(index)
Label6.Caption = Str(Min)

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