ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / задачка
25 сообщений из 25, страница 1 из 1
задачка
    #34507615
Авто
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Авто
Участник
Добрый день. вот задали задачку над которой бьюсь уже неделю, ну никак не могу сделать.во второй вообще смысл не понимаю.. подскажите.. заранее спасибо

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

2. Обработка числовой последовательности с неопределенным количеством элементов.
В числовой последовательности с неопределенным количеством элементов найти сумму чисел, введенных за последним кратным 5 числом.
...
Рейтинг: 0 / 0
06.05.2007, 13:35
| Ответить | Цитировать | Написать  
задачка
    #34507633
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
$50
...
Рейтинг: 0 / 0
06.05.2007, 14:04
| Ответить | Цитировать | Написать  
задачка
    #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:42
| Ответить | Цитировать | Написать  
задачка
    #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:48
| Ответить | Цитировать | Написать  
задачка
    #34507679
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
просто я думал, что так получится, без отладки, а када начал отлаживать... :-)
...
Рейтинг: 0 / 0
06.05.2007, 14:51
| Ответить | Цитировать | Написать  
задачка
    #34507680
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
это была тока первая задача ща вторую попробую
...
Рейтинг: 0 / 0
06.05.2007, 14:52
| Ответить | Цитировать | Написать  
задачка
    #34507685
Авто
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Авто
Участник
спасибо. только еще нужно выводить в отдельное окно весь список натуральных цифр, удовлетворяющих условию - от 10000 и не превосходящие 32000, сумма цифр которых равна N (N-заданное число из возможного диапазона).
...
Рейтинг: 0 / 0
06.05.2007, 14:56
| Ответить | Цитировать | Написать  
задачка
    #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:03
| Ответить | Цитировать | Написать  
задачка
    #34507694
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
ага дак ты здесь щас выведем.
...
Рейтинг: 0 / 0
06.05.2007, 15:04
| Ответить | Цитировать | Написать  
задачка
    #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:06
| Ответить | Цитировать | Написать  
задачка
    #34507697
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
преыдущий месаж к 1 задаче
...
Рейтинг: 0 / 0
06.05.2007, 15:07
| Ответить | Цитировать | Написать  
задачка
    #34507699
Авто
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Авто
Участник
ок, спасибо. а вот во второй задаче, все время сумма равна нулю, при любых числах
...
Рейтинг: 0 / 0
06.05.2007, 15:09
| Ответить | Цитировать | Написать  
задачка
    #34507700
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
странно. щас исчо разок проверю
...
Рейтинг: 0 / 0
06.05.2007, 15:10
| Ответить | Цитировать | Написать  
задачка
    #34507704
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
аа, ты наверно вводишь числа типа тысячи, ста и десяти в максималном числе?
...
Рейтинг: 0 / 0
06.05.2007, 15:12
| Ответить | Цитировать | Написать  
задачка
    #34507706
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
ты введи 1 и 7, либо 17 и 32 (я на них проверял)
...
Рейтинг: 0 / 0
06.05.2007, 15:13
| Ответить | Цитировать | Написать  
задачка
    #34507711
Авто
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Авто
Участник
а все ок, работает.спасибо

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

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

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

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

Не за что.
...
Рейтинг: 0 / 0
17.05.2007, 20:14
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / задачка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34507680&tid=2164017]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 51ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 207ms
total:  341ms
созд. / загр.: 341ms
x
x
Закрыть


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