ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите разобраться с задачей!
49 сообщений из 49, показаны все 2 страниц
  все  
Помогите разобраться с задачей!
    #37050492
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Задание 1
Имеется информация о наличии N торгового оборудования на складе. Определить общие количество оборудования.

Программа на VBA

Sub Задание1()
Dim O() As String
Dim K() As Integer
Dim I, N, K As Integer
N = InputBox("Введетите количество элементов массива")
ReDim O(N) As String
ReDim K(N) As Integer
Debug.Print "Оборудование", "кол-во, шт."
For I = 1 To N
F(I) = InputBox("Введите наименование оборудования")
V(I) = InputBox("Введите кол-во, шт.")
Debug.Print O(I), K(I)
Next I
For I = 1 To N
K = K + K(I)
Next I
Debug.Print "Общие количество оборудования:";
End Sub

Проблема в том что не производится вывод данных в immediate окно! программа начинает быковать на 4,10,11,15 строчку!
...
Рейтинг: 0 / 0
09.01.2011, 21:53
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050494
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, быковать на 4 строку?? а во второй, то Dim K() As Integer
...
Рейтинг: 0 / 0
09.01.2011, 22:01
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050500
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Ципихович Эндрю,

А что не так во второй строке?

ТС - быковать это как? вставленные флешки форматирует и при этом орёт голосом Паваротти?
...
Рейтинг: 0 / 0
09.01.2011, 22:06
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050504
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, он же ему как быкует орёт дупликате, так и есть
Dim K() As Integer
Dim I, N, K As Integer
ККККККККККККККККККККККККККККККККККККК
...
Рейтинг: 0 / 0
09.01.2011, 22:09
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050505
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Ципихович Эндрю,

Это значит что там ошибки!
...
Рейтинг: 0 / 0
09.01.2011, 22:10
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050507
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, одна из них там
Dim K () As Integer
Dim I, N, K As Integer
Повторений не должно быть
...
Рейтинг: 0 / 0
09.01.2011, 22:14
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050519
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, на скорую руку, время позднее
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim I, N, Е As Integer
N = InputBox("Введетите количество элементов массива")

Dim O() As String
ReDim O( 1  To N) As String
Dim K() As Integer
ReDim K( 1  To N)

Debug.Print "Оборудование", "кол-во, шт."
For I =  1  To N
O(I) = InputBox("Введите наименование оборудования")
K(I) = InputBox("Введите кол-во, шт.")
Debug.Print O(I), K(I)
Next I
F =  0 
For I =  1  To N
F = F + K(I)
Next I
Debug.Print "Общие количество оборудования:";
...
Рейтинг: 0 / 0
09.01.2011, 22:25
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050524
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Ципихович Эндрю,

Вот сейчас поправил заработала!
Спасибо тебе!
...
Рейтинг: 0 / 0
09.01.2011, 22:28
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050553
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Ципихович Эндрю,

Если на вопрос о количестве элементов массива, ввести "пять", то ошибка появится не сразу. Как ты думаешь, почему?
...
Рейтинг: 0 / 0
09.01.2011, 22:53
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050613
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Модифицированный код программы

Sub Задание1()
Dim O() As String
Dim K() As Integer
Dim I, N, E As Integer
N = InputBox("Введетите количество элементов массива")
ReDim O(N) As String
ReDim K(N) As Integer
Debug.Print "Оборудование", "кол-во, шт."

Sheets("Лист1").Cells.Clear
Sheets("Лист1").Cells(1, 1) = "Название фирмы"
Sheets("Лист1").Cells(1, 1).BorderAround Weight:=xIMedium
Sheets("Лист1").Cells(1, 1).ColuwnWidht = 100
Sheets("Лист1").Cells(1, 1).HorizontalAlignment = xICenter

Sheets("Лист1").Cells(1, 2) = "Оборудование"
Sheets("Лист1").Cells(1, 2).BorderAround Weight:=xIMedium
Sheets("Лист1").Cells(1, 2).ColuwnWidht = 100
Sheets("Лист1").Cells(1, 2).HorizontalAlignment = xICenter

Sheets("Лист1").Cells(1, 3) = "кол-во, шт."
Sheets("Лист1").Cells(1, 3).BorderAround Weight:=xIMedium
Sheets("Лист1").Cells(1, 3).ColuwnWidht = 100
Sheets("Лист1").Cells(1, 3).HorizontalAlignment = xICenter

For I = 1 To N
O(I) = InputBox("Введите наименование оборудования")
K(I) = InputBox("Введите кол-во, шт.")
Debug.Print O(I), K(I)
Sheets("Лист1").Cells(I + 1, 1) = I
Sheets("Лист1").Cells(I + 1, 1).BorderAround Weight:=xIMedium
Sheets("Лист1").Cells(I + 1, 1).HorizontalAlignment = xICenter

Sheets("Лист1").Cells(I + 1, 2) = O(I)
Sheets("Лист1").Cells(I + 1, 2).BorderAround Weight:=xIMedium
Sheets("Лист1").Cells(I + 1, 2).HorizontalAlignment = xICenter

Sheets("Лист1").Cells(I + 1, 3) = K(I)
Sheets("Лист1").Cells(I + 1, 3).BorderAround Weight:=xIMedium
Sheets("Лист1").Cells(I + 1, 3).HorizontalAlignment = xICenter
Next I

For I = 1 To N
F = F + K(I)
Next I
Debug.Print "Общие количество оборудования:";
Sheets("Лист1").Cells(N + 2, 1) = "Общие количество оборудования"
Sheets("Лист1").Cells(N + 2, 1).BorderAround Weight:=xIMedium
Sheets("Лист1").Cells(N + 2, 1).HorizontalAlignment = xICenter
End Sub

Проблема!!! вывод данных в рабочий лист Excel, не производится!
...
Рейтинг: 0 / 0
10.01.2011, 00:50
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050633
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
Schlafwandler,
не просто "не производится", но и ошибка выводится. Что-то вроде Run-time error '13': Object doesn't support this propertie or method
 
код в тэге SRC красиво смотрится, проще читается, ...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
Option Explicit

' старайтесь не делать лишних действий в программе,
' например, форматирования каждой ячейки отдельно в цикле
Sub Задание1()
Dim O() As String
Dim K() As Integer
Dim I As Integer, N As Integer, E As Integer

N = InputBox("Введетите количество элементов массива")
ReDim O( 1  To N)
ReDim K( 1  To N)
Debug.Print "Оборудование", "кол-во, шт."

With Worksheets("Лист1")
    .Cells.Clear
    
    .Cells( 1 ,  1 ) = "Название фирмы"
    .Cells( 1 ,  2 ) = "Оборудование"
    .Cells( 1 ,  3 ) = "кол-во, шт."
    .Cells(N +  2 ,  1 ) = "Общее количество оборудования"
    
    With .Range(.Cells( 1 ,  1 ), .Cells(N +  2 ,  3 ))
        .ColumnWidth =  100 
        .Borders.Weight = xlMedium
        .HorizontalAlignment = xlHAlignCenter
    End With '.Range(.Cells(1,1), .Cells(N+1,3))
    
    For I =  1  To N
        O(I) = InputBox("Введите наименование оборудования")
        K(I) = InputBox("Введите кол-во, шт.")

Debug.Print O(I), K(I)

        .Cells(I +  1 ,  1 ) = I
        .Cells(I +  1 ,  2 ) = O(I)
        .Cells(I +  1 ,  3 ) = K(I)
        
        E = E + K(I)
    Next I
    
Debug.Print "Общее количество оборудования:"; E
    .Cells(N +  2 ,  3 ) = E
End With 'Worksheets("Лист1")
End Sub
...
Рейтинг: 0 / 0
10.01.2011, 02:53
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050663
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь ГорбоносЦипихович Эндрю,

Если на вопрос о количестве элементов массива, ввести "пять", то ошибка появится не сразу. Как ты думаешь, почему?
говорил же время позднее, спать лёг, сейчас смотрю вроде всё порешали, но привычка есть отвечать на вопрос, тем боле Вам, тем более это мне может пригодится в дальнейшем
Итак этот вопрос к моему скрипту от вчера, 22:25 ??
...
Рейтинг: 0 / 0
10.01.2011, 06:51
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050721
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Ципихович ЭндрюИтак этот вопрос к моему скрипту от вчера, 22:25 ?? Да
...
Рейтинг: 0 / 0
10.01.2011, 10:24
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050815
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, по Вашему вопросу, сегодня прогнал код вроде нет ошибок, но вчера вроде были, поэтому я и сказал, что на скорую руку, что меня смущает, что N = "5" то есть его определяет в кавычках если навести курсор на N, раз N As Integerч то этого не должно быть, просто N = 5 без кавычек, дайте наводящие вопросы для ЦЭ
чтобы высчитать Общие количество оборудования два цикла не нужно, одного за глаза, я уж не знаю зачем ему этот массив нужен, не вникал, это же Эксель , а кстати если уже в цикл K(I) загнали данные, одной строкой без цикла сумму можно узнать??
...
Рейтинг: 0 / 0
10.01.2011, 12:11
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050829
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Ципихович Эндрю


Я говорил о том что-бы ввести словом "пять" и этот ввод пройдет без ошибок. Ошибка появится дальше, при попытке
перераспределения размерности массива.
И кто тебе сказал что Ципихович Эндрюраз N As Integer???

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.01.2011, 12:20
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050838
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, вопрос от вчера, 22:53 ввести "пять" - это внимательность для меня, ну тогда вопрос детский, я понимаю, но ответить бы не смог, но Вы на него ответили
А кстати почему сразу же ошибка не возникает, ОКЛИПТИК???????, если так то я его зауважаю
По поводу того, на что я сам раскрутился, прогнал код
Dim N As Integer
N = 5
Навёл курсор на N, но ведь без кавычек, просто 5, почему???
Вопрос открыт - если уже в цикл K(I) загнали данные, одной строкой без цикла сумму можно узнать??
...
Рейтинг: 0 / 0
10.01.2011, 12:34
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050862
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Ципихович Эндрю
> А кстати почему сразу же ошибка не возникает, ОКЛИПТИК???????, если так то я его зауважаю

Да, оклиптик. Option Explicit заставляет явно объявлять все переменые. Но программист определяет какого
типа будут объявленные переменные. Объявление:
Код: plaintext
Dim A,B,C As Integer
говорит только о том, что нужно
создать переменную А с типом Variant, переменную B c типом Variant и переменную С с типом Integer

> Навёл курсор на N, но ведь без кавычек, просто 5, почему???

см. выше

> Вопрос открыт - если уже в цикл K(I) загнали данные, одной строкой без цикла сумму можно узнать??

Нет, можно оптимизировать и подсчитывать при заполнении массива, но это не всегда возможно.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.01.2011, 12:55
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050872
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, ХА ХА, вывод Dim A,B,C As Integer на свалку
я всегда пишу
А = "ЖЖЖ"
В = 99
И не парюсь, а про эти конструкции записи типа Dim A,B,C As Integer я читал, что только не пишут, всё время помнить трудно, потому только в КРАЙНИХ случаях пишу
Dim A As Integer
Dim B As Integer
Dim C As Integer
Плевать что больше места занимает, просто я не так пишу, а так

Dim A As Integer
А=...........
...............
..............
Dim A As Integer
В=...........
...............
..............

Dim A As Integer
С=...........
...............
..............
...
Рейтинг: 0 / 0
10.01.2011, 13:03
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050903
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Ципихович Эндрю
> Плевать что больше места занимает, просто я не так пишу, а так
> Dim A As Integer
> А=...........
> Dim A As Integer
> В=...........
> Dim A As Integer
> С=...........


Китайская методика програмирования имени Копи-Паста в сочетании с игнорированием Оклиптика придает отладке и
сопровождению программ неповторимый, изысканный и пьянящий привкус БДСМ, но мне не нравится. Эндрю не тупи. И вообще
заканчивай затыкать все топики!

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.01.2011, 13:32
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050915
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос,я ошибся, но думаю, что Вы поняли, поэтому, что то и говорили про копи паст
Dim A As Integer
А=...........
...............
..............
Dim В As Integer
В=...........
...............
..............

Dim С As Integer
С=...........
...............
..............
...
Рейтинг: 0 / 0
10.01.2011, 13:37
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050952
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, вопрос чисто к Вам, возможно я ошибаюсь, никак не проверить это, эти топики поудаляли, до Нового года Ваши топики были с пустыми вопросами??????
Просто если Ваши, то поздравляю с удачей!!!!
...
Рейтинг: 0 / 0
10.01.2011, 13:57
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050981
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Ципихович Эндрю,

Эти топики не мои были!
...
Рейтинг: 0 / 0
10.01.2011, 14:13
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37050984
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, понял, ОК!!!!!!!
...
Рейтинг: 0 / 0
10.01.2011, 14:14
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051025
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Напечать Таблицу, заменив информацию в последним столбце "на средняя стоймость 1 квартиры"

Sub Задание2()
Dim J() As String
Dim KP() As Single
Dim KM() As Single
Dim S() As Single
Dim S1() As Single
Dim I, N As Integer
N = InputBox("Введетите количество элементов массива")
ReDim J(N) As String
ReDim KP(N) As Single
ReDim KM(N) As Single
ReDim S(N) As Single
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Сумма от про-"
Debug.Print " ", "ных квартир", "кв.м", "дажи тыс.руб."
For I = 1 To N
J(I) = InputBox("Введите название города")
KP(I) = InputBox("Введите кол-во проданных квартир")
KM(I) = InputBox("Введите кол-во кв")
S(I) = InputBox("Введите сумму от продажи")
Debug.Print J(I), KP(I), KM(I), S(I), S1(I)

Next I
S1(I) = S(I) / KP(I)
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Средняя стоимость"
Debug.Print " ", "ных квартир", "кв.м", "1 квартиры."
For I = 1 To N
Debug.Print J(I), KP(I), KM(I), S1(I),
Next I
End Sub

Помоготе! опять не получается программа!
...
Рейтинг: 0 / 0
10.01.2011, 14:47
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051030
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, скажите зачем Вам два цикла??
...
Рейтинг: 0 / 0
10.01.2011, 14:51
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051032
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, вникните в сообщение сегодня, 02:53
...
Рейтинг: 0 / 0
10.01.2011, 14:52
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051033
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, скажите зачем Вам нужен массив??
...
Рейтинг: 0 / 0
10.01.2011, 14:53
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051039
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, про это Dim I, N, K As Integer уже писали мне, хотя оно мне не нужно было, но пинков я получил
...
Рейтинг: 0 / 0
10.01.2011, 14:56
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051101
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Ципихович Эндрю
> Schlafwandler, скажите зачем Вам два цикла??


Ты можешь решить по другому? Предложи.

> Автор: Ципихович Эндрю
> Schlafwandler, скажите зачем Вам нужен массив??

Там пять массивов, о котором идет речь?

> Автор: Ципихович Эндрю
> хотя оно мне не нужно было, но пинков я получил

Конечно получил, ибо нефиг бездумно помогать.

К тому-же пробуй камнем уже
намекал о желательности
правильного оформления. Разбиратся в портянках кода нет особого желания.

P.S. Недавно прочел:
Терминал.
В терминале — ssh.
В ssh — скрин.
В скрине — вим.
В виме — табы.
В табах — сплиты.
В сплитах — фолды.
В фолдах — код.
В коде — ад.


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.01.2011, 15:30
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051157
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос,
Ты можешь решить по другому? Предложи.
Легко, а то Вы не знаете как??
Там пять массивов, о котором идет речь?
О всех
...
Рейтинг: 0 / 0
10.01.2011, 15:56
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051206
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Ципихович Эндрю,

1 - ый цикл:
должен построить таблицу
1) Город
2)Кол-во проданных квартир
3) кол-во кв.м.
4) Сумма от продажи

2 - ой цикл:

расчет Средней стоимости одной квартиры!
построить таблицу заменой последнего сталбеца

1) Город
2)Кол-во проданных квартир
3) кол-во кв.м.
4) Среднея стоимость одной квартиры!
...
Рейтинг: 0 / 0
10.01.2011, 16:25
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051213
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, у Вас наворотов много, я за всем не слежу вопрос по назначению циклов и массивов касается моего скрипта от вчера, 22:25, в остальные я не вникал, так вот ответьте зачем там нужны два цикла, зачем нужен массив, ответ - не зачем!!!!!!!
...
Рейтинг: 0 / 0
10.01.2011, 16:32
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051310
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Ципихович Эндрю,

Лишнего там точно не чего нет! там просто чего-то не достаёт!
...
Рейтинг: 0 / 0
10.01.2011, 17:54
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051313
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Schlafwandler, Вы не хитрите, ответьте в скрипте от вчера, 22:25 зачем там нужны два цикла, зачем нужен массив
...
Рейтинг: 0 / 0
10.01.2011, 17:59
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051316
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
SchlafwandlerЦипихович Эндрю,

Лишнего там точно не чего нет! там просто чего-то не достаёт!
Прогоните свою программу в пошаговом режиме, посмотрите, что она выдает , сравните с тем, что должна выдавать . Тогда будете точно занть, чего именно не достаёт.
И с этим вновь обретенным знанием, и новыми вопросами, - милости просим к нашему ша.
...
Рейтинг: 0 / 0
10.01.2011, 18:00
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051527
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Sub Задание2()
Dim j() As String
Dim KP() As Single
Dim KM() As Single
Dim S() As Single
Dim S1() As Single
Dim I, N As Integer
N = InputBox("Введетите количество элементов массива")
ReDim j(N) As String
ReDim KP(N) As Single
ReDim KM(N) As Single
ReDim S(N) As Single
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Сумма от про-"
Debug.Print " ", "ных квартир", "кв.м", "дажи тыс.руб."
For I = 1 To N
j(I) = InputBox("Введите название города")
KP(I) = InputBox("Введите кол-во проданных квартир")
KM(I) = InputBox("Введите кол-во кв")
S(I) = InputBox("Введите сумму от продажи")
Debug.Print j(I), KP(I), KM(I), S(I)
Next I
S1(I) = S(I) / KP(I)
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Средняя стоимость"
Debug.Print " ", "ных квартир", "кв.м", "1 квартиры"
For I = 1 To N
Debug.Print j(I), KP(I), KM(I), S1(I)
Next I
End Sub

Прогнал в пошагавовом! ошибка вылетает в 22 стр. И 26 стр. в самом конце (S1(I))

Тоесть не правильно вписал формулу расчёта?
...
Рейтинг: 0 / 0
10.01.2011, 20:58
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051537
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Schlafwandler,

Читаем правила форума.
Первое: оформляем код тэгами:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Sub Задание2()
Dim j() As String
Dim KP() As Single
Dim KM() As Single
Dim S() As Single
Dim S1() As Single
Dim I, N As Integer
N = InputBox("Введетите количество элементов массива")
ReDim j(N) As String
ReDim KP(N) As Single
ReDim KM(N) As Single
ReDim S(N) As Single
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Сумма от про-"
Debug.Print " ", "ных квартир", "кв.м", "дажи тыс.руб."
For I =  1  To N
j(I) = InputBox("Введите название города")
KP(I) = InputBox("Введите кол-во проданных квартир")
KM(I) = InputBox("Введите кол-во кв")
S(I) = InputBox("Введите сумму от продажи")
Debug.Print j(I), KP(I), KM(I), S(I)
Next I
S1(I) = S(I) / KP(I)
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Средняя стоимость"
Debug.Print " ", "ных квартир", "кв.м", "1 квартиры"
For I =  1  To N
Debug.Print j(I), KP(I), KM(I), S1(I)
Next I
End Sub

Второе: пишем текст ошибки

И еще - лично мне лень отсчитывать, какая у вас строка 22-я, и откуда начинается нумерация. Есть возможности выделения строк в коде , читаем фак
...
Рейтинг: 0 / 0
10.01.2011, 21:06
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051544
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
В строке:
Код: plaintext
S1(I) = S(I) / KP(I)
у вас I равно N+1
А массивы у вас объявлены с количеством элементов N

естественно, при попытке обратиться к элементу N+1 возникает ошибка, потому что элемента N+1 не существует
...
Рейтинг: 0 / 0
10.01.2011, 21:10
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051547
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А у массива S1 вообще отсутствует размер
...
Рейтинг: 0 / 0
10.01.2011, 21:12
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051584
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Shocker.ProВ строке:
Код: plaintext
S1(I) = S(I) / KP(I)
у вас I равно N+1
А массивы у вас объявлены с количеством элементов N

естественно, при попытке обратиться к элементу N+1 возникает ошибка, потому что элемента N+1 не существует


ReDim j(N + 1) As String
ReDim KP(N + 1) As Single
ReDim KM(N + 1) As Single
ReDim S(N + 1) As Single

Это вот так должно смотреться?
Просто у меня опыта в данной теме мало!
...
Рейтинг: 0 / 0
10.01.2011, 21:54
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051596
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SchlafwandlerЭто вот так должно смотреться?
Просто у меня опыта в данной теме мало!
нет
вы просите "помочь разобраться с задачей", я помогаю.
будете гадать или пытаться разобраться?

вы написали эту строку, вы знаете, зачем?

Если написать программу за вас, это не будет "помочь разобраться"
...
Рейтинг: 0 / 0
10.01.2011, 22:07
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051609
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Shocker.ProSchlafwandlerЭто вот так должно смотреться?
Просто у меня опыта в данной теме мало!
нет
вы просите "помочь разобраться с задачей", я помогаю.
будете гадать или пытаться разобраться?

вы написали эту строку, вы знаете, зачем?

Если написать программу за вас, это не будет "помочь разобраться"

Нет, я исключительно хочу разобраться! Так как мне потом объяснять это программу придётся!
...
Рейтинг: 0 / 0
10.01.2011, 22:20
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051619
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SchlafwandlerНет, я исключительно хочу разобраться! Так как мне потом объяснять это программу придётся!

Ну разберитесь сначала с ТЗ:
авторНапечать Таблицу, заменив информацию в последним столбце "на средняя стоймость 1 квартиры"
Что значит "заменив" - к чему это слово относится? Что есть того, что нужно заменить?


Потом ответьте себе на вопрос, зачем вам нужен массив S1?
...
Рейтинг: 0 / 0
10.01.2011, 22:27
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051639
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Shocker.ProSchlafwandlerНет, я исключительно хочу разобраться! Так как мне потом объяснять это программу придётся!

Ну разберитесь сначала с ТЗ:
авторНапечать Таблицу, заменив информацию в последним столбце "на средняя стоймость 1 квартиры"
Что значит "заменив" - к чему это слово относится? Что есть того, что нужно заменить?


Потом ответьте себе на вопрос, зачем вам нужен массив S1?

Значит в исходнных данных в последнем столбце "Сумма от Продаж" Я же его заменяю на "средняя стоймость одной квартиры"

массив S1 и будет являтся "средняя стоймость одной квартиры"
...
Рейтинг: 0 / 0
10.01.2011, 22:44
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051646
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SchlafwandlerЗначит в исходнных данных в последнем столбце "Сумма от Продаж" Я же его заменяю на "средняя стоймость одной квартиры"
ну так заменить его надо ГДЕ? в выводе? или в массиве?

Schlafwandlerмассив S1 и будет являтся "средняя стоймость одной квартиры"
ну с точки зрения ТЗ вам он и вовсе не нужен, можете сразу печатать необходимое значение в Debug.Print, не заморачиваясь промежуточным хранением этого значения.

А если очень хочется заморочиться, то тогда
а) укажите этому массиву НУЖНЫЙ размер (надеюсь, понятно какой)
б) заполняйте его в цикле вычисленными значениями (можно в отдельном цикле, а можно и сразу при вводе данных)

ЗЫ: если хотите определить переменную I как Integer - это надо указать явно.
ЗЫ2: для количества лучше использовать целые типы данных (вряд ли у вас будет полторы квартиры), а для стоимости - денежный тип Currency. Ну это так, чисто по уму, в данном случае не столь важно.
...
Рейтинг: 0 / 0
10.01.2011, 22:53
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051712
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Shocker.ProА у массива S1 вообще отсутствует размер
Размер задал!
...
Рейтинг: 0 / 0
11.01.2011, 00:41
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051713
Schlafwandler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Schlafwandler
Гость
Shocker.ProВ строке:
Код: plaintext
S1(I) = S(I) / KP(I)
у вас I равно N+1
А массивы у вас объявлены с количеством элементов N

естественно, при попытке обратиться к элементу N+1 возникает ошибка, потому что элемента N+1 не существует

а вот тут можно по доходчивей? а то не соображаю ужеhttp://www.sql.ru/Forum/images/happy.gif
...
Рейтинг: 0 / 0
11.01.2011, 00:43
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051717
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Schlafwandlerа вот тут можно по доходчивей? а то не соображаю уже
Допустим количество элементов массива вы задали 5.
Чему будет равно I, когда выполнение программы дойдет до этой строки?
...
Рейтинг: 0 / 0
11.01.2011, 00:48
| Ответить | Цитировать | Написать  
Помогите разобраться с задачей!
    #37051733
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Schlafwandler,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
[SRC VB]
Sub Задание2()
Dim j() As String
Dim KP() As Single
Dim KM() As Single
Dim S() As Double  'может не хватать размерности, если не Double
Dim S1() As Double
Dim I, N As Integer
N = InputBox("Введетите количество элементов массива")
ReDim j(N) As String
ReDim KP(N) As Single
ReDim KM(N) As Single
ReDim S(N) As Double
ReDim S1(N) As Double
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Сумма от про-"
Debug.Print " ", "ных квартир", "кв.м", "дажи тыс.руб."
For I =  1  To N                      ''ввод инфы
j(I) = InputBox("Введите название города")
KP(I) = InputBox("Введите кол-во проданных квартир")
KM(I) = InputBox("Введите кол-во кв")
S(I) = InputBox("Введите сумму от продажи")
Debug.Print j(I), KP(I), KM(I), S(I)

Next I
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Средняя стоимость"
Debug.Print " ", "ных квартир", "кв.м", "1 квартиры"
For I =  1  To N                      ''расчет
S1(I) = S(I) / KP(I)

Debug.Print j(I), KP(I), KM(I), S1(I)
Next I
End Sub
[/SRC]
...
Рейтинг: 0 / 0
11.01.2011, 01:06
| Ответить | Цитировать | Написать  
49 сообщений из 49, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите разобраться с задачей!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2159086]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 71ms
get tp. blocked users:
 1ms
others: 13ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]