Для лентяев

Тема в разделе "Visual Basic", создана пользователем gerich, 28 сен 2007.

Статус темы:
Закрыта.
  1. gerich

    gerich Гость

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

    Gamlet Well-Known Member

    Регистрация:
    8 янв 2007
    Сообщения:
    609
    Симпатии:
    0
    Я присоединяюсь и поднимаю темму. :)
     
  3. Pasha

    Pasha Гость

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

    gerich Гость

    Спасибо Гамлету, что поддержал!
     
  5. Гость

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

    Normann Well-Known Member

    Регистрация:
    9 авг 2007
    Сообщения:
    168
    Симпатии:
    2
    Для: Ленуся
    Дай мыло, я не гордый.
     
  7. Гость

    Для: Normann
    Спасибо тебе!
    Я тебя Люблю!
     
  8. mind

    mind Гость

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

    //сорри за офф :)
     
  9. Normann

    Normann Well-Known Member

    Регистрация:
    9 авг 2007
    Сообщения:
    168
    Симпатии:
    2
    Гы.
    Ну уж нет, я люблю свою девушку (см. фото). Видела бы она это то за ноздри бы меня подвесила. Вот на свадьбу с ней позвал бы.
     
  10. Gamlet

    Gamlet Well-Known Member

    Регистрация:
    8 янв 2007
    Сообщения:
    609
    Симпатии:
    0
    Вот уже прок. Только кто еще кроме Для: Normann разобрался что надо? Я вообще помогать люблю, но по алгебраическим функциям совсем не очень. :blink:
     
  11. Normann

    Normann Well-Known Member

    Регистрация:
    9 авг 2007
    Сообщения:
    168
    Симпатии:
    2
    Минуточку, а причем здесь алгебраические функции???
     
  12. steal13

    steal13 Гость

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

    gerich Гость

    Для: steal13
    я не знаю что такое maple - так бы помог!
    а так я рад, что не зря сделал этот форум - вон уже чуть свадьба не состоялась!)))
     
  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
     
  15. Hetman

    Hetman Гость

    <!--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"
    Код (Text):
    L = 10 Mod 4
    L здесь будет равно 2. Вместо 10 поставишь переменную (или элемент массива как у меня- см. ниже), а в место 4 будет "М"

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

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

    Over Well-Known Member

    Регистрация:
    4 июл 2007
    Сообщения:
    116
    Симпатии:
    0
    "Розгалуженю..." - это наверно не из области программирования.
    "Буду благодарна." - В каком виде будет благодарность?
     
  18. Ogion7

    Ogion7 Гость

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

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

    Для: Hetman

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

Поделиться этой страницей