Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
leiderfx
-
- Начинающий

-
-
- Сообщения: 1
- Зарегистрирован: 18.03.2004 (Чт) 22:37
leiderfx » 18.03.2004 (Чт) 22:47
Умоляю, напишите решение пары задачек. Это ОЧЕНЬ важно.
1.Ввести 2 одномерных массива, первый из N целых чисел, второй из 5 различных целых чисел. Удалить из 1-го массива числа, содержащиеся во втором. При удалении элементов массива он должен быть "сжат" перемещением оставшихся элементов.
2.Выполнить с использованием подпрограмм. Дана квадратная матрица размера П х П. Определить индексы наименьших элементов в каждой области (правой верхней и левой нижней). Минимизировать число циклов.
Заранее громадное спасибо!
-
A.A.Z.
-
- Член-корреспондент академии VBStreets

-
-
- Сообщения: 3035
- Зарегистрирован: 30.06.2003 (Пн) 13:38
-
A.A.Z. » 18.03.2004 (Чт) 22:50
Ты че-нибудь рубишь в VB? Если да - то могу подсказать идею, если нет, то посмотрю, останется ли время на это.
Нет меня больше
-
Rainbow
-
- Человек-радуга

-
-
- Сообщения: 543
- Зарегистрирован: 13.05.2003 (Вт) 14:16
Rainbow » 19.03.2004 (Пт) 12:35
Что это вас пробило на одинаковые задачи?
по поводу первой решение и обсуждение тут
http://bbs.vbstreets.ru/viewtopic.php?p=36136
Учиться - значит открывать для себя то, что уже знаешь. <...> Учить - значит напоминать другим о том, что они знают это также хорошо, как и ты. <...> Лучше всего ты учишь тому, чему тебе самому больше всего надо научиться. (Р. Бах)
-
Pavlo
-
- Новичок

-
-
- Сообщения: 46
- Зарегистрирован: 06.12.2003 (Сб) 14:12
Pavlo » 19.03.2004 (Пт) 17:26
zadacha1:
- Код: Выделить всё
Public n As Integer
Private Sub main()
Dim a() As Integer
Dim b(5) As Integer
Dim i As Integer
Dim j As Integer
Dim kil As Integer
Dim pos As Integer
kil = 0
pos = 0
n = InputBox("input n")
ReDim Preserve a(n)
For i = 0 To n
a(i) = InputBox("input a(" & CStr(i) & ")")
Next i
b(0) = 3
b(1) = 7
b(2) = 4
b(3) = 1
b(4) = 2
b(5) = 9
a:
For i = 0 To n
For j = 0 To 3
If b(j) = a(i) Then
pos = i
kil = kil + 1
Call resise(a, pos, kil)
n = n - 1
GoTo a:
End If
Next j
Next i
For i = 0 To n
Debug.Print a(i)
Next i
End Sub
Sub resise(mas() As Integer, poryadok, kilkist)
For k = poryadok To n - 1
mas(k) = mas(k + 1)
Next k
ReDim Preserve mas(n - 1)
End Sub
а вот тебе zadaca 2:
- Код: Выделить всё
Option Explicit
Sub main()
Dim n As Integer
Dim a() As Integer
Dim i, j As Integer
n = InputBox("Введіть розмірність матриці nxn")
ReDim Preserve a(n, n) As Integer
For i = 0 To n
For j = 0 To n
a(i, j) = InputBox("input" & CStr(i) & "," & CStr(j))
Next j
Next i
Call minver(a(), n)
Call minnig(a(), n)
End Sub
Sub minver(mas() As Integer, rozm As Integer)
Dim minv, vi, vj, i, j As Integer
minv = mas(1, 0)
vi = 0
vj = 1
For i = 1 To rozm
For j = 0 To i - 1
If mas(i, j) < minv Then
minv = mas(i, j)
vi = i
vj = j
End If
Next j
Next i
Debug.Print "Индекс наименшего в правой верхней части"; vi, vj
End Sub
Sub minnig(mas() As Integer, rozm As Integer)
Dim minn, ni, nj, i, j As Integer
minn = mas(0, 1)
ni = 1
nj = 0
For i = 0 To rozm
For j = i + 1 To rozm
If mas(i, j) < minn Then
minn = mas(i, j)
ni = i
nj = j
End If
Next j
j = 0
Next i
Debug.Print "Индекс наименшего в левойй нижней части"; ni, nj
End Sub
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 14