VPF::Массивы!!! - Форум программистов

Anna4ka

Дата 6.5.2010, 10:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Помагите пожалуйста решить!!!!

1.даны два массива одинаковой размерности a(n),b(n) Определить кол-во элементов
1) a(i)>b(i)
2) a(i)=b(i) п-с поле инпут бокс
3) a(i)<b(i)

2. подсчитать наибольшее число одинаковых идущих подряд элементов в масссиве a(n), n- целое случайное число (10,30)

3. Написать программу, которая получает матрицу размерности n (получая поле input box ) ,где элементы выше поб диагонали=1, на поб диагонали =0, ниже поб поб диагонали =-1

Это сообщение отредактировал(а) Anna4ka - 6.5.2010, 11:48

dorogoyIV

Дата 8.5.2010, 12:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

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

что то никто не отвечает smile

вот тебе решение на первое задание:

Код


Sub Arrs()
 Dim n As Integer
 n = InputBox("длина масива")
 Dim a() As Integer, b() As Integer
 ReDim a(n)
 ReDim b(n)
 
 For i = 0 To n - 1
  a(i) = Rnd * 20 + 10 'целое число от 10 до 30
  b(i) = Rnd * 20 + 10 'целое число от 10 до 30
  Cells(i + 1, 1) = a(i)
  Cells(i + 1, 2) = b(i)
 Next i
 
 compareArrs a, b
End Sub

Private Function compareArrs(ByRef a() As Integer, ByRef b() As Integer)
 Dim first As Integer, second As Integer, third As Integer
 
 For i = 0 To UBound(a) - 1
  If (a(i) > b(i)) Then
   first = first + 1
  End If
  If (a(i) = b(i)) Then
   second = second + 1
  End If
  If (a(i) < b(i)) Then
   third = third + 1
  End If
 Next i
 MsgBox "a(i) > b(i) " & first & Chr(10) & _
              "a(i) = b(i) " & second & Chr(10) & _
              "a(i) < b(i) " & third
End Function

во втором я бы отсортировал массив, а потом считал

третье вообще не понял smile

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