VBNet - Форум - Помогите чайнику пожалуйста...

Вопрос: Помогите чайнику пожалуйста... Добавлено: 16.03.04 02:04

Автор вопроса: leiderfx

Умоляю, напишите решение пары задачек. Это ОЧЕНЬ важно.
1.Ввести 2 одномерных массива, первый из N целых чисел, второй из 5 различных целых чисел. Удалить из 1-го массива числа, содержащиеся во втором. При удалении элементов массива он должен быть "сжат" перемещением оставшихся элементов.
2.Выполнить с использованием подпрограмм. Дана квадратная сатрица размера П х П. Определить индексы наименьших элементов в каждой области. Минимизировать число циклов.
Заранее громадное спасибо!

Ответить

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

Номер ответа: 1 Автор ответа: Calhoon ICQ: 789764 Вопросов: 90 Ответов: 230	Web-сайт: 4elovekssn.blog.ru Профиль \| \| #1	Добавлено: 16.03.04 04:36
	Вот такие вопросы мне надпоминают задачки по информатике... Ответить

Номер ответа: 2
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #2

Добавлено: 16.03.04 12:24

Боюсь что с такими задачками ты должен справиться сам... Иначе программер из тебя не получится Нет, ну действительно...

Ответить

Номер ответа: 3
Автор ответа:

leiderfx

Вопросов: 1
Ответов: 1

Профиль | | #3

Добавлено: 16.03.04 13:40

Я, конечно, знаю, что сам должен - но дело в том, что абсолютно нет теории по бейсику, учебник нигде найти не могу, справки в нем нет (пишет, что нет msdn), где ее взять - не знаю...

Ответить

Номер ответа: 4
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #4

Добавлено: 16.03.04 13:50

2sne: боюсь этому человеку так же нужно становится программистом, как мне балериной.


 Private Sub Command1_Click()
     Dim a(1000) As Long, b(5) As Long, c(1000) As Long
     n = InputBox("Введите число N:")
     For i = 1 To n
         a(i) = InputBox("Введите " & CStr(i) & "-ое число первого массива")
     Next
     For i = 1 To 5
         b(i) = InputBox("Введите " & CStr(i) & "-ое число второго массива")
     Next
     t = 1
     For i = 1 To n
         e = 0
         For j = 1 To 5
             If a(i) = b(j) Then e = 1
         Next
         If e = 0 Then
             c(t) = a(i)
             t = t + 1
         End If
     Next
     For i = 1 To 1000
         a(i) = 0
     Next
     For i = 1 To t - 1
         a(i) = c(i)
     Next
 End Sub

А вторая какая-то непонятная. Какие еще области?

Ответить

Страница: 1 |