Обработка информации по анализу характеристик числа имени

Число 4[9]

Как число имени 4 означает успех в  научных и технических областях, особенно в индустрии. Оно символизирует  надежность и стабильность, добросовестность, приобретение друзей и достижение признания. Более того такой человек полезен  в экстремальных ситуациях, в  трудных условиях, когда с наилучшей  стороны раскрываются качества его  характера и нравы. Это никогда  не следует недооценивать.

Число 5[9]

Как число имени 5 указывает на духовную свободу и независимость действий. Приобретенный и накопленный  опыт они ценят больше , чем советы со стороны. Больше всего они любят  путешествия и приключения, к  чему толкает их душевное беспокойство. Сколь результативна бывает эта  энергия, когда направляется она  на повседневный труд! Нередко число 5 указывает и на философский склад  мышления, иногда - на счастливые случаи с непредсказуемыми последствиями.

Число 6[9]

Как число имени 6 предвещает успех в  предприятиях, если только удается  завоевать доверие у окружающих, привлечь не только клиентов, но и последователей. Часто из них получаются или политические деятели, или высокие государственные  чиновники. Они становятся известными в обществе своими научными или философскими взглядами, но при условии, что их слово совпадает с делами. Ведь общество ждет от них реализации сказанного. Они быстро усваивают ту истину, что честность плодотворнее честолюбия, что честные усилия не пропадают  даром, что добрые, благие поступки помогут достигнуть цели, не прибегая к радикальным методам.

Число 7[9]

Как число имени 7 таит в себе способность  направлять талант в сферу науки, в мир искусства или философии, в религиозную деятельность. Но успех  их деятельности во многом зависит  от глубокого анализа результатов  уже достигнутого и от реального  планирования своего будущего. Понимая  других людей, они нередко становятся лидерами и учителями самого высокого класса. Но если они решили заняться коммерческим или финансовыми делами, то здесь им самим потребуется  помощь со стороны.

Число 8[9]

Как число имени 8 благоприятствует деятельности в сфере значительных, крупных  дел, предвещая и материальные блага. Заканчивая успешно одно дело, эти  люди сразу же принимаются за следующее. Часто пользу и выгоду, как общественный и материальный успех, им приносит увлечение  забытыми учениями, брошенные предприятия, отслужившие свое методы и т.д. и  т.п. Но они должны отказаться от мелочей  и деталей, передавая эту работу другим, а сами выступая только по большому счету.

Число 9[9]

Как число имени 9 требует от своего подопечного  преданности высокой цели, таланту  и призванию, а также щедрой отдачи того, чем одарила его природа. Так как все они пользуются авторитетом, могут быть лидерами, то должны руководствоваться при этом справедливостью, не отступать от тех  высоких идей, которые провозглашают. Им не следует мельчить, прибегать  к непочтенным действиям или  к несвойственному им поведению, чтобы не потерять ни преданности, ни уважения, которые они завоевали. Для себя они не должны требовать  больше, чем им причитается, и не требовать от других то, на что они  не способны. Они должны усмирять себя, отказаться от излишней гордости и  эгоизма, самомнения и высокомерия. И признавать достоинство и права  других людей.

2.ПРОЕКТНЫЙ РАЗДЕЛ

2.1Блок-схема

На рисунке 1 представлена укрупненная  блок-схема, показывающая логику работы программы.

 

 

 

 

 

 

 

 

 

 

 

Рис. 1. Укрупненная  блок-схема.

 

На рисунке 2 представлена полная блок-схема моей программы.

           

 

 

 

 

 

 

 

 

 

 

 

 

Рис.2 Блок – схема  основной программы

 

На рисунке 3 представлена блок-схема процедуры Button1Click (осуществляем вычисление персонального числа имени)

Рис. 3. Блок-схема  процедуры Button1Click.

 

На рисунке 4 представлена блок-схема процедуры N2Click (Очищаем поле вывода).

 

 

Рис. 4. Блок-схема  процедуры Button2Click.

 

На рисунке 5 представлена блок-схема процедуры N4Click (Закрываем программу)

 

 

Рис. 5. Блок-схема  процедуры Button4Click.

 

2.2. Текст программы

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, StdCtrls, Buttons, jpeg, ExtCtrls;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N4: TMenuItem;

    Image1: TImage;

    Image2: TImage;

    ScrollBar1: TScrollBar;

    ScrollBar2: TScrollBar;

    procedure BitBtn1Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  const m: array [0..32] of string = ('а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т' ,'у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я');

m1: array [0..8] of integer = (1,2,3,4,5,6,7,8,9);

m2: array [0..8] of string = (Само по себе число имени 1 не способно приносить большой успех, но если ему помогает число судьбы 1, приносит большую пользу- известность, сотрудничество, славу и внимание. легко добиться прогресса во всех областях.',

'Число приносит изящество и молодость. Его обладатели часто испытывают перемены в своей жизни, может дарить успех в таких областях, как импорт, экспорт и торговля лекарствами',

Хорошее число имени, приносит известность. Символизирует талант, разносторонность и веселость, указывает  на науку, мир искусства и спортивную жизнь. Эти люди тверды, верны, организованны  и умеренны',

'Не является хорошим  числом имени. "Четверки" практичны,  упорядоченны, лояльны, терпеливы  и экономны, смелы, честны и  имеют высокие критерии. Иногда  превращаются в трудоголиков  в ущерб семье и здоровью.',

'Хорошее число имени.  Делает своих обладателей прогрессивными, общительными и живыми, дарует  им популярность. Число 5 указывает  на духовную свободу и независимость  действий. Любят путешествия, приключения.',

'Наиболее подходит поэтам, художникам, танцорам и музыкантам. Это число имени заставляет  любить сотрудничество: они становятся  добрыми, симпатичными, гостеприимными, милосердными, эмоциональными и  непостоянными.',

'"Семерку" часто  считают непохожей на других, отчужденной. Склонны к уединению,  не умеют выражать свои чувства,  мысли. Высокочувствительные натуры, чутко реагирующие на настроение  других, с трудом принимающие  решения.',

'Создает своим обладателям  много трудностей, задержек и  препятствий. Оно приносит людям  одиночество и наивность со  стороны друзей и родственников.  Они часто не находят понимания  у окружающих и страдают от одиночества.',

'Делает людей искренними, выразительными, созидательными и  независимыми. Оно определяет их  сильной волей, определенностью,  силой и способностью выдержать  трудности. Это хорошее число  имени для политиков.');

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

var stroka : string;

i,j : byte;

summa : integer;

begin

If Edit1.Text <> '' // условие если пользователь не ввел имя

Then

Begin

Stroka := AnsiLowerCase(Edit1.Text); //присвоение  имени в переменную и перевод  символов строки в нижний регистр

For i := 1 to length(stroka) do //цикл для подсчета суммы цифр каждой буквы

begin

For j := 0 to 32 do //цикл для нахождения значение буквы

If copy(Stroka,i,1) = m[j] //сравнение выбранной буквы с массивом букв

Then

begin

summa := summa + m1[j]; //подсчет суммы  найденных значений

break; //выход из цикла

end;

begin

Image1.Visible:=False; (Первое изображение становится невидимым)

Image2.Visible:= True; (Второе изображение становится видимым)

end;

End;

Stroka:=IntToStr(summa); //перевод найденной  суммы в строк

Repeat

summa := 0; //обнуление суммы

for i:=1 to length(stroka) do

summa:=summa+strToInt(copy(Stroka,i,1));

Stroka:=IntToStr(summa); //перевод найденной  суммы в строку

until summa<10;

Memo1.Text := IntToStr(summa)+' , '+ m2[summa-1]; //вывод результата

procedure TForm1.N2Click(Sender: TObject);

begin

Image1.Visible:=True; (Первая картинка становится видимой)

Image2.Visible:=False;  (Вторая картинка становится невидимой)

begin

Memo1.Clear (запрограммировала Главное меню «Очистить поле вывода»)

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Close          (запрограммировала Главное меню «выход»)

end;

end;

end.

 

2.3. Результаты работы программы

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

1. Открываем программу, запустив с ярлыка с названием Project1
2. Если вы запустили программу использую Borland Delphi необходимо нажать кнопку на панели расположенной сверху.
3. Программа запустилась, перед вами появилась следующая форма, в которой нужно ввести данные об имени.

 

4. Нажимаем кнопку «Расчитать число имени».

 

5. Нажимаем кнопку «Рассчитать заново» в MainMenu.

 

6. Для того, чтобы завершить работу программы, необходимо нажать кнопку «Выход», которая находится в MainMenu.
7. Данную программу сложно использовать некорректно, но пользователь может совершить такую ошибку, как ввод данных не на русском языке, а на английском.
8. Может возникнуть проблема, если пользователь, не введя имя, нажмёт на кнопку «Рассчитать число имени». В этом случае программа выдаст сообщение об ошибке.

 

 

 

 

 

 

 

 

 

 

 

ЗАКЛЮЧЕНИЕ

Главной ценностью в  наше время являются информационные ресурсы. Автоматизированию поддается  любая информация, при чем с  помощью ЭВМ она приводиться  в наиболее полезный и удобный  для человека вид.

В первой части курсового  проекта была представлена краткая  теория о истории развития и сущности нумерологии.

Во второй части курсового  проекта была построена блок - схема программы, дано описание её основных элементов, представлен текст программы и показаны результаты работы программы. Поставленные задачи курсового проекта выполнены и следовательно цель достигнута.

В дальнейшем предполагается доработка программы, с более  детальным описанием характеристики человека по его числу рождения.

Проведя данную работу, были приобретены навыки работы в Borland Delphi и разработана собственная программа.

Я надеюсь, что моя программа  будет полезна людям интересующимся «наукой о числах» для изучения себя.

 

 

 

 

 

 

 

 

 

 

 

 

 

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

 

1.С.Ю. Ключников Священная наука чисел [текст ] 2007

2.Кавендиш  Ричард -Имена и числа. [текст]2007

3.Авессалом Подводный - Каббала чисел 1 [текст]часть 2007

4. Выдержки из книги Хигир Бориса – Число имени.[текст]2008

5. Сайт о нумерологии. [Электронный ресурс]-Режим доступа: http://numerology.yaxy.ru/

6. Глэдис Лобос «Практическая  нумерология. Энергия чисел и  ваша судьба» [текст]2009

7. Андрей Костенко «Числа  судьбы» [текст]2008

8. Джуно  Джордан «Классическая нумерология. О чем рассказывают имена и даты» [текст]2008

9. Нумерология [Электронный ресурс]-Режим доступа: http://nummagic.info/