Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / задачка / 25 сообщений из 25, страница 1 из 1
06.05.2007, 13:35
    #34507615
Авто
Авто
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
Добрый день. вот задали задачку над которой бьюсь уже неделю, ну никак не могу сделать.во второй вообще смысл не понимаю.. подскажите.. заранее спасибо

1. Обработка числовой последовательности с заданным количеством элементов.
Вывести все 5-значные натуральные числа, не превосходящие 32000, сумма цифр которых равна N (N-заданное число из возможного диапазона). Найти среднее арифметическое этих чисел.

2. Обработка числовой последовательности с неопределенным количеством элементов.
В числовой последовательности с неопределенным количеством элементов найти сумму чисел, введенных за последним кратным 5 числом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 14:04
    #34507633
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
$50
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 14:42
    #34507672
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
Насколько я понял, должно быть так:

Dim s(1 to 5) As String
Dim N As Long
Dim sr_arifm As Long
Dim g as Integer
Dim m as Variant
N = InputBox("Введите нужную сумму цифр")
For i = 10000 To 32000
s(1) = Mid(Str(i), 1, 1)
s(2) = Mid(Str(i), 2, 1)
s(3) = Mid(Str(i), 3, 1)
s(4) = Mid(Str(i), 4, 1)
s(5) = Mid(Str(i), 5, 1)
If Val(s(1)) + Val(s(2)) + Val(s(3)) + Val(s(4)) + Val(s(5)) = N Then
sr_arifm = sr_arifm + i
g = g + 1
End If
Next
m = MsgBox("Среднее арифметическое: " & sr_arifm / g)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 14:48
    #34507676
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
ой ёлки не так

Dim s(1 To 5) As String
Dim N As Long
Dim sr_arifm As Long
Dim g As Integer
Dim m As Variant
N = Val(InputBox("Введите нужное число"))
For i = 10000 To 32000
s(1) = Mid(Trim(Str(i)), 1, 1)
s(2) = Mid(Trim(Str(i)), 2, 1)
s(3) = Mid(Trim(Str(i)), 3, 1)
s(4) = Mid(Trim(Str(i)), 4, 1)
s(5) = Mid(Trim(Str(i)), 5, 1)
If Val(s(1)) + Val(s(2)) + Val(s(3)) + Val(s(4)) + Val(s(5)) = N Then
sr_arifm = sr_arifm + i
g = g + 1
End If
Next
m = MsgBox("Среднее арифметическое: " & sr_arifm / g)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 14:51
    #34507679
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
просто я думал, что так получится, без отладки, а када начал отлаживать... :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 14:52
    #34507680
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
это была тока первая задача ща вторую попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 14:56
    #34507685
Авто
Авто
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
спасибо. только еще нужно выводить в отдельное окно весь список натуральных цифр, удовлетворяющих условию - от 10000 и не превосходящие 32000, сумма цифр которых равна N (N-заданное число из возможного диапазона).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:03
    #34507691
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
получай вторую

Dim min As Long
Dim max As Long
Dim i As Long
Dim t As Long
Dim sum As Long
Dim m As Variant
min = InputBox("Введите минимальное число диапазона")
max = InputBox("Введите максимальное число диапазона")
For i = max To min Step -1
If i Mod 5 = 0 Then
For t = i + 1 To max
sum = sum + t
Next
Exit For
End If
Next
m = MsgBox("Сумма равна " & sum)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:04
    #34507694
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
ага дак ты здесь щас выведем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:06
    #34507695
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
будем считать что у тебя есть текстбокс на форме тогда после
sr_arifm = sr_arifm + i пиши Text1.Text = Text1.Text & i & Chr(13) & Chr(10)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:07
    #34507697
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
преыдущий месаж к 1 задаче
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:09
    #34507699
Авто
Авто
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
ок, спасибо. а вот во второй задаче, все время сумма равна нулю, при любых числах
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:10
    #34507700
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
странно. щас исчо разок проверю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:12
    #34507704
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
аа, ты наверно вводишь числа типа тысячи, ста и десяти в максималном числе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:13
    #34507706
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
ты введи 1 и 7, либо 17 и 32 (я на них проверял)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:16
    #34507711
Авто
Авто
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
а все ок, работает.спасибо

а вот по первой, я думаю надо в лист бокс выводить, а то в текстовом все подряд идет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:18
    #34507712
Авто
Авто
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
спасибо большое !!
а можешь подсказать вот это -
1. Обработка одномерных массивов.
Дан массив из N целых чисел. Расположить в нем положительные числа по возрастанию, а отрицательных по убыванию, не изменяя места положительных и отрицательных чисел.

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


очень благодарен )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:18
    #34507713
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
как всё подряд? а чар(13) и чар(10) должны были переводить на следующую строку.. попробуй поменять их местами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:21
    #34507718
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
нет не меняй! я понял! включи в текстбоксе мультилайн = труе и скроллбарс = ботх
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:22
    #34507723
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
или скроллбарс = оба если у тя руский ВАСИК
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:30
    #34507733
Авто
Авто
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
ооо, все работает, спасибо !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:31
    #34507736
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
ой мне бежать надо попозже отвечу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2007, 15:32
    #34507737
Авто
Авто
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
хорошо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2007, 19:19
    #34533815
abto
abto
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
Доброе время суток.
вот нужна срочная помощь в задачки, никак не получается.

1. Дано 4-значное натуральное число. Найти число, образованное перестановкой двух первых цифр и перестановкой двух последних его цифр.

2. Обработка числовой последовательности с заданным количеством элементов.
В числовую переменную вводятся отличные от 0 целые числа, количество которых заранее известно. Определить, какие (четные или нечетные) числа были введены последними и какова их сумма.

заранее большое спасибо !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2007, 20:14
    #34533913
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
задачка
abtoзаранее большое спасибо !
46 euro.

Не за что.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / задачка / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 692ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164017]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 330ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 245ms
total:  692ms
x
x
Закрыть


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