Помощник
Здравствуйте, гость ( Вход | Регистрация )
|
|
28:09:2007, 18:23
|
|
Новенький ![]() Группа: Новенький Сообщений: 36 Регистрация: 25:08:2007 Из: Н.Новгорол Пользователь №: 12 472 Репутация: 0
|
Короче, я смотрел форум с достаточно коротким названием Задачка. Там куча новичков просят помощи у форумчанинов. Ну так вот - для всех таких лентяев я делаю тему. Задавайте здесь вопросы типа Помогите написать программу на Бейсике. Буду по возможности отвечать. И прошу не писать мне сообщения типа зачем тебе это надо и т.п.
|
|
Сообщение
#1
|
|
![]() |
|
|
7:11:2007, 19:04
|
|
Новенький ![]() Группа: Новенький Сообщений: 6 Регистрация: 14:10:2007 Пользователь №: 13 184 Репутация: 0
|
Цитата(Hetman @ 7:11:2007, 02:34 ) понять мне больше нравится, конечно если это у мя получится =) спс ) Цитата(Юрэц @ 6:11:2007, 22:13 ) я не программист, просто есть такой предмет информатика, та и препод из нас сделать гениев хочет ) Цитата(Hetman @ 7:11:2007, 02:34 ) собираюсь, и даже сделал вторую про матрицу. А первую хАчу понять. оч. благодарен! Сообщение отредактировал НупкаVB - 7:11:2007, 19:05 |
|
Сообщение
#31
|
|
|
|
9:11:2007, 21:48
|
|
Продвинутый ![]() ![]() Группа: Новенький Сообщений: 172 Регистрация: 23:05:2004 Из: Минск Пользователь №: 548 Репутация: 2
|
для slammals и в чём проблема? если не знаешь функции - качай здесь
там все функции хорошо описаны, есть даже недольшие примеры. ну и для решения задачи тебе понадобятся циклы они там то же есть. когда посмотришь попробуй сам, если не заработает - скорректирую. Сообщение отредактировал Hetman - 9:11:2007, 21:50 |
|
Сообщение
#32
|
|
|
|
9:11:2007, 22:19
|
|
Продвинутый ![]() ![]() Группа: Новенький Сообщений: 172 Регистрация: 23:05:2004 Из: Минск Пользователь №: 548 Репутация: 2
|
Для: НупкаVB
надеюсь мне не придётся тебе объяснять Вышку как получается транспонированная матрица? и как они перемножаются и что такое двумерный массив? (google forever! и теперь зная всё это можно написать такую программу. Единственноечто тебе может понадобится дополнительно это такие функции как определение размерности массива Ubound (его верхней границы), так как размеры матриц зараниее не определены по условию. это будет тебе необходимо так как в транспонированной матрице число столбов соотвтетствует числу строк исходной матицы (и наборот). а так же для определения размера результирующей матрицы. затем тебе следует знать как делать динамические массивы (качай справочник из моего предыдущего поста для slammals). + bonus в VB нельзя сразу скопировать один массив в другой (вот так A = B или так А()=В() ), а только используя цикл. Но! переменной типа VARIANT можно назначить массив! просто присвоив его. и после этого им можно пользоваться как массивом. если освоишь - будешь спецом по матрицам Сообщение отредактировал Hetman - 9:11:2007, 22:21 |
|
Сообщение
#33
|
|
|
|
9:11:2007, 23:22
|
|
Новенький ![]() Группа: Новенький Сообщений: 6 Регистрация: 14:10:2007 Пользователь №: 13 184 Репутация: 0
|
Вышку я знаю, щас почитав и попробовав это на деле, получились такие проблемы:
1.Не получается транспонированная матрица, вот что пишу: for i=0 to n for j=0 to n A(i,j)= B (j,i) next j next i 2. или первая проблема не работает по причине того, что не могу я задать, чтобы ВБ в цикле число n принимал, как например от 1 до 100 (я хочу что-то типа мессаджбокса "введите размер матрицы") и при введениии этого числа он сразу же бы мог работать в цикле (бред несу да? |
|
Сообщение
#34
|
|
|
|
11:11:2007, 18:25
|
|
Продвинутый ![]() ![]() Группа: Новенький Сообщений: 172 Регистрация: 23:05:2004 Из: Минск Пользователь №: 548 Репутация: 2
|
Стоит привести текст всей твоей процедуры.
Цитата(НупкаVB @ 10:11:2007, 01:22 ) 2. или первая проблема не работает по причине того, что не могу я задать, чтобы ВБ в цикле число n принимал, как например от 1 до 100 (я хочу что-то типа мессаджбокса "введите размер матрицы") и при введениии этого числа он сразу же бы мог работать в цикле (бред несу да? ) ты мыслишь в правильном направлении, хоть и немного не хватает теории. я так думаю что в массиве у тебя первое чило идёт за строку второе за столбец? в вторых если матрицы не обязательно квадратные следовательно циклы могут иметь разное финальное значение и одной переменной (n) тут не хватит. это можно изобразить так Код for i=0 to ii for j=0 to jj At (j,i)= A (i,j) next j next i ii и jj нужно заранее определить и мессадж бокс не лучший способ (уж извини - по ламерски). Ведь это количество строк и столбцов исходной матрицы уменьшенной на единицу. ты знаешь где их взять (ты их вводил чтобы создать свою изначальную матрицу). 2-й способ, более продвинутый это определить их заново, для этого нужно воспользоваться функцией Ubound какую я упоменул выше. она позволяет найти верхний край массива. UBound(A, 1) - так узнаешь количество строк, а так UBound(A, 2) столбцов (или на оборот - кому как привычнее). после этого тебе нужно изменить размер динамического массива At() (как его сделать читай в справочнике линк на кот. был у меня выше) на подходящий. А уже после этого используя цикл забить туда значения. |
|
Сообщение
#35
|
|
|
|
20:11:2007, 12:30
|
|
Новенький ![]() Группа: Новенький Сообщений: 2 Регистрация: 20:11:2007 Пользователь №: 13 814 Репутация: 0
|
Дорогие програмисты!!! Помогите плиз мне с двумя вопросоми. Уже целую ниделю ищу ответ, но ничего конкретного я неншол, только уйму денег потратил на трафик. Это нужно для контрольной работы моей сестры. И так вопроссы: 1. Basic. Что такое вложеные циклы. Как они классифицируются. 2. Что такое очтет в базе данных Access
Буду вам искрене благодарен. Очень нужно. Если можна то немного пообширней (поподробней) ответ. Если что моя аська 336590324 Сообщение отредактировал Pakito - 20:11:2007, 12:34 |
|
Сообщение
#36
|
|
|
|
20:11:2007, 20:01
|
|
Продвинутый ![]() ![]() Группа: Новенький Сообщений: 172 Регистрация: 23:05:2004 Из: Минск Пользователь №: 548 Репутация: 2
|
Цитата(Pakito @ 20:11:2007, 14:30 ) смотри здесь при необходимости перелопатишь под Basic (думаю что такое простой цикл объяснять не придётся)Цитата(Pakito @ 20:11:2007, 14:30 ) открой справку в Access и посмотри. врятли тебе кто-то скажет больше |
|
Сообщение
#37
|
|
|
|
22:11:2007, 14:05
|
|
Новенький ![]() Группа: Новенький Сообщений: 2 Регистрация: 20:11:2007 Пользователь №: 13 814 Репутация: 0
|
to Hetman:
Спасибо за ссылку на циклы. |
|
Сообщение
#38
|
|
|
|
26:11:2007, 12:03
|
|
Новенький ![]() Группа: Новенький Сообщений: 3 Регистрация: 26:11:2007 Пользователь №: 13 910 Репутация: 0
|
Здраствуйте уважаемые программисты.
Нужно сделать курсовик на VB 6 и возник вопрос, возможно не много не по теме, но как-то не хочется отдельную тему создавать. Мне необходимо ввести числовые значения концентраций, а сделать я это хочу при помощи TextBox'ов на форме, но-помоему, TextBox это строковая переменная. Собственно сам вопрос: Есть ли в VB встроенная функция, которая позваляет строку (например вида "1,564") превратить в число типа Long или Double, или мне придется самому писать эту функцию? Нигде ничего не могу про это найти, может быть не то ищу. Если я где-то допустил ошибку, поправте пожалуйста. Заранее спасибо. Сообщение отредактировал 6ex - 26:11:2007, 12:06 |
|
Сообщение
#39
|
|
|
|
26:11:2007, 12:17
|
|
Продвинутый ![]() ![]() Группа: Программист Сообщений: 214 Регистрация: 16:10:2006 Из: Киев Пользователь №: 7 154 Репутация: 0
|
Cdbl функция
"ничего не могу про это найти", а в гугле строку "vb 6 функции" вбивать пробовали? Сообщение отредактировал Ogion7 - 26:11:2007, 12:19 |
|
Сообщение
#40
|
|
|
|
26:11:2007, 19:08
|
|
Новенький ![]() Группа: Новенький Сообщений: 3 Регистрация: 26:11:2007 Пользователь №: 13 910 Репутация: 0
|
функций много, а я один
Большое спасибо. |
|
Сообщение
#41
|
|
|
|
26:11:2007, 19:26
|
|
Продвинутый ![]() ![]() Группа: Новенький Сообщений: 172 Регистрация: 23:05:2004 Из: Минск Пользователь №: 548 Репутация: 2
|
Цитата(6ex @ 26:11:2007, 14:03 ) ты её поймёшь когда найдёшь в моём посте слова "качай здесь" я тебя уверяю, нужную тебе функцию ты обязательно там найдёшь |
|
Сообщение
#42
|
|
|
|
26:11:2007, 20:07
|
|
Новенький ![]() Группа: Новенький Сообщений: 3 Регистрация: 26:11:2007 Пользователь №: 13 910 Репутация: 0
|
Я скачал эту штуку, но в ней нет поиска по документу, времени мало и если я буду всё просматривать, то хрен к четвергу успею. у меня там еще много гемороя предстоит. Я вообще с VB года 2 дело не имел, итак сейчас придется тетрадь по информатике за первый курс искать...
Кстати спасибо за уделенное внимание. |
|
Сообщение
#43
|
|
|
|
3:12:2007, 16:17
|
|
Новенький ![]() Группа: Новенький Сообщений: 1 Регистрация: 3:12:2007 Пользователь №: 14 029 Репутация: 0
|
Привет,мне очень нужна помощь мне надо решить 4 задачи в бэйсике,но я вообще не знаю и ничего не понимаю,если сможешь,умоляю помоги=)
Сообщение отредактировал Viki Thomas - 4:12:2007, 13:07 |
|
Сообщение
#44
|
|
|
|
8:12:2007, 07:46
|
|
Новенький ![]() Группа: Новенький Сообщений: 2 Регистрация: 8:12:2007 Пользователь №: 14 112 Репутация: 0
|
привет всем программерам
Прошу Вас помочь мне с задачей.. которую я ника не могу сделать на VB. Двумерный массив размерностью n*n заполнен случайными числами от 1 до 100 расположить элементы в порядке убывания начиная с центра против часовой стрелки. я начал делать задачу, заполнил массив A(n,n) произвольными числами, взял вспомагательный массив B(n*n) заполнил его числами из массива A и сделал сортировку методом пузырька... Остается только заполнить массив A по спирали, а незнаю как это сделать... плиз помогите вот начальный код формы: Код Private Sub Комманда1_Click() Cls Dim A() As Integer Dim B() As Integer Dim i, j, n As Integer Dim k, l, q As Integer n = Val(Текст1.Text) ReDim A(n, n) As Integer ReDim B(n * n) As Integer For j = 1 To n For i = 1 To n A(i, j) = Int(Rnd * 100) k = k + 1 B(k) = A(i, j) CurrentX = 900 + i * 500 CurrentY = 900 + j * 500 Print A(i, j) Next i Next j For k = 1 To n * n - 1 For l = k + 1 To n * n If B(k) > B(l) Then q = B(k) B(k) = B(l) B(l) = q End If Next l Next k З.Ы. и я не лентяй а просто новичёк в програмировании=) Сообщение отредактировал Roger - 8:12:2007, 07:48 |
|
Сообщение
#45
|
|
|
|
10:12:2007, 18:03
|
|
Продвинутый ![]() ![]() Группа: Новенький Сообщений: 172 Регистрация: 23:05:2004 Из: Минск Пользователь №: 548 Репутация: 2
|
вот рисунок отображает общую идею, может пригодится (хотя там и по часовой стрелке)
spiral.GIF ( 1.28 килобайт )
Кол-во скачиваний: 291.сначала находим центр (думаю это не проблема, если матрица с нечётным кол-вом столбцов и срок) 2.затем идет цикл FOR в котором выполняется две основные операции (присваиваем необходимое значение), при этом цикл работает до тех пор пока его размер не превысит размер матрицы. 3.внитри цикла сначала одну координату уменьшаем (x), а другую увеличиваем (y) на величину текущего значения цикла (т.е. его оперенда обычно это некая переменная "I"). 4.на следующем обороте цикла должно быть на оборот - y уменьшаем, а x увеличиваем. И я знаяю как Сообщение отредактировал Hetman - 10:12:2007, 18:11 |
|
Сообщение
#46
|
|
|
|
11:12:2007, 18:09
|
|
Новенький ![]() Группа: Новенький Сообщений: 1 Регистрация: 10:12:2007 Пользователь №: 14 158 Репутация: 0
|
Народ,доброго времени суток как посчитать квадратный корень из числа на VB
Почитал мануал по ВБ и всё понял.Всем спс функция "Sqr" Сообщение отредактировал Falcon - 11:12:2007, 18:34 |
|
Сообщение
#47
|
|
|
|
11:12:2007, 19:13
|
|
Новенький ![]() Группа: Новенький Сообщений: 2 Регистрация: 8:12:2007 Пользователь №: 14 112 Репутация: 0
|
|
|
Сообщение
#48
|
|
|
|
11:12:2007, 19:36
|
|
Новенький ![]() Группа: Новенький Сообщений: 1 Регистрация: 11:12:2007 Пользователь №: 14 179 Репутация: 0
|
На дня препод задал задачу не посильную для меня
Дана совокупность сведений, каждое из которых состоит из следующих реквизитов: Фамилия и инициалы автора -25 знаков, название книги -40 знаков, издательство -20 знаков, год издания -4 знака. Требуется написать программу для выполнения следующих операций -Ввод совокупности данных (В) и создание файла FW(минимум 10 записей).Данные вводить с клавиатуры. -Добавление записей к файлу FW -Корректировка значений элементов записей файла FW Сказал, что нужно использовать это : массивы указателей на функцию, массивы и структуры в структурах |
|
Сообщение
#49
|
|
|
|
15:12:2007, 18:01
|
|
Новенький ![]() Группа: Новенький Сообщений: 1 Регистрация: 15:12:2007 Пользователь №: 14 278 Репутация: 0
|
Господа! Никак не могу самостоятельно разобраться,а время уже поджимает
|
|
Сообщение
#50
|
|
|
|
15:12:2007, 22:05
|
|
Продвинутый ![]() ![]() Группа: Новенький Сообщений: 172 Регистрация: 23:05:2004 Из: Минск Пользователь №: 548 Репутация: 2
|
|
|
Сообщение
#51
|
|
|
|
17:12:2007, 16:26
|
|
Новенький ![]() Группа: Новенький Сообщений: 1 Регистрация: 17:12:2007 Пользователь №: 14 298 Репутация: 0
|
Помогите пожалуйста, очень прошу, нужно написать такую вот программу:
Круги на воде.Экран изображает бассейн с водой, в который бросили камень(в заданных координатах). От камня пошли круги,которые дойдя до стенок бассейна отражаються о них.Реализовать эту динамическую картину.Реализовать эффект "блинчиков"- отскоков камня от поверхности воды с последующим падением |
|
Сообщение
#52
|
|
|
|
17:12:2007, 16:29
|