На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела
1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.

Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)

Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена

Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
Модераторы: ttiger, mikefreelance, Rust
  
    > нужна помощь с задачей в бейсике 0.6 , помогите пожалуйста
      Найти все целочисленные делители заданного числа n
      в visual basic 6.0
        А в таком духе:
        ExpandedWrap disabled
          Dim p,q,r,n As Integer
          n = 100
          for p=1 to n
           q = n/p ' делим
           r = n - p*q 'смотрим, хорошо ли поделилось=нет ли остатка
           if r=0 then ' хорошо!
          ''  печатаем p или ещё что-то
          next p


        Добавлено
        Ну и
        ExpandedWrap disabled
          end if

        перед next'ом.
          если не нужно, чтобы делители шли строго в возрастающем порядке,

          то можно каждый раз при нахождении делителя p выводить оба делителя (и p и q)

          и тогда достаточно перебирать до квадратного корня из n, а не до самого n.
            Цитата Славян @
            q = n/p ' делим
            r = n - p*q 'смотрим, хорошо ли поделилось=нет ли остатка


            можно чутка упростить :)
            использовать вот это \

            тогда получается на строчку меньше :)
            ExpandedWrap disabled
              ...
              q=n\p
              if q=0 then
              ...
            Сообщение отредактировано: Besha -
              Цитата Славян @
              А в таком духе:
              ExpandedWrap disabled
                Dim p,q,r,n As Integer
                n = 100
                for p=1 to n
                 q = n/p ' делим
                 r = n - p*q 'смотрим, хорошо ли поделилось=нет ли остатка
                 if r=0 then ' хорошо!
                ''  печатаем p или ещё что-то
                next p


              Добавлено
              Ну и
              ExpandedWrap disabled
                end if

              перед next'ом.

              Ну возьми попробуй сделать вот поэтому примеру может получится у тебя что www.modber.ru/catalog/item2859.html
              0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
              0 пользователей:


              Рейтинг@Mail.ru
              [ Script execution time: 0,0304 ]   [ 15 queries used ]   [ Generated: 2.06.23, 17:59 GMT ]