УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ
«Речицкий государственный районный лицей»
Учебно-исследовательская работа
«Магия чисел»
Ученика 10 «В» класса Белькевича Андрея Валерьевича
Научный руководитель –
учитель информатики
Смелова Владислава Николаевна
Речица, 2011
Оглавление:
1.
Введение……………………………………………………………………....3
2. Описание работы…………………………………………………………3
2.1 Число имени…..……………………………………………………………4
2.2 Число даты рождения…………………………………………………….5
2.3 Звёзды и числа…………………………………………………………….5
2.4 Ваш путь по звёздам……………...………………………………………6
2.5 Гадание "Исполнится ли то, о чём я думаю?"………………………..6
2.6 Описание создания дизайна и структуры программы……………9
3. Заключение……………………………………………………………..10
4. Литература……………………………………………………………..11
5. Приложение…………………………………………………………..…12
1.Введение:
Изучить различные источники о влиянии чисел на судьбы людей. Выделить наиболее важные и интересные моменты . На основе собранного материала составить программу, написанную на Delphi, проводящую все необходимые для результата вычисления.
2. Описание работы
2.1 Число имени
Согласно материалу, собранному по теме Имя, данное при рождении, накладывает отпечаток на всю дальнейшую жизнь. И зная некоторые правила расчётов можно расшифровать значение вашего имени в жизни.
Согласно «Оккультной философии» Агриппы каждому числу соответствует своё собственное значение. Буквы любого алфавита располагаются по порядку в расчёте на девять цифр:
А(1),Б(2),В(3),Г(4),Д(5),Е(6),Ё(7),Ж(8),З(9),И(1),Й(2),К(3),Л(4),М(5),Н(6),О(7),П(8),Р(9),С(1),Т(2),У(3),Ф(4),Х(5),Ц(6),Ч(7),Ш(8),Щ(9),Ъ(1),Ы(2),Ь(3),Э(4),Ю(5),Я(6) .
Например число имени Ваня-3+1+6+6=16, 1+6=7. И это число характеризует данного человека.
Для этого был использован следующий алгоритм
for i:=1 to length(s) do
case s[i] of
'а':a:=a+1;
'б':a:=a+2;
'в':a:=a+3;
…
'ю':a:=a+5;
'я':a:=a+6;
end;
while (a10) or (a=10) do
begin
sum:=sum+(a div 10);
sum:=sum+(a mod 10);
a:=sum;
sum:=0;
end;
2.2 Число даты рождения
Если верить источнику, то дата рождения человека уже предопределяет некоторые отличительные черты человека. Определив число вашего рождения путём сложения всех чисел, входящих в дату вашего рождения до однозначного числа мы можем определить, к какой планете относится данное число.
Так 1 соответствует Солнцу, 2-Луне. 3-Юпитеру. 4-Урану.5-Меркурию. 6-Венере, 7-Нептуну. 8-Сатурну. 9-Марсу.
Для вычисления планеты был использован следующий как и в пункте 2.1
while (a10) or (a=10) do
begin
sum:=sum+(a div 10);
sum:=sum+(a mod 10);
a:=sum;
sum:=0;
end;
2.3 Звёзды и числа
Год, в который вы родились, находится под покровительством одной из семи планет. Это можно определить из таблицы

Следую таблице можно определить качества человека, данные человеку определённой планетой.
2.4 Ваш путь по звёздам
Как уже говорилось ранее, каждому числу соответствует определенная планета. 1 -Солнцу, 2-Луне. 3-Юпитеру. 4-Урану.5-Меркурию. 6-Венере, 7-Нептуну. 8-Сатурну. 9-Марсу. но теперь определяем как сильно эти планеты повлияют на вашу жизнь, при помощи вычисления числа вашего имени.
Например: Наталья Иванова: 5+1+4+1+2+1+2+1+6+1+5+7+6+1=43; 4+3=7. Планета-Нептун. Алгоритм сходный с 2.1.
2.5 Гадание "Исполнится ли то, о чём я думаю?"
Что нужно сделать, чтобы получить ответ на волнующий вас вопрос? Конечно, чётко его сформулировать. С этого и было начато написание программы. Например: Надежда Силаева: буду ли я счастлива в браке?
Для начала был построен равнобедренный треугольник в основании которого 1.Число слов в предложении.2. Число слов в каждом предложении.
Пример: Надежда Силаева: буду ли я счастлива в браке?
9
4 5
1 3 2
2 8 4 7
6 5 3 1 6
9 6 8 4 6 9
2 7 8 9 4 2 7
6 5 2 6 3 1 1 6
8 7 7 4 2 1 9 1 5
Числа в следующих рядах -это сумма 2х чисел в предыдущем ряде.
Затем, если вершина треугольника- чётное число, тогда забираем все чётные числа, начиная с правой стороны треугольника, пока их количество не будет равным 5.
Использованный алгоритм:
while length(s3)1 do
begin
for i:= 1 to length(s3)-1 do
begin
if length(s3) mod 20 then delete(s,length(s3),1);
s:=s3[i]+s3[i+1];
val(s,a,code);
a:=(a div 10)+(a mod 10);
if a9 then a:=a-9;
if a19 then a:=a-18;
str(a,s1);
s2:=s2+s1;
s9:=s3;
end;
s3:=s2;
s2:='';
s4:=copy(s3,length(s3),1);
s8:=copy(s3,1,1);
s10:=s10+s4;
s11:=s11+s8;
end;
s7:=s11+s9+s10;
val(s3,a2,code2);
if a2 mod 20 then
begin
for j:=length(s7) downto 1 do
begin
val(s7[j],a1,code1);
if a1 mod 20 then
begin
str(a1,s5);
s6:=s6+s5;
end;
a1:=0;
s5:='';
end;
s6:=copy(s6,1,5);
end else
begin
for j:=length(s7) downto 1 do
begin
val(s7[j],a1,code1);
if a1 mod 2=0 then
begin
str(a1,s5);
s6:=s6+s5;
end;
a1:=0;
s5:='';
end;
s6:=copy(s6,1,5);
end;
Каждому числу соответствует определённая таблица. Так как чисел пять, следовательно и таблиц 5.
Таблица №1 Таблица№2
Таблица№3 Таблица№4
Таблица№5
Из этих таблиц мы получаем уже номера букв латинского алфавита.
Наш пример: Надежда Силаева: буду ли я счастлива в браке?
Имеет вот такой ответ: ЖЕСТОКЧНAЯ УЧAСТЬ МЭШAЕТЪТММУ ЧЕГО НAДЭЕШСЯ.
Ответ выглядит довольно грубо, но смысл понятен.
2.6 Описание создания дизайна и структуры программы
Программа создавалась в среде программирования Delphi. Вся программа состоит из 6 Form .Для того, чтобы программа работала, было прописано использование каждой Form всех Unit. Фон всех Form является компонентом Image. Ввод данных в программу производится с использований компонента Edit , а вывод- Memo.
Структура папок со значениями чисел:
3 папки : TXT,TXT1,TXT2,TXT3. Каждая содержит : 1.txt; 2.txt; 3.txt; 4.txt; 5.txt; 6.txt; 7.txt; 8.txt; 9.txt.
Фоны для Form были созданы в программу Adobe Photoshop.

3.Заключение
Числа хранят в себе много тайн, не известных и в настоящее время. С помощью информатики и математики мы приблизились к разгадке, чем они могут помочь в повседневной жизни человека. Облегчив его жизнь или предсказать некоторые события.
4.Литература
Энциклопедия тайных знаний: «Магия чисел». Харьков Белгород 2008.
5. Приложение
Здесь код программы проекта, который вы должны сделать сами!!!