Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Visual Basic] Обмен элементов вектора 
:(
    Опции темы
suwka
  Дата 24.1.2007, 02:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Помогите плиз, никак не могу сделать!  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

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

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


Это сообщение отредактировал(а) Alexeis - 24.1.2007, 11:04
PM MAIL   Вверх
PoloS
Дата 24.1.2007, 09:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 29.12.2006
Где: МО, г. Одинцово

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



1) Измини название темы
2) Вставь код в тэги
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman

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


 




[ Время генерации скрипта: 0.0383 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.