Обработка одномерных массивов и матриц

@Diash-ka · Регистрация: 18.01.2011

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

1. Обработка одномерных массивов.
Дан массив из N чисел. Переместить элементы массива так, чтобы сначала шли все
отрицательные по убыванию, а затем все остальные в порядке их ввода.

2. Обработка двумерных массивов (матриц).
Даны средние баллы 7 студентов за каждый год обучения. Для каждого студента определить наиболее успешный год

нужна программа(((

Добавлено через 4 минуты
половину 2го я сделала(
Private Sub Command1_Click()
Dim i%, j%, Max, A(), B(1 To 7) As Long
ReDim A(1 To 7, 1 To 5)
For i = 1 To 7
For j = 1 To 5
A(i, j) = Int(Rnd * 4 + 1)
List1(j - 1).List(i - 1) = A(i, j)
Next j, i

Sum = 0
For i = 1 To 7
B(i) = Sum
For j = 1 To 5
B(i) = B(i) + A(i, j)
List2.List(i - 1) = B(i)
Next j, i
For i = 1 To 7
For j = 1 To 5
MSFlexGrid1.TextMatrix(i, j) = A(i, j)
Next j, i
End Sub

насколько я понимаю, если здесь правильно, то мне осталось сделать заголовки в гибкой сетке, и собственно определить наиболее успешный год для каждого студента(
ах да и еще проблема в заполнении этого массива(
я его заполнила от 1 до 5, а на сколько я понимаю там должны быть средние баллы, т.е. как десятичные числа от 1 до 5 =(
помогите плиз(

@YuraAAA · 18.01.2011, 12:14

1.

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
Private Sub Command1_Click()
Dim arrA() As Single, N As Integer
Dim arrB() As Single, arrC() As Single
Dim CountB As Integer, CountC As Integer, c As Integer, txt As String
N = InputBox("N")
ReDim arrA(1 To N)
CountB = 0: CountC = 0
For i = 1 To N
    arrA(i) = InputBox("A(" & i & ")")
    txt = txt & arrA(i) & " "
    If arrA(i) < 0 Then
        CountB = CountB + 1
        ReDim Preserve arrB(1 To CountB)
        arrB(CountB) = arrA(i)
    Else
        CountC = CountC + 1
        ReDim Preserve arrC(1 To CountC)
        arrC(CountC) = arrA(i)
    End If
Next i
txt = txt & Chr(13)
For i = 1 To CountB
    For j = 1 To CountB - i
        If arrB(j) < arrB(j + 1) Then
            temp = arrB(j)
            arrB(j) = arrB(j + 1)
            arrB(j + 1) = temp
        End If
    Next j
Next i
 
For i = 1 To CountB
    arrA(i) = arrB(i)
    txt = txt & arrA(i) & " "
Next i
c = 0
For i = CountB + 1 To N
    c = c + 1
    arrA(i) = arrC(c)
    txt = txt & arrA(i) & " "
Next i
MsgBox txt
End Sub

@Diash-ka · 18.01.2011, 13:12 **[ТС]**

я кнешно понимаю что это нагло, но тебе не сложно обьяснить мне теоретически последовательно что ты делал(((
спасибо=*

@YuraAAA · 19.01.2011, 00:18

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
49
50
Dim arrA() As Single, N As Integer 'объявляем исходный массив, его размерность
Dim arrB() As Single, arrC() As Single 'вспомогательный массив
Dim CountB As Integer, CountC As Integer, c As Integer, txt As String 'размерность вспомогательных массивов, счётчик, тектовая переменная для вывода
N = InputBox("N") 'вводим размерность массива
ReDim arrA(1 To N)
CountB = 0: CountC = 0
For i = 1 To N
    arrA(i) = InputBox("A(" & i & ")") 'последовательно вводим элементы
    txt = txt & arrA(i) & " " 'Заполняем текстовую переменную для вывода на экран
    If arrA(i) < 0 Then 'если введённый элемент меньше 0 тогда
        CountB = CountB + 1 'увеличиваем значения счётчика и
        ReDim Preserve arrB(1 To CountB) 'расширяем массив
        arrB(CountB) = arrA(i) 'вводим это значение в массив
    Else
        CountC = CountC + 1 'иначе вводим в другой массив
        ReDim Preserve arrC(1 To CountC)
        arrC(CountC) = arrA(i)
    End If
Next i
'После этой процедуры получится 2 массив, в одном из которых будут все отрицательные, в другом - остальные
'К примеру, мы ввели 0 -1 2 3 -5 8 -2 -1 3 5 . Это будет исходный массив
'первый вспомогательный будет : -1 -5 -2 -1
'второй 0 2 3 8 3 5
 
 
txt = txt & Chr(13) 'Добавляем в текст символ пробела
'сортировка методом пузырька
For i = 1 To CountB
    For j = 1 To CountB - i
        If arrB(j) < arrB(j + 1) Then
            temp = arrB(j)
            arrB(j) = arrB(j + 1)
            arrB(j + 1) = temp
        End If
    Next j
Next i
 
'Теперь у нас есть отсортированный массив отрицательных чисел и остальные числа во втором массиве в порядке их ввода
'Осталось только запихнуть их обратно в исходный массив
For i = 1 To CountB
    arrA(i) = arrB(i) 'Заполняем исходный массив сначала отсортированными отрицательными
    txt = txt & arrA(i) & " "
Next i
c = 0
For i = CountB + 1 To N 'Теперь заполняем остальными в порядке ввода
    c = c + 1
    arrA(i) = arrC(c)
    txt = txt & arrA(i) & " " 'Добавляем в тектовую переменную
Next i
MsgBox txt 'выводим результат

@Diash-ka · 19.01.2011, 00:28 **[ТС]**

ты мега крут) спасибо)

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Diash-ka 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 9

	Обработка одномерных массивов и матриц 18.01.2011, 11:21. Показов 1189. Ответов 4 Метки нет (Все метки) 1. Обработка одномерных массивов. Дан массив из N чисел. Переместить элементы массива так, чтобы сначала шли все отрицательные по убыванию, а затем все остальные в порядке их ввода. 2. Обработка двумерных массивов (матриц). Даны средние баллы 7 студентов за каждый год обучения. Для каждого студента определить наиболее успешный год нужна программа((( Добавлено через 4 минуты половину 2го я сделала( Private Sub Command1_Click() Dim i%, j%, Max, A(), B(1 To 7) As Long ReDim A(1 To 7, 1 To 5) For i = 1 To 7 For j = 1 To 5 A(i, j) = Int(Rnd * 4 + 1) List1(j - 1).List(i - 1) = A(i, j) Next j, i Sum = 0 For i = 1 To 7 B(i) = Sum For j = 1 To 5 B(i) = B(i) + A(i, j) List2.List(i - 1) = B(i) Next j, i For i = 1 To 7 For j = 1 To 5 MSFlexGrid1.TextMatrix(i, j) = A(i, j) Next j, i End Sub насколько я понимаю, если здесь правильно, то мне осталось сделать заголовки в гибкой сетке, и собственно определить наиболее успешный год для каждого студента( ах да и еще проблема в заполнении этого массива( я его заполнила от 1 до 5, а на сколько я понимаю там должны быть средние баллы, т.е. как десятичные числа от 1 до 5 =( помогите плиз( 0

@Diash-ka 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 9
	18.01.2011, 13:12 [ТС]
	я кнешно понимаю что это нагло, но тебе не сложно обьяснить мне теоретически последовательно что ты делал((( спасибо=* 0

@Diash-ka 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 9
	19.01.2011, 00:28 [ТС]
	ты мега крут) спасибо) 0