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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите советом. Не могу придумать алгоритм. 
:(
    Опции темы
F_L_A_S_H
Дата 2.3.2007, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте уважаимые!
Решил написать программу расчёта, т.к. в Бейсике я не спец, но не могу придумать алгоритм. smile 
Есть у меня исходные данные, допустим таблица 10 на 10. Такого типа:
    100    200    300    400    500    600    700    800    900    1000
100    10    12    14    16    18    20    22    24    26    28
200    12    16    20    24    28    32                
300    14    18    20    22                        
400    16    20                                
500    18                                    
600    20                                    
700    22                                    
800    24                                    
900    26                                    
1000    28                                    
Есть идея создать двухиерный массив, но как выполнить поиск по массиву?
Ввожу я скажем в TextBox1=200, а в  TextBox2=300, как выполнить поиск и  сделать TextBox3=18 ??? 
Буду благодарен всем кто хоть как-то поможет...
PM MAIL   Вверх
~FoX~
Дата 2.3.2007, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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



Заполнить можешь руками или из файла, а вывести результат примерно так:
Код

dim a (1-10, 1-10) as integer
TexBox3.text = IntToStr(a(StrToInt(TExtBox2.Text)/100, StrToInt(TExtBox1.Text)/100))

Набирал прям в браузере, могут быть грамматические ошибки.

Это сообщение отредактировал(а) ~FoX~ - 2.3.2007, 20:16


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
F_L_A_S_H
Дата 3.3.2007, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



А ещё такая проблема обявляю я массив, а компилятор выдаёт сообщение об ошибке.... smile 
Что я делаю не так?

Dim a(1 - 3, 1 - 3) As Integer
a(1, 1) = 12
a(1, 2) = 14
a(1, 3) = 16
a(2, 1) = 14
a(2, 2) = 16
a(2, 3) = 18
a(3, 1) = 16
a(3, 2) = 18
a(3, 3) = 20  

Если кто-то может скиньте ссылку на статью по теме плиз.
PM MAIL   Вверх
~FoX~
Дата 3.3.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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



F_L_A_S_H, Пользуйтесь тегами кода
Код

Dim a(1 to 3, 1 to 3) As Integer




--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
F_L_A_S_H
Дата 3.3.2007, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Код

Dim a(1 - 3, 1 - 3) As Integer
a(1, 1) = 12
a(1, 2) = 14
a(1, 3) = 16
a(2, 1) = 14
a(2, 2) = 16
a(2, 3) = 18
a(3, 1) = 16
a(3, 2) = 18
a(3, 3) = 20  


При наборе этого кода выдаётся сообщение об ошибке( что-то вроде ошибке ввода данных)
PM MAIL   Вверх
bom
Дата 3.3.2007, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

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



~FoX~ уже дал правильный ответ, советую почитать, а так же учебник какой ни будь.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


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

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


 




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


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

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