Guest

Нада в VB сбацать прогу, используя операторы циклов:
Дана произвольной длины последовательность натуральных чисел. Найти сумму чисел, не делящихся нацело на 2 и 11, наибольшее из таких чисел, и номер этого числа в последовательности.
Нада листинг(код проги) и, по возможности, блок-схему

Hacker

Элементарно!
--------------------------------------------------------------------------------

заносим в переменную X число
проверяем делится ли оно на 2 если результат да, то выходим из процедуры и берем следующее число,
иначе проверяем делится ли оно 11 если да, то выходим из процедуры и берем следующее,
далее прибавляем это число к сумме тех чисел что успешно прошли проверку на деление


x=какое-то число


if x mod 2>0 then
if x mod 11 >0 then

y=y+x

end if
'тут вписать как забирать следующее число если делиться на 11
end if
'тут вписать как забирать следующее число если делиться на 2


это просто алгоритм
без сформированной структуры кода там процедур и прочего так чисто схемка и основ реализации

команда mod обозначает деление, но в качестве результата выдает число в остатке (такое же получаешь при делении в столбик)

voyaka

Такая вот у меня проблема. Во время нахождения на рабочем столе появляется окно с надписью "ПЕЧАТЬ В ФАЙЛ",далее "Имя файла для вывода" и соответственно поле где я должен что-то напечатать и ОК -ОТМЕНА.Нажимаю вопрос что делать,мне говорят "Имя файла в котором сохраняется данный документюФормат записи при этом определяется устройством печати,а не приложением,из которого производится печать". Иду в Диспетчер задач и там вижу,что в том что выслывает окно виноват процес spoolsv.exe ,я удаляю задачу но через несколько секунд окно опять появляется. Оно не мешает в работе компа,но уж муторно его постоянно передвигать,т.к я не вижу что под нею,на работу ни одной программы не влияет.

Sarutobi

У тебя кто-то или что-то постоянно отравляет что-то на печать, процесс spoolsv.exe тут не при чем он просто отвечает за печать документов. Проверь свой компьютер на вирусы, понаблюдай какое приложение или какие действия ты делаешь когда это окошко появляется, это поможет выловить виновника. Насколько я понял ты специально ничего не отправляешь на печать?

voyaka

мне сказали,что у меня скорее всего какоето не законченное действие вот оно и поевляется а появляется оно просто так,даже если я ничего не делаю,а только включаю комп.