Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Visual Basic] Обмен элементов вектора

Автор: suwka 24.1.2007, 02:48

Помогите плиз, никак не могу сделать! smile

  В первой не могу понять как их поменять, вернее понимаю, что через новые переменные, а как реализовать не знаю. Во второй как сделать так, чтобы последовательно было.
1.  Необходимо поменять местами наибольший элемент вектора Р
     на наименьший элемент вектора Q, оба вектора задаются вводом.
2.  Заполнить последовательно вектор индексами элементов матрицы имеющих положительные
     значения.

И не могу понять, почему программа не выводит значения х1, х2 и d?

Код


Private Sub Command1_Click()
Dim y1 As Single, x1 As Single, x1n As Single, dx1 As Single, x1k As Single
Dim y2 As Single, x2 As Single, x2n As Single, dx2 As Single, x2k As Single
Dim d As Single
Cls
 y1 = Text1.Text
 x1n = Text2.Text
 dx1 = Text3.Text
 x1k = Text4.Text
 y2 = Text5.Text
 x2n = Text6.Text                                                                        
 dx2 = Text7.Text
 x2k = Text8.Text
For x2 = x2n To x2k Step dx2
Print Tab(5); "x1="; Format(x1, "0.00")
 For x1 = x1n To x1k Step dx1
 d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
 Print "d="; Format(d, "0.00"), "x2="; Format(x2, "0.00")
Next x1
Next x2
Print
End Sub

M
Alexeis

Модератор: используйте подсветку синтаксиса http://forum.vingrad.ru/index.php?showtopic=126445

Модератор: Название темы должно отражать ее суть!

Модератор: Пожалуйста, один топик - один вопрос.

Автор: PoloS 24.1.2007, 09:12

1) Измини название темы
2) Вставь код в тэги