нужна помощь с задачей в бейсике 0.6
, помогите пожалуйста
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [35.172.111.47] |
|
|
Правила раздела
1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.
Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)
Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена
Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.
Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)
Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена
Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
нужна помощь с задачей в бейсике 0.6
, помогите пожалуйста
Сообщ.
#1
,
|
|
|
|
Найти все целочисленные делители заданного числа n
в visual basic 6.0 |
|
Сообщ.
#2
,
|
|
 |
А в таком духе:
  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 Добавлено Ну и end if перед next'ом. |
|
Сообщ.
#3
,
|
|
 |
если не нужно, чтобы делители шли строго в возрастающем порядке,
то можно каждый раз при нахождении делителя p выводить оба делителя (и p и q) и тогда достаточно перебирать до квадратного корня из n, а не до самого n. |
|
Сообщ.
#4
,
|
|
 |
Цитата Славян @ q = n/p ' делим r = n - p*q 'смотрим, хорошо ли поделилось=нет ли остатка можно чутка упростить  использовать вот это \ тогда получается на строчку меньше ... q=n\p if q=0 then ... |
|
Сообщ.
#5
,
|
|
|
|
Цитата Славян @ А в таком духе: 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 Добавлено Ну и end if перед next'ом. Ну возьми попробуй сделать вот поэтому примеру может получится у тебя что www.modber.ru/catalog/item2859.html |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0304 ] [ 15 queries used ] [ Generated: 2.06.23, 17:59 GMT ]