1 / 1 / 0
Регистрация: 28.11.2009
Сообщений: 15
1

блок схема

15.12.2009, 14:42. Показов 1596. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
дорый день, если кто разбирается в б\с помогите (В произвольно заданном двумерном массиве размера 4Х5 определить три элемента с наибольшими значениями.)
"
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub max_Click()
  Dim i As Long
  Dim j As Long
  Dim ip As Long
  Dim jp As Long
  Dim min As Long
  Dim imin As Long
  Dim jmin As Long
  Dim js As Long
  Const N = 3
  Const M = 4
  Dim Mas(0 To N, 0 To M) As Long
  Cls
  For i = 0 To N
    For j = 0 To M
      Mas(i, j) = Int(Rnd * 100)
      Print Mas(i, j);
    Next j
    Print
  Next i
  Print
  For ip = 0 To N
    For jp = 0 To M
      min = Mas(ip, jp)
      imin = ip: jmin = jp
      For i = ip To N
        If (i = ip) Then js = jp + 1 Else js = 0
        For j = js To M
          If Mas(i, j) < min Then
            min = Mas(i, j)
            imin = i: jmin = j
          End If
        Next j
      Next i
      Mas(imin, jmin) = Mas(ip, jp)
      Mas(ip, jp) = min
    Next jp
  Next ip
 
  For i = 0 To N
    For j = 0 To M
      Print Mas(i, j);
    Next j
    Text1.Text = Mas(i, 3)
    Text2.Text = Mas(i, 2)
     Text3.Text = min
  Next i
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2009, 14:42
Ответы с готовыми решениями:

Блок-схема
Как же всё-таки правильно обозначить цикл?? Как требуют преподы и чем мотивируют? 1 вариант 2...

Блок-схема
Фруктовый магазин продаёт яблоки по А руб.за кг., груши по В руб. за кг., апельсины по С руб. за...

Блок-схема
Помогите составить блок-схему для кода.. Dim x(5) As Integer, y(5) As Integer, l As Integer Dim...

!Блок-схема!
Кто умеет составлять блок-схему?.......... Dim x As Integer, y As Integer x=InputBox(&quot;Введите х&quot;)...

2
3896 / 899 / 122
Регистрация: 16.04.2009
Сообщений: 1,825
15.12.2009, 23:42 2
Visual Basic
1
2
3
4
5
6
7
8
9
dim Mas2()
redim Mas2(1 to (M+1)*(N+1))
For i=0 to N
For j=0 to M
  Mas2(j*M + i +1) = Mas(i,j)
next j
Next i
Sort Mas2
msgbox Mas2(1) & "; " & Mas2(2) & "; " & Mas2(3)
Процедуру сортировки ищем в соседних темах поиском.
0
10065 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
16.12.2009, 00:44 3
Toxa33rus, в Важном есть тема Массивы. Обьявление массивов. Сортировка массивов
0
16.12.2009, 00:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2009, 00:44
Помогаю со студенческими работами здесь

Блок схема программы
Помогите составить блок-схему программы пожалуйста: Dim nam(1 To 10) As String Dim noma(1 To 10)...

Программа и блок схема
Составить блок-схему и программу алгоритма для решения задачи, включающей ввод исходных данных,...

Блок-схема в visual basic
Помогите, пожалуйста, с составлением блок схемы, соответствующей коду. Вторая фотка 6 вариант - мое...

Блок-схема.Помоготе,пожалуйста
Помогите,пожалуйста,создать блок-схему.Остальное постараюсь сделать сама))) Дан одномерный массив...

Блок-схема по программному коду
i = 0 Do CommonDialog1.FileName = &quot;&quot; CommonDialog1.ShowOpen ...

Блок-схема по задаче и коду
Здравствуйте уважаемые форумчане! Мне попалась вот такая вот задача&quot; Заполнить в памяти ЭВМ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru