12. Личностный опросник EPI (методика Г. Айзенка) / Альманах психологических тестов - М., 1995. С.217-224.

13. Ремизов Н. Delphi - М.: Питер, 2000.

14. Программирование под ред. В.В.Старлова - М: Питер, 1999.

15. Лаак Я.:«Психодиагностика: проблемы содержания и методов» - М.: 1996.

16. Симонов П.В., Ершов П.М. Темперамент. Характер. Личность. - М., Наука, 1984.

17. Рогов Е.И. Общая психология. - М., Владос, 1995.

18. Вассерман Л.И., Дюк В.А., Иовлев Б.В., Червинская К.Р. Психологическая диагностика и новые информационные технологии. Санкт-Петербург. 1997.--203с.

19. Шмелев А.Г., Похилько В.И. Анализ пунктов при конструировании и применении тест-опросников: ручные и компьютерные алгоритмы//Вопр. психол 1985. №4

20. Магура М., Поиск и отбор персонала. М.: Интел-Синтез, 2001.

21. Анастази А. Психологическое тестирование: В 2 кн. / Под ред. К.М. Гуревича, В.И. Лубовского. - М., 1982. - Кн. 1-2.

22. И.Г. Леонов «Познай себя и других» - популярные тесты, изд-во «Маркетинг», 1996 год

23. Торшина К., «Тестирование при приеме на работу», журнал «Управление персоналом №12, 2000 г.»

24. Леонгард К. Акцентуированные личности. - Киев, 1989

25.Э.М.Александровская, И.Н. Гильяшева Адаптированный модифицированный вариант детского личностного опросника Р. Кеттела. - М., 1995.

26. В.К. Вилюнас. Психологические механизмы мотивации человека. - М., 1990.

27. С. Мадди. Теория личности - сравнительный анализ.

28. С.Ю. Головин. Словарь практического психолога. Психология. М.,2002.

29. Словарь иностранных слов. - 18-е издание., М.,1989.

30. Айзенк Г.Ю. Структура личности. СПб., 1999.

31. Н.Б. Культин. Delphi6. Программирование на Object Pascal. - СПб. 2001.

психодиагностический автоматизированный тестирование личность айзенк

Приложение 1.

Опросник Айзенка (EPI) содержит 57 вопросов, 24 из которых направлены на выявление экстраверсии - интроверсии, 24 других - на оценку эмоциональной стабильности - нестабильности (нейротизма), остальные 9 составляют контрольную группу вопросов, предназначенную для оценки искренности испытуемого, его отношения к обследованию и достоверности результатов.

Г.Ю. Айзенк разработал два варианта данной методики (А и В), которые отличаются только текстом опросника. Инструкция, ключ и обработка данных дублируются. Наличие двух форм позволяет эксперту проводить повторное исследование.

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

Текст опросника (вариант А)

1. Часто ли Вы испытываете тягу к новым впечатлением, к тому, чтобы отвлечься, испытать сильные ощущения?

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

3. Считаете ли Вы себя беззаботным человеком?

4. Очень ли трудно Вам отказываться от своих намерений?

5. Обдумываете ли Вы свои дела не спеша и предпочитаете ли подождать прежде чем действовать?

6. Всегда ли Вы сдерживаете свои обещания, даже если это Вам невыгодно?

7. Часто ли у Вас бывают спады и подъемы настроения?

8. Быстро ли Вы обычно действуете и говорите, не тратите ли много времени на обдумывание?

9. Возникало ли у Вас когда-нибудь чувство, что Вы несчастны, хотя никакой серьезной причины для этого не было?

10. Верно ли, что «на спор» Вы способны решиться на все?

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

12. Бывает ли когда-нибудь, что, разозлившись, Вы выходите из себя?

13. Часто ли бывает, что Вы действуете необдуманно, под влиянием момента?

14. Часто ли Вас беспокоят мысли о том, что Вам не следовало чего-либо делать или говорить?

15. Предпочитаете ли Вы чтение книг встречам с людьми?

16. Верно ли, что Вас легко задеть?

17. Любите ли Вы часто бывать в компании?

18. Бывают ли иногда у Вас такие мысли, которыми Вам не хотелось бы делиться с другими людьми?

19. Верно ли, что иногда Вы настолько полны энергии, что все горит в руках, а иногда чувствуете сильную вялость?

20. Стараетесь ли Вы ограничить круг своих знакомых небольшим числом самых близких друзей?

21. Много ли Вы мечтаете?

22. Когда на Вас кричат, отвечаете ли Вы тем же?

23. Считаете ли Вы все свои привычки хорошими?

24. Часто ли у Вас появляется чувство, что Вы в чем-то виноваты?

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

26. Можно ли сказать, что нервы у Вас часто бывают «натянуты до предела»?

27. Слывете ли Вы за человека живого и веселого?

28. После того как дело сделано, часто ли Вы мысленно возвращаетесь к нему и думаете, что могли бы сделать лучше?

29. Чувствуете ли Вы себя неспокойно, находясь в большой компании?

30. Бывает ли, что Вы передаете слухи?

31. Бывает ли, что Вам не спится из-за того, что в голову лезут разные мысли?

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

33. Бывают ли у Вас сильные сердцебиения?

34. Нравится ли Вам работа, требующая сосредоточения?

35. Бывают ли у Вас приступы дрожи?

36. Всегда ли Вы говорите только правду?

37. Бывает ли Вам неприятно находиться в компании, где все подшучивают друг над другом?

38. Раздражительны ли Вы?

39. Нравится ли Вам работа, требующая быстрого действия?

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

41. Верно ли, что Вы неторопливы в движениях и несколько медлительны?

42. Опаздывали ли Вы когда-нибудь на работу или на встречу с кем-либо?

43. Часто ли Вам снятся кошмары?

44. Верно ли, что Вы так любите поговорить, что не упускаете любого удобного случая побеседовать с новым человеком?

45. Беспокоят ли Вас какие-нибудь боли?

46. Огорчились бы Вы, если бы долго не могли видеться со своими друзьями?

47. Можете ли Вы назвать себя нервным человеком?

48. Есть ли среди Ваших знакомых такие, которые Вам явно не нравятся?

49. Могли бы Вы сказать, что Вы уверенный в себе человек?

50. Легко ли Вас задевает критика Ваших недостатков или Вашей работы?

51. Трудно ли Вам получить настоящее удовольствие от мероприятий, в которых участвует много народа?

52. Беспокоит ли Вас чувство, что Вы чем-то хуже других?

53. Сумели бы Вы внести оживление в скучную компанию?

54. Бывает ли, что Вы говорите о вещах, в которых совсем не разбираетесь?

55. Беспокоитесь ли Вы о своем здоровье?

56. Любите ли Вы подшутить над другими?

57. Страдаете ли Вы бессонницей?

Текст опросника (вариант В)

1. Нравится ли Вам оживление и суета вокруг Вас?

2. Часто ли у Вас бывает беспокойное чувство, что Вам что-нибудь хочется, а Вы не знаете что?

3. Вы из тех людей, которые не лезут за словом в карман?

4. Чувствуете ли Вы себя иногда счастливым, а иногда печальным без какой-либо причины?

5. Держитесь ли Вы обычно в тени на вечеринках или в компании?

6. Всегда ли в детстве Вы делали немедленно и безропотно то, что Вам приказывали?

7. Бывает ли у Вас иногда дурное настроение?

8. Когда Вас втягивают в ссору, предпочитаете ли Вы отмолчаться, надеясь, что всё обойдется?

9. Легко ли Вы поддаетесь переменам настроения?

10. Нравится ли Вам находиться среди людей?

11. Часто ли Вы теряли сон из-за своих тревог?

12. Упрямитесь ли Вы иногда?

13. Могли бы Вы назвать себя беспечным человеком?

14. Часто ли Вам приходят хорошие мысли слишком поздно?

15. Предпочитаете ли Вы работать в одиночестве?

16. Часто ли Вы чувствуете себя апатичным и усталым без серьезной причины?

17. Вы по натуре живой человек?

18. Смеетесь ли Вы иногда над неприличными шутками?

19. Часто ли Вам что-то так надоедает, что Вы чувствуете себя

«сытым по горло»?

20. Чувствуете ли Вы себя неловко в какой-либо одежде, кроме повседневной?

21. Часто ли Ваши мысли отвлекаются, когда Вы пытаетесь сосредоточиться на чем-то?

22. Можете ли Вы быстро выразить Ваши мысли словами?

23. Полностью ли Вы свободны от всяких предрассудков?

24. Часто ли Вы бываете погружены в свои мысли?

25. Нравятся ли Вам первоапрельские шутки?

26. Часто ли Вы думаете о своей работе?

27. Очень ли Вы любите вкусно поесть?

28. Нуждаетесь ли Вы в дружески расположенном человеке, чтобы выговориться, когда Вы раздражены?

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

30. Хвастаетесь ли Вы иногда?

31. Очень ли Вы чувствительны к некоторым вещам?

32. Предпочли бы Вы остаться в одиночестве дома, чем пойти на скучную вечеринку?

33. Бываете ли Вы иногда беспокойными настолько, что не можете долго усидеть на месте?

34. Склонны ли Вы тщательно планировать свои дела раньше, чем следовало бы?

35. Бывают ли у Вас головокружения?

36. Всегда ли Вы отвечаете на письма сразу после прочтения?

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

38. Бывает ли у Вас когда-либо одышка, даже если вы не делали никакой тяжелой работы?

39. Можно ли сказать, что Вы человек, которого не волнует, чтобы все было именно так, как нужно?

40. Беспокоят Вас Ваши нервы?

41. Предпочитаете ли Вы больше строить планы, чем действовать?

42. Откладываете ли Вы иногда на завтра то, что должны сделать сегодня?

43. Нервничаете ли Вы в местах, подобных лифту, метро, туннелю?

44. При знакомстве Вы обычно первым проявляете инициативу?

45. Бывают ли у Вас сильные головные боли?

46. Считаете ли Вы обычно, что все само собой уладится и придет в норму?

47. Трудно ли Вам заснуть ночью?

48. Лгали ли Вы когда-нибудь в своей жизни?

49. Говорите ли Вы иногда первое, что придет в голову?

50. Долго ли Вы переживаете после случившегося конфуза?

51. Замкнуты ли Вы обычно со всеми, кроме близких друзей?

52. Часто ли с Вами случаются неприятности?

53. Любите ли Вы рассказывать истории друзьям?

54. Предпочитаете ли Вы больше выигрывать, чем проигрывать?

55. Часто ли Вы чувствуете себя неловко в обществе людей выше Вас по положению?

56. Когда обстоятельства против Вас, думаете ли Вы обычно, что стоит еще что-либо предпринять?

57. Часто ли у Вас «сосет под ложечкой» перед важным делом?

КЛЮЧ (к форме А и В).

1. Шкала экстраверсия- интроверсия:

«да» (+): 1, 3, 8, 10, 13, 17, 22, 25, 27, 39, 44, 46, 49, 53, 56.

«нет» (-): 5, 15, 20, 29, 32, 34, 37, 41, 51.

2. Шкала нейротизм - стабильность (эмоциональная стабильность - эмоциональная нестабильность):

«да» ( + ): 2, 4, 7, 9, 11, 14, 16, 19, 21, 24, 26, 28, 31, 33, 35, 38, 40, 43,45, 47, 50, 52, 55, 57.

3. Шкала лжи:

«да» (+ ): 6, 23, 36.

«нет» (-): 12, 18, 30, 42, 48, 54.

Ответы, совпадающие с «ключом», оцениваются в 1 балл.

Средний балл по шкале экстраверсия - интроверсия: 11- 12. Менее 11 баллов соответствует интровертированному типу, более 12 баллов - экстравертированному.

Средний балл по шкале нейротизм - стабильность: 12-13. Менее 12 баллов - эмоциональная стабильность, более 13 баллов - эмоциональная нестабильность (нейротизм).

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

0-3 балла - результаты обследования достоверные.

4-5 баллов - результаты обследования вызывают сомнения,

больше 5 баллов - результаты обследования недостоверные.

Приложение 2.

Листинг программы «Автоматизированная психодиагностическая методика Айзенка»

Листинг главной формы:

unit Unit1;

interface

uses

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

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

Uses Unit2, Unit4, Unit5;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Hide;

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ShowMessage('Программа разработана студенткой 5 курса ЛГУ им. А.С. Пушкина (Бокситогорский филиал), факультета МФИ (прикладная информатика), Сосниной О.А., 2008г.');

end;

end.

Листинг окна инструкции:

unit Unit2;

interface

uses

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

StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

Uses Unit1, Unit3, Unit4, Unit5;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form2.Hide;

Form1.Show;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Form2.Hide;

Form3.Show;

Button4.Hide;

Button1.Show;

Button2.Show;

Label4.Hide;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Button1.Hide;

Button2.Hide;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Hide;

Form4.Show;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.Hide;

Form5.Show;

end;

end.

Листинг окна Регистрации:

unit Unit3;

interface

uses

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

StdCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

f:textfile;

implementation

{$R *.DFM}

Uses Unit2;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Hide;

Form2.Show;

end;

procedure TForm3.Button1Click(Sender: TObject);

var s, Surname, Name, Fathername: string;

begin

Surname:=Edit1.text;

Name:=Edit2.text;

Fathername:=Edit3.text;

s:=Surname+' '+Name+' '+Fathername+#13;

write(f, s);

closeFile(f);

end;

procedure TForm3.FormActivate(Sender: TObject);

var

test:word;

begin

AssignFile(f,'c:\Aysenk.txt');

{$I-}

Append(f);

{$I+}

if IOResult=0

then Button1.Enabled:=true

else

begin

test:=MessageDlg('Файл не найден.'+'Создать новый файл?',mtInformation,[mbYes,mbNo],0);

if test=mrYes then

begin

{$I-}

rewrite(f);

{$I+}

if IOResult=0

then Button1.Enabled:=true

else ShowMessage('Ошибка создания файла.');

end;

end;

end;

end.

Листинг теста А:

unit Unit4;

interface

uses

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

StdCtrls;

type

TForm4 = class(TForm)

Label1: TLabel;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Button1: TButton;

Button2: TButton;

Label2: TLabel;

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

n,n1,n2,n3:integer;

s,s1, s2, s3, sss:string;

f:textfile;

implementation

{$R *.DFM}

Uses Unit2, Unit1;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form4.Hide;

Form1.Show;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

Label1.Caption :='1. Часто ли Вы испытываете тягу к новым впечатлением, к тому, чтобы отвлечься, испытать сильные ощущения?';

Button2.Hide;

n:=1;

n1:=0;

n2:=0;

n3:=0;

s:='';

s1:='';

s2:='';

s3:='';

sss:='';

end;

procedure TForm4.Button1Click(Sender: TObject);

const mn1=[1,3,8,10,13,17,22,25,27,39,44,46,49,53,56];

mn2=[5,15,20,29,32,34,37,41,51];

mn3=[2,4,7,9,11,14,16,19,21,24,26,28,31,33,35,38,40,43,45,47,50,52,55,57];

mn4=[6,23,36];

mn5=[12,18,30,42,48,54];

begin

n:=n+1;

case n of

1: Label1.Caption := '1. Часто ли Вы испытываете тягу к новым впечатлением, к тому, чтобы отвлечься, испытать сильные ощущения?';

2: Label1.Caption := '2. Часто ли Вы чувствуете, что нуждаетесь в друзьях, которые могут Вас понять, ободрить или посочувствовать?';

3: Label1.Caption := '3. Считаете ли Вы себя беззаботным человеком?';

4: Label1.Caption := '4. Очень ли трудно Вам отказываться от своих намерений?';

5: Label1.Caption := '5. Обдумываете ли Вы свои дела не спеша и предпочитаете ли подождать прежде чем действовать?';

6: Label1.Caption := '6. Всегда ли Вы сдерживаете свои обещания, даже если это Вам невыгодно?';

7: Label1.Caption := '7. Часто ли у Вас бывают спады и подъемы настроения?';

8: Label1.Caption := '8. Быстро ли Вы обычно действуете и говорите, не тратите ли много времени на обдумывание?';

9: Label1.Caption := '9. Возникало ли у Вас когда-нибудь чувство, что Вы несчастны, хотя никакой серьезной причины для этого не было?';

10: Label1.Caption := '10. Верно ли, что "на, спор" Вы способны решиться на все?';

11: Label1.Caption := '11. Смущаетесь ли Вы, когда хотите познакомиться с человеком противоположного пола, который Вам симпатичен?';

12: Label1.Caption := '12. Бывает ли когда-нибудь, что, разозлившись, Вы выходите из себя?';

13: Label1.Caption := '13. Часто ли бывает, что Вы действуете необдуманно, под влиянием момента?';

14: Label1.Caption := '14. Часто ли Вас беспокоят мысли о том, что Вам не следовало чего-либо делать или говорить?';

15: Label1.Caption := '15. Предпочитаете ли Вы чтение книг встречам с людьми?';

16: Label1.Caption := '16. Верно ли, что Вас легко задеть?';

17: Label1.Caption := '17. Любите ли Вы часто бывать в компании?';

18: Label1.Caption := '18. Бывают ли иногда у Вас такие мысли, которыми Вам не хотелось бы делиться с другими людьми?';

19: Label1.Caption := '19. Верно ли, что иногда Вы настолько полны энергии, что все горит в руках, а иногда чувствуете сильную вялость?';

20: Label1.Caption := '20. Стараетесь ли Вы ограничить круг своих знакомых небольшим числом самых близких друзей?';

21: Label1.Caption := '21. Много ли Вы мечтаете?';

22: Label1.Caption := '22. Когда на Вас кричат, отвечаете ли Вы тем же?';

23: Label1.Caption := '23. Считаете ли Вы все свои привычки хорошими?';

24: Label1.Caption := '24. Часто ли у Вас появляется чувство, что Вы в чем-то виноваты?';

25: Label1.Caption := '25. Способны ли Вы иногда дать волю своим чувствам и беззаботно развлекаться в веселой компании?';

26: Label1.Caption := '26. Можно ли сказать, что нервы у Вас часто бывают "натянуты до предела"?';

27: Label1.Caption := '27. Слывете ли Вы за человека живого и веселого?';

28: Label1.Caption := '28. После того как дело сделано, часто ли Вы мысленно возвращаетесь к нему и думаете, что могли бы сделать лучше?';

29: Label1.Caption := '29. Чувствуете ли Вы себя неспокойно, находясь в большой компании?';

30: Label1.Caption := '30. Бывает ли, что Вы передаете слухи?';

31: Label1.Caption := '31. Бывает ли, что Вам не спится из-за того, что в голову лезут разные мысли?';

32: Label1.Caption := '32. Если вы хотите узнать что-либо, предпочтете ли Вы найти это в книге, чем спросить у друзей?';

33: Label1.Caption := '33. Бывают ли у Вас сильные сердцебиения?';

34: Label1.Caption := '34. Нравится ли Вам работа, требующая сосредоточения?';

35: Label1.Caption := '35. Бывают ли у Вас приступы дрожи?';

36: Label1.Caption := '36. Всегда ли Вы говорите только правду?';

37: Label1.Caption := '37. Бывает ли Вам неприятно находиться в компании, где все подшучивают друг над другом?';

38: Label1.Caption := '38. Раздражительны ли Вы?';

39: Label1.Caption := '39. Нравится ли Вам работа, требующая быстрого действия?';

40: Label1.Caption := '40. Верно ли, что Вам часто не дают покоя мысли о разных неприятностях и ужасах, которые могли бы произойти, хотя все кончилось благополучно?';

41: Label1.Caption := '41. Верно ли, что Вы неторопливы в движениях и несколько медлительны?';

42: Label1.Caption := '42. Опаздывали ли Вы когда-нибудь на работу или на встречу с кем-либо?';

43: Label1.Caption := '43. Часто ли Вам снятся кошмары?';

44: Label1.Caption := '44. Верно ли, что Вы так любите поговорить, что не упускаете любого удобного случая побеседовать с новым человеком?';

45: Label1.Caption := '45. Беспокоят ли Вас какие-нибудь боли?';

46: Label1.Caption := '46. Огорчились бы Вы, если бы долго не могли видеться со своими друзьями?';

47: Label1.Caption := '47. Можете ли Вы назвать себя нервным человеком?';

48: Label1.Caption := '48. Есть ли среди Ваших знакомых такие, которые Вам явно не нравятся?';

49: Label1.Caption := '49. Могли бы Вы сказать, что Вы уверенный в себе человек?';

50: Label1.Caption := '50. Легко ли Вас задевает критика Ваших недостатков или Вашей работы?';

51: Label1.Caption := '51. Трудно ли Вам получить настоящее удовольствие от мероприятий, в которых участвует много народа?';

52: Label1.Caption := '52. Беспокоит ли Вас чувство, что Вы чем-то хуже других?';

53: Label1.Caption := '53. Сумели бы Вы внести оживление в скучную компанию?';

54: Label1.Caption := '54. Бывает ли, что Вы говорите о вещах, в которых совсем не разбираетесь?';

55: Label1.Caption := '55. Беспокоитесь ли Вы о своем здоровье?';

56: Label1.Caption := '56. Любите ли Вы подшутить над другими?';

57: Label1.Caption := '57. Страдаете ли Вы бессонницей?';

end;

if (n in mn1) and (RadioButton1.Checked) then n1:=n1+1;

if (n in mn2) and (RadioButton2.Checked) then n1:=n1+1;

if (n in mn3) and (RadioButton1.Checked) then n2:=n2+1;

if (n in mn4) and (RadioButton1.Checked) then n3:=n3+1;

if (n in mn5) and (RadioButton2.Checked) then n3:=n3+1;

if n1<11 then s1:='Тестируемый интроверт' else s1:='Тестируемый экстраверт';

if n2<12 then s2:='Эмоционально стабилен' else s2:='Эмоционально нестабилен (нейротизм)';

if n3<=3 then s3:='результаты обследования достоверные';

if (n3=4)or (n3=5) then s3:='результаты обследования вызывают сомнения';

if n3>5 then s3:='результаты обследования недостоверные';

if n=58 then begin sss:='результаты теста А: '+s1+#13+s2+#13+s3+#13;

Label1.Caption :=sss;

Button1.Hide;

Button2.show;

GroupBox1.Hide;

write (f, sss);

closeFile(f);

end;

RadioButton1.Checked:=false;

RadioButton2.Checked:=false;

end;

procedure TForm4.FormActivate(Sender: TObject);

var

test:word;

begin

AssignFile(f,'c:\Aysenk.txt');

{$I-}

Append(f);

{$I+}

if IOResult=0

then Button1.Enabled:=true

else

begin

test:=MessageDlg('Файл не найден.'+'Создать новый файл?',mtInformation,[mbYes,mbNo],0);

if test=mrYes then

begin

{$I-}

rewrite(f);

{$I+}

if IOResult=0

then Button1.Enabled:=true

else ShowMessage('Ошибка создания файла.');

end;

end;

end;

end.

Листинг теста В:

unit Unit5;

interface

uses

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

StdCtrls;

type

TForm5 = class(TForm)

Label1: TLabel;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

n,n1,n2,n3:integer;

s,s1, s2, s3, sss:string;

f:textfile;

implementation

{$R *.DFM}

Uses Unit2, Unit1;

procedure TForm5.Button2Click(Sender: TObject);

begin

Form5.Hide;

Form1.Show;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

Label1.Caption :='1. Нравится ли Вам оживление и суета вокруг Вас?';

Button2.Hide;

n:=1;

n1:=0;

n2:=0;

n3:=0;

s:='';

s1:='';

s2:='';

s3:='';

sss:='';

end;

procedure TForm5.Button1Click(Sender: TObject);

const mn1=[1,3,8,10,13,17,22,25,27,39,44,46,49,53,56];

mn2=[5,15,20,29,32,34,37,41,51];

mn3=[2,4,7,9,11,14,16,19,21,24,26,28,31,33,35,38,40,43,45,47,50,52,55,57];

mn4=[6,23,36];

mn5=[12,18,30,42,48,54];

begin

n:=n+1;

case n of

1: Label1.Caption := '1. Нравится ли Вам оживление и суета вокруг Вас?';

2: Label1.Caption := '2. Часто ли у Вас бывает беспокойное чувство, что Вам что-нибудь хочется, а Вы не знаете что?';

3: Label1.Caption := '3. Вы из тех людей, которые не лезут за словом в карман?';

4: Label1.Caption := '4. Чувствуете ли Вы себя иногда счастливым, а иногда печальным без какой-либо причины?';

5: Label1.Caption := '5. Держитесь ли Вы обычно в тени на вечеринках или в компании?';

6: Label1.Caption := '6. Всегда ли в детстве Вы делали немедленно и безропотно то, что Вам приказывали?';

7: Label1.Caption := '7. Бывает ли у Вас иногда дурное настроение?';

8: Label1.Caption := '8. Когда Вас втягивают в ссору, предпочитаете ли Вы отмолчаться, надеясь, что всё обойдется?';

9: Label1.Caption := '9. Легко ли Вы поддаетесь переменам настроения?';

10: Label1.Caption := '10. Нравится ли Вам находиться среди людей?';

11: Label1.Caption := '11. Часто ли Вы теряли сон из-за своих тревог?';

12: Label1.Caption := '12. Упрямитесь ли Вы иногда?';

13: Label1.Caption := '13. Могли бы Вы назвать себя беспечным человеком?';

14: Label1.Caption := '14. Часто ли Вам приходят хорошие мысли слишком поздно?';

15: Label1.Caption := '15. Предпочитаете ли Вы работать в одиночестве?';

16: Label1.Caption := '16. Часто ли Вы чувствуете себя апатичным и усталым без серьезной причины?';

17: Label1.Caption := '17. Вы по натуре живой человек?';

18: Label1.Caption := '18. Смеетесь ли Вы иногда над неприличными шутками?';

19: Label1.Caption := '19. Часто ли Вам что-то так надоедает, что Вы чувствуете себя "сытым по горло"?';

20: Label1.Caption := '20. Чувствуете ли Вы себя неловко в какой-либо одежде, кроме повседневной?';

21: Label1.Caption := '21. Часто ли Ваши мысли отвлекаются, когда Вы пытаетесь сосредоточиться на чем-то?';

22: Label1.Caption := '22. Можете ли Вы быстро выразить Ваши мысли словами?';

23: Label1.Caption := '23. Полностью ли Вы свободны от всяких предрассудков?';

24: Label1.Caption := '24. Часто ли Вы бываете погружены в свои мысли?';

25: Label1.Caption := '25. Нравятся ли Вам первоапрельские шутки?';

26: Label1.Caption := '26. Часто ли Вы думаете о своей работе?';

27: Label1.Caption := '27. Очень ли Вы любите вкусно поесть?';

28: Label1.Caption := '28. Нуждаетесь ли Вы в дружески расположенном человеке, чтобы выговориться, когда Вы раздражены?';

29: Label1.Caption := '29. Очень ли Вам неприятно брать взаймы или продавать что-нибудь, когда Вы нуждаетесь в деньгах?';

30: Label1.Caption := '30. Хвастаетесь ли Вы иногда?';

31: Label1.Caption := '31. Очень ли Вы чувствительны к некоторым вещам?';

32: Label1.Caption := '32. Предпочли бы Вы остаться в одиночестве дома, чем пойти на скучную вечеринку?';

33: Label1.Caption := '33. Бываете ли Вы иногда беспокойными настолько, что не можете долго усидеть на месте?';

34: Label1.Caption := '34. Склонны ли Вы тщательно планировать свои дела раньше, чем следовало бы?';

35: Label1.Caption := '35. Бывают ли у Вас головокружения?';

36: Label1.Caption := '36. Всегда ли Вы отвечаете на письма сразу после прочтения?';

37: Label1.Caption := '37. Справляетесь ли Вы с делом лучше, обдумав его самостоятельно, а не обсуждая с другими?';

38: Label1.Caption := '38. Бывает ли у Вас когда-либо одышка, даже если вы не делали никакой тяжелой работы?';

39: Label1.Caption := '39. Можно ли сказать, что Вы человек, которого не волнует, чтобы все было именно так, как нужно?';

40: Label1.Caption := '40. Беспокоят Вас Ваши нервы?';

41: Label1.Caption := '41. Предпочитаете ли Вы больше строить планы, чем действовать?';

42: Label1.Caption := '42. Откладываете ли Вы иногда на завтра то, что должны сделать сегодня?';

43: Label1.Caption := '43. Нервничаете ли Вы в местах, подобных лифту, метро, туннелю?';

44: Label1.Caption := '44. При знакомстве Вы обычно первым проявляете инициативу?';

45: Label1.Caption := '45. Бывают ли у Вас сильные головные боли?';

46: Label1.Caption := '46. Считаете ли Вы обычно, что все само собой уладится и придет в норму?';

47: Label1.Caption := '47. Трудно ли Вам заснуть ночью?';

48: Label1.Caption := '48. Лгали ли Вы когда-нибудь в своей жизни?';

49: Label1.Caption := '49. Говорите ли Вы иногда первое, что придет в голову?';

50: Label1.Caption := '50. Долго ли Вы переживаете после случившегося конфуза?';

51: Label1.Caption := '51. Замкнуты ли Вы обычно со всеми, кроме близких друзей?';

52: Label1.Caption := '52. Часто ли с Вами случаются неприятности?';

53: Label1.Caption := '53. Любите ли Вы рассказывать истории друзьям?';

54: Label1.Caption := '54. Предпочитаете ли Вы больше выигрывать, чем проигрывать?';

55: Label1.Caption := '55. Часто ли Вы чувствуете себя неловко в обществе людей выше Вас по положению?';

56: Label1.Caption := '56. Когда обстоятельства против Вас, думаете ли Вы обычно, что стоит еще что-либо предпринять?';

57: Label1.Caption := '57. Часто ли у Вас "сосет под ложечкой" перед важным делом?';

end;

if (n in mn1) and (RadioButton1.Checked) then n1:=n1+1;

if (n in mn2) and (RadioButton2.Checked) then n1:=n1+1;

if (n in mn3) and (RadioButton1.Checked) then n2:=n2+1;

if (n in mn4) and (RadioButton1.Checked) then n3:=n3+1;

if (n in mn5) and (RadioButton2.Checked) then n3:=n3+1;

if n1<11 then S1:='Тестируемый интроверт' else S1:='Тестируемый экстраверт';

if n2<12 then S2:='Эмоционально стабилен' else S2:='Эмоционально нестабилен (нейротизм)';

if n3<=3 then S3:='результаты обследования достоверные';

if (n3=4)or (n3=5) then S3:='результаты обследования вызывают сомнения';

if n3>5 then S3:='результаты обследования недостоверные';

if n=58 then begin sss:='результаты теста В: '+s1+#13+s2+#13+s3+#13;

Label1.Caption :=sss;

Button1.Hide;

Button2.show;

GroupBox1.Hide;

write (f, sss);

closeFile(f);

end;

RadioButton1.Checked:=false;

RadioButton2.Checked:=false;

end;

procedure TForm5.FormActivate(Sender: TObject);

var

test:word;

begin

AssignFile(f,'c:\Aysenk.txt');

{$I-}

Append(f);

{$I+}

if IOResult=0

then Button1.Enabled:=true

else

begin

test:=MessageDlg('Файл не найден.'+'Создать новый файл?',mtInformation,[mbYes,mbNo],0);

if test=mrYes then

begin

{$I-}

rewrite(f);

{$I+}

if IOResult=0

then Button1.Enabled:=true

else ShowMessage('Ошибка создания файла.');

end;

end;

end;

end.