Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Теория программирования > Алгоритмы
Перезагрузить страницу Алгоритм исключения ненужных чисел
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
turtles turtles вне форума
Member
 
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.08.2011
По умолчанию Алгоритм исключения ненужных чисел - 28.09.2011, 12:26

Здравствуйте! Подскажите, как составить алгоритм по заданию или блок-схему?

Задание:

В американской армии считается несчастливым число 13, а в японской — 4. Перед международными учениями штаб российской армии решил исключить номера боевой техники, содержащие числа 4 или 13 (например, 40123, 13313, 12345 или 13040), чтобы не смущать иностранных коллег. Если в распоряжении армии имеется 100 тыс. единиц боевой техники и каждая боевая машина имеет номер от 00001 до 99999, то сколько всего номеров придётся исключить?
Ответить с цитированием
  (#2 (permalink)) Старый
aag aag вне форума
ушёл... не вернётся)))
 
Сообщений: 3,400
Сказал(а) спасибо: 0
Поблагодарили 82 раз(а) в 82 сообщениях
Регистрация: 29.11.2008
По умолчанию 28.09.2011, 13:21

Чисел от 1 до 99999 без цифры 4 и без цифросочетания 13 всего 56159.

Visual Prolog Код:
implement main
open core, console, list
constants
className = "main".
classVersion = "".
clauses
classInfo(className, classVersion).
 
class facts
dgts:integer*:= [0,1,2,3,5,6,7,8,9].
c:integer:= -1.
 
clauses
run():- init(), ( get(5,0), c:=c+1, fail; write(c) ), _=readChar().
 
class predicates
get:(integer,integer) nondeterm.
clauses
get(0,_):- !.
get(A,B):- C=getMember_nd(dgts), B+C<>13, get(A-1,C*10).
 
end implement main
goal mainExe::run(main::run).
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Алгоритм псевдо-случайных чисел Insomnia Алгоритмы 2 11.11.2008 14:04
Блокировка ненужных символов при вводе Infernal С/С++ 2 27.05.2008 15:53
Выложите плз какие нить проги для чистки винта от ненужных файлов! Fatality Софт и программы 5 04.09.2007 19:16
Написать алгоритм поиска среднего числа из массива целых чисел Among Вопросы начинающих программистов 7 09.11.2006 15:28
Алгоритм Бута ускоренный алгоритм умножения чисел MrPIT Алгоритмы 0 20.05.2006 18:12
Как написать алгоритм аддитивного метода генерации чисел Skull Вопросы начинающих программистов 2 25.04.2006 20:17
Код программы на Visual Prolog Алгоритм Флойда и Алгоритм Дейкстры r Вопросы начинающих программистов 2 08.12.2005 00:34
Алгоритм нахождения наибольшего общего делителя двух заданных чисел imported_Настасья Вопросы начинающих программистов 3 24.11.2005 20:54
Как сделать исключения imported_rico Delphi 1 09.06.2005 06:34
Алгоритм вычисления больших чисел для VBA Sibiryak Visual Basic 2 12.03.2005 02:44
Алгоритм случайных чисел Scientist Алгоритмы 1 28.01.2004 17:46
SQL запрос на удаление ненужных строк в таблице EUGIX C++ Builder 4 20.10.2003 11:22



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов