Посчитать множество, полученное вычетанием первого множества из второго

@GaLioF · Регистрация: 24.05.2009

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

даны два одномерных массива a1,a2...an и b1,b2...bn посчитать множество, полученное вычетанием первого множества из второго. помогите написать Please...

@Toxa33rus · 25.06.2009, 13:57

Visual Basic

'тут задать а и в
 
Dim m()
Redim m(1 to n)
For i=1 to n
  m(i) = b(i)-a(i)
Next i

@GaLioF · 25.06.2009, 14:17 **[ТС]**

Спасибо за ответ, но что то прога не работает. Ругается ошибкой: invalid iutside procedure. В чём косяк?
И как правильно задать а и в? В задании написано, что это 2 массива...т.е. мне надо так-же прописывать

Visual Basic

1 2	Dim a(1 to n) as integer Dim b(1 to n) as integer

??

@Toxa33rus · 25.06.2009, 17:08

Да. Только сначала переменной n что-то присвоить, например "n = 7".
А потом еще и заполнить массивы а и бэ:

Visual Basic

1
2
3

a(1) = 5
a(2) = 13
...

Добавлено через 35 секунд
Просто по условию массивы уже даны, а где они даны не понятно

@GaLioF · 25.06.2009, 17:15 **[ТС]**

Visual Basic

Const n = 3
Dim a(1 To n)
Dim b(1 To n)
Dim m()
Private Sub Command1_Click()
a(1) = 1
a(2) = 3
a(3) = 8
b(1) = 5
b(2) = 6
b(3) = 10
ReDim m(n)
For i = 1 To n
m(i) = b(i) - a(i)
Next i
MsgBox (m)
End Sub

Пишет ошибку: несовпадение типа данных... а мне надо результат на экран вынести...

@БурундукЪ · 25.06.2009, 17:26

Сообщение от GaLioF

Visual Basic

1	MsgBox (m)

должно быть так

Visual Basic

MsgBox m

@GaLioF · 25.06.2009, 17:28 **[ТС]**

исправил, но ошибка осталась...

@Toxa33rus · 25.06.2009, 22:28

Visual Basic

1	Private Sub Command1_Click()

поднимите в самый верх

@GaLioF 0 / 0 / 1 Регистрация: 24.05.2009 Сообщений: 36
		1
	Посчитать множество, полученное вычетанием первого множества из второго 25.06.2009, 12:28. Показов 1235. Ответов 7 Метки нет (Все метки) даны два одномерных массива a1,a2...an и b1,b2...bn посчитать множество, полученное вычетанием первого множества из второго. помогите написать Please... 0

@GaLioF 0 / 0 / 1 Регистрация: 24.05.2009 Сообщений: 36
	25.06.2009, 17:28 [ТС]	7
	исправил, но ошибка осталась... 0

	25.06.2009, 22:28