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

Ассемблер? Это просто! Учимся программировать


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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 772
от 07.06.2007, 19:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 382, Экспертов: 37
В номере:Вопросов: 2, Ответов: 3


Вопрос № 89642: Всем добрый день ... Подскажите пожалуйста , как реализовать на Ассемблере проверку : является ли число, введенное пользователем совершенным? P.S. СОВЕРШЕННОЕ ЧИСЛО натуральное число, равное сумме всех своих правильных (т. е. меньших этого ...
Вопрос № 89730: Здравствуйте, эксперты. Помогите, пожалуйста, решить задачу: дана строка длиной до ста символов, в ней несколько раз встречается слово "школьник", заменить все его вхождения на слово "студент"...

Вопрос № 89.642
Всем добрый день ...
Подскажите пожалуйста , как реализовать на Ассемблере проверку : является ли число, введенное пользователем совершенным?
P.S. СОВЕРШЕННОЕ ЧИСЛО натуральное число, равное сумме всех своих правильных (т. е. меньших этого числа) делителей. Например, 6=1+2+3 и 28=1+2+4+7+14 суть совершенные числа.
Отправлен: 01.06.2007, 20:27
Вопрос задал: GOTHIC (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Tamashev Denis M
Здравствуйте, GOTHIC!
А число известно заранее?
Если да то можно складывать и проверять с уже готовым числом с помошью cmp.
Или я что-то недопонял ???

Приложение:

Ответ отправил: Tamashev Denis M (статус: 4-ый класс)
Ответ отправлен: 02.06.2007, 18:56

Отвечает: IceWolf
Здравствуйте, GOTHIC!
Работающая программа с комментариями в приложении. Чтобы было легче разобраться привожу текст аналогичной программы на паскале.

Program sovr;
var
Num, Sum, i :integer;
begin
Write('Введите число:');
Readln(Num);
Sum:=1;
for i:=2 to (Num div 2) do //проверяем все делители(div-целочисленное деление)
if (Num mod i)=0 //mod-остаток от деления
then Sum:=Sum+i;
if Sum=Num //Сумма делителей равна исходному числу?
then Writeln('Число совершенное.')
else Writeln('Число несовершенное');
Readln;
end.
Удачи!
С уважением, IceW0|f.

Приложение:

---------
Идеальных защит не существует, ибо то, что создано человеческим разумом, им же будет и разрушено!

Ответ отправил: IceWolf (статус: 9-ый класс)
Ответ отправлен: 04.06.2007, 17:40
Оценка за ответ: 5
Комментарий оценки:
Круто ! огромное Вам спасибо ! Вы меня спасли, а главное помогли разобраться с решением


Вопрос № 89.730
Здравствуйте, эксперты. Помогите, пожалуйста, решить задачу: дана строка длиной до ста символов, в ней несколько раз встречается слово "школьник", заменить все его вхождения на слово "студент"
Отправлен: 02.06.2007, 16:39
Вопрос задал: PingWIN (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: IceWolf
Здравствуйте, PingWIN!
В приложении работающая программа. Но использовать её можно лишь в случае, если вставляемая строка меньше затираемой. Если нужен вариант для проивольной длины строки-пишите в личку.
Удачи.
С уважением, IceW0|f.

Приложение:

---------
Идеальных защит не существует, ибо то, что создано человеческим разумом, им же будет и разрушено!

Ответ отправил: IceWolf (статус: 9-ый класс)
Ответ отправлен: 04.06.2007, 16:12


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

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

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

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

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


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


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 от 02.05.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное