Для лентяев

  • Автор темы gerich
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

gerich

#1
Короче, я смотрел форум с достаточно коротким названием Задачка. Там куча новичков просят помощи у форумчанинов. Ну так вот - для всех таких лентяев я делаю тему. Задавайте здесь вопросы типа Помогите написать программу на Бейсике. Буду по возможности отвечать. И прошу не писать мне сообщения типа зачем тебе это надо и т.п.
 
P

Pasha

#3
Тонка и неуловима грань между "помогите мне написать" и "напишите мне нахаляву".
 
G

Guest

#5
Дорогие, любимые программисты!
Бедная и несчастная студентка умоляет Вас помочь ей сдать зачет по программированию. Если вам не жалко и вы годовы сделать меня счастливой, то попробуйте решить скорее всего простую задачку по теме обработка одномерных массивов.
Текс задачи такой: Дан вектор. Из него построить другой вектор, в котором нет нулевых элементов из первого.
Надеюсь, что вы поможите мне. Может и я вам чем-нибудь помогу.
Спасибочки, целую вас крепко!
 
M

mind

#8
Ленуся и Normann, на свадьбу позовете? :blink:

//сорри за офф :)
 

Gamlet

Well-known member
08.01.2007
525
0
#10
Вот уже прок. Только кто еще кроме Для: Normann разобрался что надо? Я вообще помогать люблю, но по алгебраическим функциям совсем не очень. :blink:
 
S

steal13

#12
Помогите с простенькой задачей в maple, в 1 строчку)
надо сделать правильный цилиндр и сферу через тангенс...
выглядеть должен примерно вот так plot3d(tan(.....),x,coords=cylyndrical;
в (....) должны стоять х и y только в каких значениях и в каких степенях я не знаю....
только знаю для косинуса (х^2+y^2)/1000
 
G

gerich

#13
Для: steal13
я не знаю что такое maple - так бы помог!
а так я рад, что не зря сделал этот форум - вон уже чуть свадьба не состоялась!)))
 
G

Guest

#14
Уважаемые программисты! завтра промежуточная аттестация и мой препод сказал, что если я хочу остаться со стипендией реши простенькую задачку...но к моему сожелению она оказалась не такой уж простой...прошу помогите решить. Не думайте я не лентяй, я пытался кое что сделать, но неудачно.

задача: Даны натуральные числа а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
 
H

Hetman

#15
<!--QuoteBegin-НупкаVB+14:10:2007, 13:09 -->
<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
L здесь будет равно 2. Вместо 10 поставишь переменную (или элемент массива как у меня- см. ниже), а в место 4 будет "М"

затем зачем тебе "InputBox"? возьми простой элемент "Text" и вводи туда числа через пробел.
теперь можно взять из неё текст и пропустить через функцию "Split" с тем чтобы получить одномерный массив. В данном случае используется пробел в качестве разделителя, ты можешь использовать другой по вкусу.
Код:
massiv = split (Text1.text, " ")
с помощью "Ubound"
определяем размер массива так
Код:
Ubound(massiv)
теперь можно запустить цикл сравнения
Код:
for i=0 to Ubound(massiv)
L = val(massiv(i)) mod M
If L >= 0 And L <= (M - 1) Then
... ' вывод результата
next
результат можно запихнуть обратно в TEXT через пробел, или как тебе больше хочется.
===============
Я использую массив, так как заранее не известно количество натуральных чисел. Можно конечно было и обойтись без массивов и split-ра, но так ИМХО короче будет. если башка варит справишья. удачи
 
G

Guest

#16
Здраствуйте! Дайте пожалуйста или скиньте 5-6 примеры с розгалуженю.. Буду благодарна.
 

Over

Well-known member
04.07.2007
116
0
#17
"Розгалуженю..." - это наверно не из области программирования.
"Буду благодарна." - В каком виде будет благодарность?
 
O

Ogion7

#18
Может под "Розгалуженю..." подразумеваются условные переходы?
 
G

Guest

#19
Over а в какой хочеш (благодарность) ? ;)
Ogion7 да (скорей :) ) .. скинь какие-то примеры...
(извините я не очень розбираюсь) плиз
 
G

Guest

#20
Для: Hetman

огромное вам спасибо! зачет по лабе есть =)
 
Статус
Закрыто для дальнейших ответов.