VBNet - Форум - Задачки на Бейсике

Вопрос: Задачки на Бейсике Добавлено: 05.01.06 17:55

Автор вопроса: Тусик

Друзья!!!
Помогите бедной студентке.
Вопрос 1. Как поменять местами два элемента одномерного массива (максимальный и минимальный). Я определила максимальный и минимальный элемент массива, а вот как теперь их поменять местами не знаю.
Вопрос 2. Как поменять местами первую и последнюю строки матрицы в двумерном массиве.
Заранее благодарна всем, кто откликнется.
Всех поздравляю с наступившим Новым годом!!!
Ответить

Ответы Всего ответов: 19

Номер ответа: 1 Автор ответа: E-Man Вопросов: 3 Ответов: 132	Профиль \| \| #1	Добавлено: 05.01.06 19:53
	поменять местами A и B: (С - временная переменная) c=a a=b b=c (с элементами массива так же) вопрос2: все точно так же на самом деле, тока в цикле, где перебираются все элементы соответствующих строк.. Ответить

Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #2	Добавлено: 06.01.06 00:03
	поменять местами A и B: (Без использования временной переменной) Private Sub Command1_Click() a = 3 b = 4 a = a + b b = a - b a = a - b 'Вариант №2: 'a = a Xor b 'b = a Xor b 'a = a Xor b MsgBox "a =" & a MsgBox "b = " & b End Sub Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 06.01.06 00:23
	2) 'Незабудь батон и лабел! Private Sub Command1_Click() Dim matrix() 'объевляем динамический двухмерный Randomize Timer 'Размеры: a = 3 b = 4 ReDim matrix(a, b) 'переобъявляем задав размеры Label1 = "Оригинальный массив:" & vbNewLine Label1.Width = Me.ScaleWidth Label1.Height = Me.ScaleHeight ' Заполняем случайными числами For i = 0 To a For j = 0 To b matrix(i, j) = Int(Rnd * 9) Next j Next i 'Выводим: For i = 0 To a For j = 0 To b Label1 = Label1 & matrix(i, j) & " " Next j Label1 = Label1 & vbNewLine Next i Label1 = Label1 & vbNewLine & "Переставленный:" & vbNewLine 'Меняем (без временной переменной!) For j = 0 To b matrix(0, j) = matrix(0, j) + matrix(UBound(matrix), j) matrix(UBound(matrix), j) = matrix(0, j) - matrix(UBound(matrix), j) matrix(0, j) = matrix(0, j) - matrix(UBound(matrix), j) Next j 'Выводим: For i = 0 To a For j = 0 To b Label1 = Label1 & matrix(i, j) & " " Next j Label1 = Label1 & vbNewLine Next i End Sub Ответить

Номер ответа: 4 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #4	Добавлено: 06.01.06 07:57
	a = a + b b = a - b a = a - b А если Overflow? Ответить

Номер ответа: 5 Автор ответа: Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340	Профиль \| \| #5	Добавлено: 06.01.06 13:27
	Нафик мучаться? Пишем процедуру, как в Паскале Swap: Public Sub Swap(ByRef First As Variant, ByRef Second As Variant) ' Процедура обмена значениями двух переменных, аналогична одноименной функии на языке Pascal Dim Temp As Variant Temp = First First = Second Second = Temp End Sub Ответить

Номер ответа: 6 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #6	Добавлено: 06.01.06 16:24
	Надо создать форум Study и там написать прейскурант Ответить

Номер ответа: 7 Автор ответа: Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340	Профиль \| \| #7	Добавлено: 07.01.06 11:42
	Идея хорошая, тока деньги как переводить? eBuy? Или дедовским методом, ч/з сбербанк? Ответить

Номер ответа: 8 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #8	Добавлено: 07.01.06 13:16
	WebMoney - есть у любого уважающего себя сетевика Ответить

Номер ответа: 9 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #9	Добавлено: 07.01.06 16:37
	о! ну мне как, человеку конкретно ответившему на 2 вопроса можно сюда Z161554687049 ) Ответить

Номер ответа: 10 Автор ответа: Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340	Профиль \| \| #10	Добавлено: 08.01.06 08:58
	Админы! Извините что не по теме... Z161554687049 Этто еще что такое? Ответить

Номер ответа: 11 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #11	Добавлено: 08.01.06 16:52
	Это номер WMZ-кошелька Ответить

Номер ответа: 12 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #12	Добавлено: 10.01.06 21:35
	Людям нужно помогать! Если не трудно и есть время. Потому что помощь это бесплатно, а работа это за деньги. Ответить

Номер ответа: 13 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #13	Добавлено: 10.01.06 23:20
	Людям нужно помогать! А кто помогал? Я тупо взял и сделал, гы, даж спасибо никто не сказал от люди пошли... Ответить

Номер ответа: 14 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #14	Добавлено: 11.01.06 16:41
	Ну да хотя бы спасибо то могли сказать! Вот из за такого отношения у людей и нет желания помогать. Но все же думаю нужно наводить на мысль и с как это можно реализовать. А потом уже пусть сами методом проб и ошибок - лично мне интересно поломать голову, но зато потом насладиться результатом - если он есть конечно. Ответить

Номер ответа: 15 Автор ответа: Тусик Вопросов: 1 Ответов: 5	Профиль \| \| #15	Добавлено: 11.01.06 17:19
	Большое Вам спасибо! Как хорошо, что на свете есть умные и бескорыстные люди!! Ответить

Страница: 1 | 2 |