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

[leiderfx]

Умоляю, напишите решение пары задачек. Это ОЧЕНЬ важно.

1.Ввести 2 одномерных массива, первый из N целых чисел, второй из 5 различных целых чисел. Удалить из 1-го массива числа, содержащиеся во втором. При удалении элементов массива он должен быть "сжат" перемещением оставшихся элементов.

2.Выполнить с использованием подпрограмм. Дана квадратная матрица размера П х П. Определить индексы наименьших элементов в каждой области (правой верхней и левой нижней). Минимизировать число циклов.

Заранее громадное спасибо!

[A.A.Z.]

Ты че-нибудь рубишь в VB? Если да - то могу подсказать идею, если нет, то посмотрю, останется ли время на это.

[Rainbow]

Что это вас пробило на одинаковые задачи?
по поводу первой решение и обсуждение тут
http://bbs.vbstreets.ru/viewtopic.php?p=36136

[Pavlo]

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

[Ramzes]

Ну нифига себе вопросы у чайника!!! Какой ты нафиг Чайник. Тебя в "звание" повышать надо!!!