Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 741
от 29.03.2008, 15:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 288, Экспертов: 47
В номере:Вопросов: 1, Ответов: 1

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 128836: доброго времени суток,есть задача которую надо очень срочно решиь,помогите плизз кто чем может.есть текст задачи и написанная програма,в ней надо найти 3 строки с ошибками и исправить эти строки.в одномерный массив размера N(n задано, не менее 8 и не...

Вопрос № 128.836
доброго времени суток,есть задача которую надо очень срочно решиь,помогите плизз кто чем может.есть текст задачи и написанная програма,в ней надо найти 3 строки с ошибками и исправить эти строки.в одномерный массив размера N(n задано, не менее 8 и не более 20) ввести натуральные числа.Создать новый массив,в который поместить только те элементы исходного массива,которые имеют с предыдущим элементом массива общий делитель отличный от 1 распечатать новый массив или сообщить ,что искомых элементов нет.

Приложение:

Отправлен: 24.03.2008, 15:13
Вопрос задал: KVA137 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Архипов Александр Леонидович
Здравствуйте, KVA137!
Строка 1 вместо ":" надо "," или ";"
Строка 16 после нет" надо ":"
Цикл по j я бы вообще убрал, а заменил бы:
9 if i = 1 then 15
10
11
12 if a(i) mod a(i-1) = 0 or a(i-1) mod a(i) = 0 or a(i)/a(i-1) <> 1 then
13 k=k+1:b(k) = a(i)
14 end if
15 next i
ну вот, вроде работает
Ответ отправил: Архипов Александр Леонидович (статус: Студент)
Ответ отправлен: 24.03.2008, 16:07


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 4.72.6 beta от 22.03.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное