Короче, я смотрел форум с достаточно коротким названием Задачка. Там куча новичков просят помощи у форумчанинов. Ну так вот - для всех таких лентяев я делаю тему. Задавайте здесь вопросы типа Помогите написать программу на Бейсике. Буду по возможности отвечать. И прошу не писать мне сообщения типа зачем тебе это надо и т.п.
-
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
- Статус
Дорогие, любимые программисты!
Бедная и несчастная студентка умоляет Вас помочь ей сдать зачет по программированию. Если вам не жалко и вы годовы сделать меня счастливой, то попробуйте решить скорее всего простую задачку по теме обработка одномерных массивов.
Текс задачи такой: Дан вектор. Из него построить другой вектор, в котором нет нулевых элементов из первого.
Надеюсь, что вы поможите мне. Может и я вам чем-нибудь помогу.
Спасибочки, целую вас крепко!
Бедная и несчастная студентка умоляет Вас помочь ей сдать зачет по программированию. Если вам не жалко и вы годовы сделать меня счастливой, то попробуйте решить скорее всего простую задачку по теме обработка одномерных массивов.
Текс задачи такой: Дан вектор. Из него построить другой вектор, в котором нет нулевых элементов из первого.
Надеюсь, что вы поможите мне. Может и я вам чем-нибудь помогу.
Спасибочки, целую вас крепко!
Гы.Ленуся и Normann, на свадьбу позовете? :blink:
//сорри за офф
Ну уж нет, я люблю свою девушку (
Вот уже прок. Только кто еще кроме Для: Normann разобрался что надо? Я вообще помогать люблю, но по алгебраическим функциям совсем не очень. :blink:
Минуточку, а причем здесь алгебраические функции???Вот уже прок. Только кто еще кроме Для: Normann разобрался что надо? Я вообще помогать люблю, но по алгебраическим функциям совсем не очень.
Помогите с простенькой задачей в maple, в 1 строчку)
надо сделать правильный цилиндр и сферу через тангенс...
выглядеть должен примерно вот так plot3d(tan(.....),x,coords=cylyndrical;
в (....) должны стоять х и y только в каких значениях и в каких степенях я не знаю....
только знаю для косинуса (х^2+y^2)/1000
надо сделать правильный цилиндр и сферу через тангенс...
выглядеть должен примерно вот так plot3d(tan(.....),x,coords=cylyndrical;
в (....) должны стоять х и y только в каких значениях и в каких степенях я не знаю....
только знаю для косинуса (х^2+y^2)/1000
Для: steal13
я не знаю что такое maple - так бы помог!
а так я рад, что не зря сделал этот форум - вон уже чуть свадьба не состоялась!)))
я не знаю что такое maple - так бы помог!
а так я рад, что не зря сделал этот форум - вон уже чуть свадьба не состоялась!)))
Уважаемые программисты! завтра промежуточная аттестация и мой препод сказал, что если я хочу остаться со стипендией реши простенькую задачку...но к моему сожелению она оказалась не такой уж простой...прошу помогите решить. Не думайте я не лентяй, я пытался кое что сделать, но неудачно.
задача: Даны натуральные числа а1, а2,..., an. Указать те из них, у которых остаток от деления на М равен L (0≤L≤M - 1).
мои попытки :
Private Sub CommandButton1_Click()
Dim i As Integer, m As Integer, l As Single
Dim A(5) As Integer
m = Val(InputBox("m="))
For i = 1 To 5
l = (A(i)) / m
If l >= 0 And l <= (m - 1) Then
MsgBox Str(A(i))
Else: End If
Next i
End Sub
задача: Даны натуральные числа а1, а2,..., an. Указать те из них, у которых остаток от деления на М равен L (0≤L≤M - 1).
мои попытки :
Private Sub CommandButton1_Click()
Dim i As Integer, m As Integer, l As Single
Dim A(5) As Integer
m = Val(InputBox("m="))
For i = 1 To 5
l = (A(i)) / m
If l >= 0 And l <= (m - 1) Then
MsgBox Str(A(i))
Else: End If
Next i
End Sub
<!--QuoteBegin-НупкаVB+14:10:2007, 13:09 -->
<span class="vbquote">(НупкаVB @ 14:10:2007, 13:09 )</span><!--QuoteEBegin-->но к моему сожелению она оказалась не такой уж простой...прошу помогите решить
ну раз не лентяй - слушай! после моих советов должен сам програмку в 2 счёта состряпать
для того чтобы найти остаток от деления тебе надо оператор "Mod"
L здесь будет равно 2. Вместо 10 поставишь переменную (или элемент массива как у меня- см. ниже), а в место 4 будет "М"
затем зачем тебе "InputBox"? возьми простой элемент "Text" и вводи туда числа через пробел.
теперь можно взять из неё текст и пропустить через функцию "Split" с тем чтобы получить одномерный массив. В данном случае используется пробел в качестве разделителя, ты можешь использовать другой по вкусу.
с помощью "Ubound"
определяем размер массива так
теперь можно запустить цикл сравнения
результат можно запихнуть обратно в TEXT через пробел, или как тебе больше хочется.
===============
Я использую массив, так как заранее не известно количество натуральных чисел. Можно конечно было и обойтись без массивов и split-ра, но так ИМХО короче будет. если башка варит справишья. удачи
<span class="vbquote">(НупкаVB @ 14:10:2007, 13:09 )</span><!--QuoteEBegin-->но к моему сожелению она оказалась не такой уж простой...прошу помогите решить
[snapback]81709" rel="nofollow" target="_blank[/snapback]
[/quote]ну раз не лентяй - слушай! после моих советов должен сам програмку в 2 счёта состряпать
для того чтобы найти остаток от деления тебе надо оператор "Mod"
Код:
L = 10 Mod 4затем зачем тебе "InputBox"? возьми простой элемент "Text" и вводи туда числа через пробел.
теперь можно взять из неё текст и пропустить через функцию "Split" с тем чтобы получить одномерный массив. В данном случае используется пробел в качестве разделителя, ты можешь использовать другой по вкусу.
Код:
massiv = split (Text1.text, " ")определяем размер массива так
Код:
Ubound(massiv)
Код:
for i=0 to Ubound(massiv)
L = val(massiv(i)) mod M
If L >= 0 And L <= (M - 1) Then
... ' вывод результата
next===============
Я использую массив, так как заранее не известно количество натуральных чисел. Можно конечно было и обойтись без массивов и split-ра, но так ИМХО короче будет. если башка варит справишья. удачи
"Розгалуженю..." - это наверно не из области программирования.
"Буду благодарна." - В каком виде будет благодарность?
"Буду благодарна." - В каком виде будет благодарность?
Over а в какой хочеш (благодарность) ?
Ogion7 да (скорей ) .. скинь какие-то примеры...
(извините я не очень розбираюсь) плиз
Ogion7 да (скорей
) .. скинь какие-то примеры... (извините я не очень розбираюсь) плиз
- Статус
Обучение наступательной кибербезопасности в игровой форме. Начать игру!