Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 17.05.2012, 21:35   #1
lechan
Новичок
 
Регистрация: 17.05.2012
Сообщений: 2
Репутация: 10
Вопрос обработка массива

доброго времени суток!
помогите пожалуйста разобраться с программой
вводится массив 4*4 с клавиатуры, находится максимальный элемент в каждой строке,
выводится квадрат максимального элемента в новый массив

результатом программы должен стать документ, содержащий в себе исходный массив и обработанный

Sub матрица()
Dim a(4, 4) As Integer
Dim b(4, 4) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim max As Integer

For i = 1 To 4
For j = 1 To 4
a(i, j) = InputBox("введите элемент массива", "ввод массива")
Next j
Next i

s = 0
For i = 1 To 4
For j = 2 To 4
max = a(i, j)
If a(i, j) < a(i, j + 1) Then
max = a(i, j + 1)
k = 0
b(s, k) = max
k = k + 1
End If
Next j
s = s + 1
Next i
For i = 1 To 4
For j = 1 To 1
Selection.TypeText (a(i, j) & Chr(9))
Selection.TypeParagraph
Next j
Next i
End Sub

заранее благодарю!
lechan вне форума   Ответить с цитированием
Старый 18.05.2012, 00:14   #2
doober
Профессионал
 
Аватар для doober
 
Регистрация: 02.05.2009
Адрес: Леса Мордовии
Сообщений: 3,901
Репутация: 650

skype: d_ober1
По умолчанию

Я так понял,что задание в Ворде надо делать.Подправил косяки
Код:


Sub матрица()
        Dim a(4) As Integer
        Dim b(4, 4) As Integer
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim max As Integer

        For i = 1 To 4
                For j = 1 To 4
                        a(i, j) = InputBox("введите элемент массива", "ввод массива")
                Next j
        Next i

        s = 0
        For i = 1 To 4
                For j = 2 To 4
                        max = a(i, j)
                        If max < a(i, j) Then
                                max = a(i, j)
                                k = 0
                                b(s, k) = max^2
                                k = k + 1
                        End If
                Next j
                s = s + 1
        Next i
        For i = 1 To 4
             
                        Selection.TypeText (a(i) & Chr(9))
                        Selection.TypeParagraph
            
        Next i
End Sub

__________________
Анализ,обработка данных Недорого
doober вне форума   Ответить с цитированием
Старый 18.05.2012, 12:54   #3
lechan
Новичок
 
Регистрация: 17.05.2012
Сообщений: 2
Репутация: 10
По умолчанию

Спасибо, вроде в коде есть ошибки, т.к. не программа не запускается
Я уже разобрался
lechan вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
инициализация массива, вывод массива и обработка массива должны быть реализованы с помоshью функций airesjke Помощь студентам 0 02.03.2012 16:14
обработка массива letnjaja Помощь студентам 0 23.10.2011 00:00
Обработка массива (си) Pascaler Помощь студентам 1 01.06.2011 11:28
C++ Обработка массива JonnySKS Помощь студентам 0 05.05.2010 20:14
обработка массива, с++ lusuj Помощь студентам 2 11.11.2008 20:27


19:31.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru