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

Программирование на 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
Член-корреспондент академии 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

Что это вас пробило на одинаковые задачи? :shock:
по поводу первой решение и обсуждение тут
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

Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 21.03.2004 (Вс) 12:43

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 14

    TopList