Создание программы в Borland Delphi, тест Амтхауэра

Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Государственное образовательное учереждение высшего профессионального образования

«Санкт-Петербургский государственный электротехнический университет

«ЛЭТИ» имени В. И. Ульянова (Ленина)» (СПбГЭТУ)

Курсовая работа

По дисциплине информатика

тема: Создание программы в Borland Delphi, тест Амтхауэра

Выполнила:

Козарез Н.А.

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

Project1:

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.Run;

end.

Unit1:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Bevel1: TBevel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Hide;

Form2.Show;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Position:= poDeskTopCenter;

end;

end.

Unit2:

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm2 = class(TForm)

Timer1: TTimer;

Button1: TButton;

Label2: TLabel;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Button25: TButton;

Button26: TButton;

Button27: TButton;

Button28: TButton;

Button29: TButton;

Button30: TButton;

Button31: TButton;

Button32: TButton;

Button33: TButton;

Button34: TButton;

Button35: TButton;

Button36: TButton;

Button37: TButton;

Button38: TButton;

Button39: TButton;

Button46: TButton;

Button47: TButton;

Button48: TButton;

Button49: TButton;

Button50: TButton;

Button51: TButton;

Button52: TButton;

Button53: TButton;

Button54: TButton;

Button55: TButton;

Button56: TButton;

Button57: TButton;

Button58: TButton;

Button59: TButton;

Button60: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Bevel1: TBevel;

Label1: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Bevel2: TBevel;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

Button42: TButton;

Button41: TButton;

Button43: TButton;

Button44: TButton;

Button45: TButton;

Button40: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

procedure Button29Click(Sender: TObject);

procedure Button30Click(Sender: TObject);

procedure Button31Click(Sender: TObject);

procedure Button32Click(Sender: TObject);

procedure Button33Click(Sender: TObject);

procedure Button34Click(Sender: TObject);

procedure Button35Click(Sender: TObject);

procedure Button36Click(Sender: TObject);

procedure Button37Click(Sender: TObject);

procedure Button38Click(Sender: TObject);

procedure Button39Click(Sender: TObject);

procedure Button40Click(Sender: TObject);

procedure Button41Click(Sender: TObject);

procedure Button42Click(Sender: TObject);

procedure Button43Click(Sender: TObject);

procedure Button44Click(Sender: TObject);

procedure Button45Click(Sender: TObject);

procedure Button46Click(Sender: TObject);

procedure Button47Click(Sender: TObject);

procedure Button48Click(Sender: TObject);

procedure Button49Click(Sender: TObject);

procedure Button50Click(Sender: TObject);

procedure Button51Click(Sender: TObject);

procedure Button52Click(Sender: TObject);

procedure Button53Click(Sender: TObject);

procedure Button54Click(Sender: TObject);

procedure Button55Click(Sender: TObject);

procedure Button56Click(Sender: TObject);

procedure Button57Click(Sender: TObject);

procedure Button58Click(Sender: TObject);

procedure Button59Click(Sender: TObject);

procedure Button60Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

ball, ocen, num, sec, sec1, min: integer;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Комментарий - это…';

RadioButton1.Caption:= 'закон';

RadioButton2.Caption:= 'лекция';

RadioButton3.Caption:= 'объяснение';

RadioButton4.Caption:= 'следствие';

RadioButton5.Caption:= 'намек';

Button1.Visible:= false;

Button2.Top:= Button1.Top;

Button2.Left:= Button1.Left;

Button2.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= ' Вопрос номер ' + IntToStr(num);

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Form2.Position:= poDeskTopCenter;

//ball:= 0;

//num:=1;

//sec:=0;

Label2.Caption:= '';

Label3.Caption:= IntToStr(num);

Label4.Caption:= '';

Label4.Visible:= false;

Label2.Visible:= false;

Label3.Visible:= false;

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

Label6.Caption:= '';

Label6.Visible:= false;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Противоположностью предательства является…';

RadioButton1.Caption:= 'любовь';

RadioButton2.Caption:= 'тунеядство';

RadioButton3.Caption:= 'хитрость';

RadioButton4.Caption:= 'трусость';

RadioButton5.Caption:= 'преданность';

Button2.Visible:= false;

Button3.Top:= Button1.Top;

Button3.Left:= Button1.Left;

Button3.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Обед не может состояться без…';

RadioButton1.Caption:= 'стола';

RadioButton2.Caption:= 'сервиза';

RadioButton3.Caption:= 'пищи';

RadioButton4.Caption:= 'воды';

RadioButton5.Caption:= 'голода';

Button3.Visible:= false;

Button4.Top:= Button1.Top;

Button4.Left:= Button1.Left;

Button4.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Женщины … бывают выше мужчин.';

RadioButton1.Caption:= ' всегда';

RadioButton2.Caption:= 'обычно';

RadioButton3.Caption:= 'часто';

RadioButton4.Caption:= 'никогда не';

RadioButton5.Caption:= 'иногда';

Button4.Visible:= false;

Button5.Top:= Button1.Top;

Button5.Left:= Button1.Left;

Button5.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Занятием, противоположным отдыху, является…';

RadioButton1.Caption:= 'труд';

RadioButton2.Caption:= 'забота';

RadioButton3.Caption:= 'усталость';

RadioButton4.Caption:= 'прогулка';

RadioButton5.Caption:= 'тренировка';

Button5.Visible:= false;

Button6.Top:= Button1.Top;

Button6.Left:= Button1.Left;

Button6.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Для торговли необходимо иметь…';

RadioButton1.Caption:= 'магазин';

RadioButton2.Caption:= 'деньги';

RadioButton3.Caption:= 'прилавок';

RadioButton4.Caption:= 'товары';

RadioButton5.Caption:= 'весы';

Button6.Visible:= false;

Button7.Top:= Button1.Top;

Button7.Left:= Button1.Left;

Button7.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Когда спор кончается взаимной уступкой, это называется…';

RadioButton1.Caption:= 'конвенцией';

RadioButton2.Caption:= 'компромиссом';

RadioButton3.Caption:= 'развязкой';

RadioButton4.Caption:= 'сговором';

RadioButton5.Caption:= 'примирением';

Button7.Visible:= false;

Button8.Top:= Button1.Top;

Button8.Left:= Button1.Left;

Button8.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Человека, который плохо относится к новшествам, называют…';

RadioButton1.Caption:= 'анархистом';

RadioButton2.Caption:='либералом';

RadioButton3.Caption:= 'демократом';

RadioButton4.Caption:= 'радикалом';

RadioButton5.Caption:= 'консерватором';

Button8.Visible:= false;

Button9.Top:= Button1.Top;

Button9.Left:= Button1.Left;

Button9.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button9Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Сыновья … превосходят отцов по жизненному опыту…';

RadioButton1.Caption:= 'никогда не';

RadioButton2.Caption:= 'часто';

RadioButton3.Caption:= 'редко';

RadioButton4.Caption:= 'обычно';

RadioButton5.Caption:= 'всегда';

Button9.Visible:= false;

Button10.Top:= Button1.Top;

Button10.Left:= Button1.Left;

Button10.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button10Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='При одинаковом весе больше всего белков содержит…';

RadioButton1.Caption:= 'мясо';

RadioButton2.Caption:= 'яйца';

RadioButton3.Caption:= 'жир';

RadioButton4.Caption:= 'рыба';

RadioButton5.Caption:= 'хлеб';

Button10.Visible:= false;

Button11.Top:= Button1.Top;

Button11.Left:= Button1.Left;

Button11.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button11Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Соотношение выигрышей и проигрышей в лотерее дает возможность определить…';

RadioButton1.Caption:= 'число участников';

RadioButton2.Caption:= 'прибыль';

RadioButton3.Caption:= 'цену одного билета';

RadioButton4.Caption:= 'количество билетов';

RadioButton5.Caption:= 'вероятность выигрыша';

Button11.Visible:= false;

Button12.Top:= Button1.Top;

Button12.Left:= Button1.Left;

Button12.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button12Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Тетя … бывает старше племянницы';

RadioButton1.Caption:= 'всегда';

RadioButton2.Caption:= 'редко';

RadioButton3.Caption:= 'почти всегда';

RadioButton4.Caption:= 'никогда не';

RadioButton5.Caption:= 'обязательно';

Button12.Visible:= false;

Button13.Top:= Button1.Top;

Button13.Left:= Button1.Left;

Button13.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button13Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Утверждение, что все люди честны…';

RadioButton1.Caption:= 'ложно';

RadioButton2.Caption:= 'хитро';

RadioButton3.Caption:= 'абсурдно';

RadioButton4.Caption:= 'верно';

RadioButton5.Caption:= 'не доказано';

Button13.Visible:= false;

Button14.Top:= Button1.Top;

Button14.Left:= Button1.Left;

Button14.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button14Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Рост шестилетнего ребенка равен примерно … см."?';

RadioButton1.Caption:= '160';

RadioButton2.Caption:= '60';

RadioButton3.Caption:= '140';

RadioButton4.Caption:= '110';

RadioButton5.Caption:= '50';

Button14.Visible:= false;

Button15.Top:= Button1.Top;

Button15.Left:= Button1.Left;

Button15.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button15Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Не вполне доказанное утверждение называют…';

RadioButton1.Caption:= 'двусмысленным';

RadioButton2.Caption:= 'парадоксальным';

RadioButton3.Caption:= 'гипотетичным';

RadioButton4.Caption:= 'путанным';

RadioButton5.Caption:= 'очевидным';

Button15.Visible:= false;

Button16.Top:= Button1.Top;

Button16.Left:= Button1.Left;

Button16.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button16Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Севернее всех названных городов расположен…?';

RadioButton1.Caption:= 'Новосибирск';

RadioButton2.Caption:= 'Мурманск';

RadioButton3.Caption:= 'Иркутск';

RadioButton4.Caption:= 'Красноярск';

RadioButton5.Caption:= 'Хабаровск';

Button16.Visible:= false;

Button17.Top:= Button1.Top;

Button17.Left:= Button1.Left;

Button17.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button17Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Предложение не существует без…';

RadioButton1.Caption:= 'глагола';

RadioButton2.Caption:= 'подлежашего';

RadioButton3.Caption:= 'обращения';

RadioButton4.Caption:= 'точки';

RadioButton5.Caption:= 'слов';

Button17.Visible:= false;

Button18.Top:= Button1.Top;

Button18.Left:= Button1.Left;

Button18.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button18Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Расстояние между Москвой и Новосибирском составляет примерно…км.';

RadioButton1.Caption:= ' 3000';

RadioButton2.Caption:= '1000';

RadioButton3.Caption:= '7000';

RadioButton4.Caption:= '4800';

RadioButton5.Caption:= '2100';

Button18.Visible:= false;

Button19.Top:= Button1.Top;

Button19.Left:= Button1.Left;

Button19.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button19Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Длина спички... см';

RadioButton1.Caption:= '4';

RadioButton2.Caption:= '3';

RadioButton3.Caption:= '2.5';

RadioButton4.Caption:= '6';

RadioButton5.Caption:= '5';

Button19.Visible:= false;

Button20.Top:= Button1.Top;

Button20.Left:= Button1.Left;

Button20.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button20Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'узкий';

RadioButton2.Caption:= 'угловатый';

RadioButton3.Caption:= 'короткий';

RadioButton4.Caption:= 'высокий';

RadioButton5.Caption:= 'широкий';

Button20.Visible:= false;

Button21.Top:= Button1.Top;

Button21.Left:= Button1.Left;

Button21.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Стимульный материал. Раздел 2. Задания 21-40. Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button21Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'велосипед';

RadioButton2.Caption:= 'мотоцикл';

RadioButton3.Caption:= 'поезд';

RadioButton4.Caption:= 'трамвай';

RadioButton5.Caption:= 'автобус';

Button21.Visible:= false;

Button22.Top:= Button1.Top;

Button22.Left:= Button1.Left;

Button22.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button22Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'запад';

RadioButton2.Caption:= 'курс';

RadioButton3.Caption:= 'направление';

RadioButton4.Caption:= 'путешествие';

RadioButton5.Caption:= 'север';

Button22.Visible:= false;

Button23.Top:= Button1.Top;

Button23.Left:= Button1.Left;

Button23.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button23Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'видеть';

RadioButton2.Caption:= 'говорить';

RadioButton3.Caption:= 'осязать';

RadioButton4.Caption:= 'нюхать';

RadioButton5.Caption:= 'слышать';

Button23.Visible:= false;

Button24.Top:= Button1.Top;

Button24.Left:= Button1.Left;

Button24.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button24Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'прилечь';

RadioButton2.Caption:= 'приподняться';

RadioButton3.Caption:= 'присесть';

RadioButton4.Caption:= 'прислониться';

RadioButton5.Caption:= 'привстать';

Button24.Visible:= false;

Button25.Top:= Button1.Top;

Button25.Left:= Button1.Left;

Button25.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button25Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'круг';

RadioButton2.Caption:= 'эллипс';

RadioButton3.Caption:= 'стрела';

RadioButton4.Caption:= 'дуга';

RadioButton5.Caption:= 'кривая';

Button25.Visible:= false;

Button26.Top:= Button1.Top;

Button26.Left:= Button1.Left;

Button26.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button26Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'добрый';

RadioButton2.Caption:= 'верный';

RadioButton3.Caption:= 'отзывчивый';

RadioButton4.Caption:= 'трусливый';

RadioButton5.Caption:= 'честный';

Button26.Visible:= false;

Button27.Top:= Button1.Top;

Button27.Left:= Button1.Left;

Button27.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button27Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'разделять';

RadioButton2.Caption:= 'освобождать';

RadioButton3.Caption:= 'связывать';

RadioButton4.Caption:= 'резать';

RadioButton5.Caption:= 'отличать';

Button27.Visible:= false;

Button28.Top:= Button1.Top;

Button28.Left:= Button1.Left;

Button28.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button28Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'граница';

RadioButton2.Caption:= 'мост';

RadioButton3.Caption:= 'общество';

RadioButton4.Caption:= 'расстояние';

RadioButton5.Caption:= 'супружество';

Button28.Visible:= false;

Button29.Top:= Button1.Top;

Button29.Left:= Button1.Left;

Button29.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button29Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'занавес';

RadioButton2.Caption:= 'щит';

RadioButton3.Caption:= 'невод';

RadioButton4.Caption:= 'фильтр';

RadioButton5.Caption:= 'стена';

Button29.Visible:= false;

Button30.Top:= Button1.Top;

Button30.Left:= Button1.Left;

Button30.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button30Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'матрос';

RadioButton2.Caption:= 'плотник';

RadioButton3.Caption:= 'шофер';

RadioButton4.Caption:= 'велосипедист';

RadioButton5.Caption:= 'парикмахер';

Button30.Visible:= false;

Button31.Top:= Button1.Top;

Button31.Left:= Button1.Left;

Button31.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button31Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'кларнет';

RadioButton2.Caption:= 'контрабас';

RadioButton3.Caption:= 'гитара';

RadioButton4.Caption:= 'скрипка';

RadioButton5.Caption:= 'арфа';

Button31.Visible:= false;

Button32.Top:= Button1.Top;

Button32.Left:= Button1.Left;

Button32.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button32Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'отражение';

RadioButton2.Caption:= 'эхо';

RadioButton3.Caption:= 'деятельность';

RadioButton4.Caption:= 'отзвук';

RadioButton5.Caption:= 'подражание';

Button32.Visible:= false;

Button33.Top:= Button1.Top;

Button33.Left:= Button1.Left;

Button33.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button33Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'учение';

RadioButton2.Caption:= 'планирование';

RadioButton3.Caption:= 'тренировка';

RadioButton4.Caption:= 'отчет';

RadioButton5.Caption:= 'рекламирование';

Button33.Visible:= false;

Button34.Top:= Button1.Top;

Button34.Left:= Button1.Left;

Button34.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button34Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'зависть';

RadioButton2.Caption:= 'скупость';

RadioButton3.Caption:= 'обжорство';

RadioButton4.Caption:= 'скраедность';

RadioButton5.Caption:= 'жадность';

Button34.Visible:= false;

Button35.Top:= Button1.Top;

Button35.Left:= Button1.Left;

Button35.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button35Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'разум';

RadioButton2.Caption:= 'вывод';

RadioButton3.Caption:= 'решение';

RadioButton4.Caption:= 'начинание';

RadioButton5.Caption:= 'договор';

Button35.Visible:= false;

Button36.Top:= Button1.Top;

Button36.Left:= Button1.Left;

Button36.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button36Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'тонкий';

RadioButton2.Caption:= 'худой';

RadioButton3.Caption:= 'узкий';

RadioButton4.Caption:= 'дородный';

RadioButton5.Caption:= 'короткий';

Button36.Visible:= false;

Button37.Top:= Button1.Top;

Button37.Left:= Button1.Left;

Button37.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button37Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'горлышко';

RadioButton2.Caption:= 'пробка';

RadioButton3.Caption:= 'ножка';

RadioButton4.Caption:= 'спинка';

RadioButton5.Caption:= 'ручка';

Button37.Visible:= false;

Button38.Top:= Button1.Top;

Button38.Left:= Button1.Left;

Button38.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button38Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'туманный';

RadioButton2.Caption:= 'морозный';

RadioButton3.Caption:= 'ветреный';

RadioButton4.Caption:= 'хмурый';

RadioButton5.Caption:= 'дождливый';

Button38.Visible:= false;

Button39.Top:= Button1.Top;

Button39.Left:= Button1.Left;

Button39.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button39Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных:';

RadioButton1.Caption:= 'писать';

RadioButton2.Caption:= 'рубить';

RadioButton3.Caption:= 'шить';

RadioButton4.Caption:= 'читать';

RadioButton5.Caption:= 'кровать';

Button39.Visible:= false;

Button40.Top:= Button1.Top;

Button40.Left:= Button1.Left;

Button40.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button40Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Школа -- директор; кружок -- ? ';

RadioButton1.Caption:= 'председатель';

RadioButton2.Caption:= 'член';

RadioButton3.Caption:= 'руководитель; ';

RadioButton4.Caption:= 'заведующий';

RadioButton5.Caption:= 'посетитель';

Button40.Visible:= false;

Button41.Top:= Button1.Top;

Button41.Left:= Button1.Left;

Button41.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Субтест 3 - аналогии. Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button41Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Часы -- время; термометр -- ? ';

RadioButton1.Caption:= 'прибор';

RadioButton2.Caption:= 'измерение';

RadioButton3.Caption:= 'ртуть';

RadioButton4.Caption:= 'тепло';

RadioButton5.Caption:= 'температура';

Button41.Visible:= false;

Button42.Top:= Button1.Top;

Button42.Left:= Button1.Left;

Button42.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button42Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Искать -- находить; размышлять -- ? ';

RadioButton1.Caption:= 'запоминать';

RadioButton2.Caption:= 'приходить к выводу';

RadioButton3.Caption:= 'расследовать';

RadioButton4.Caption:= 'петь';

RadioButton5.Caption:= 'вспоминать';

Button42.Visible:= false;

Button43.Top:= Button1.Top;

Button43.Left:= Button1.Left;

Button43.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button43Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Круг -- шар; квадрат -- ? ';

RadioButton1.Caption:= 'призма';

RadioButton2.Caption:= 'прямоугольник';

RadioButton3.Caption:= 'тело';

RadioButton4.Caption:= 'геометрия';

RadioButton5.Caption:= 'куб';

Button43.Visible:= false;

Button44.Top:= Button1.Top;

Button44.Left:= Button1.Left;

Button44.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button44Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Действие -- успех; обработка -- ? ';

RadioButton1.Caption:= 'товар';

RadioButton2.Caption:= 'труд';

RadioButton3.Caption:= 'отделка';

RadioButton4.Caption:= 'достижение';

RadioButton5.Caption:= 'цена';

Button44.Visible:= false;

Button45.Top:= Button1.Top;

Button45.Left:= Button1.Left;

Button45.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button45Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Животное -- коза; пища -- ? ';

RadioButton1.Caption:= 'продукт';

RadioButton2.Caption:= 'еда';

RadioButton3.Caption:= 'обед';

RadioButton4.Caption:= 'хлеб';

RadioButton5.Caption:= 'кухня';

Button45.Visible:= false;

Button46.Top:= Button1.Top;

Button46.Left:= Button1.Left;

Button46.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button46Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Голод -- худоба; труд -- ? ';

RadioButton1.Caption:= 'усилие';

RadioButton2.Caption:= 'усталость';

RadioButton3.Caption:= 'энтузиазм';

RadioButton4.Caption:= 'плата';

RadioButton5.Caption:= 'отдых';

Button46.Visible:= false;

Button47.Top:= Button1.Top;

Button47.Left:= Button1.Left;

Button47.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button47Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Луна -- Земля; Земля -- ? ';

RadioButton1.Caption:= 'Марс';

RadioButton2.Caption:= 'звезда';

RadioButton3.Caption:= 'Солнце';

RadioButton4.Caption:= 'планета';

RadioButton5.Caption:= 'воздух';

Button47.Visible:= false;

Button48.Top:= Button1.Top;

Button48.Left:= Button1.Left;

Button48.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button48Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Ножницы -- резать; орнамент -- ? ';

RadioButton1.Caption:= 'вышивать';

RadioButton2.Caption:= 'украшать';

RadioButton3.Caption:= 'создавать';

RadioButton4.Caption:= 'рисовать';

RadioButton5.Caption:= 'выпиливать';

Button48.Visible:= false;

Button49.Top:= Button1.Top;

Button49.Left:= Button1.Left;

Button49.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button49Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Автомобиль -- мотор; яхта -- ? ';

RadioButton1.Caption:= 'борт';

RadioButton2.Caption:= 'киль';

RadioButton3.Caption:= 'корма';

RadioButton4.Caption:= 'парус';

RadioButton5.Caption:= 'мачта';

Button49.Visible:= false;

Button50.Top:= Button1.Top;

Button50.Left:= Button1.Left;

Button50.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button50Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Роман -- пролог; опера -- ?. ';

RadioButton1.Caption:= 'афиша';

RadioButton2.Caption:= 'программа';

RadioButton3.Caption:= 'либретто';

RadioButton4.Caption:= 'увертюра';

RadioButton5.Caption:= 'ария';

Button50.Visible:= false;

Button51.Top:= Button1.Top;

Button51.Left:= Button1.Left;

Button51.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button51Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Ель -- дуб; стол -- ? ';

RadioButton1.Caption:= 'мебель';

RadioButton2.Caption:= 'шкаф';

RadioButton3.Caption:= 'скатерть';

RadioButton4.Caption:= 'гардероб';

RadioButton5.Caption:= 'гарнитур';

Button51.Visible:= false;

Button52.Top:= Button1.Top;

Button52.Left:= Button1.Left;

Button52.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button52Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Язык -- горький; глаз -- ? ';

RadioButton1.Caption:= 'зрение';

RadioButton2.Caption:= 'красный';

RadioButton3.Caption:= 'очки';

RadioButton4.Caption:= 'свет';

RadioButton5.Caption:= 'зоркий';

Button52.Visible:= false;

Button53.Top:= Button1.Top;

Button53.Left:= Button1.Left;

Button53.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button53Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Пища -- соль; лекция -- ? ';

RadioButton1.Caption:= 'скука';

RadioButton2.Caption:= 'конспект';

RadioButton3.Caption:= 'юмор';

RadioButton4.Caption:= 'беседа';

RadioButton5.Caption:= 'язык';

Button53.Visible:= false;

Button54.Top:= Button1.Top;

Button54.Left:= Button1.Left;

Button54.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button54Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Год -- весна; жизнь -- ? ';

RadioButton1.Caption:= 'радость';

RadioButton2.Caption:= 'старость';

RadioButton3.Caption:= 'рождение';

RadioButton4.Caption:= 'юность';

RadioButton5.Caption:= 'учеба';

Button54.Visible:= false;

Button55.Top:= Button1.Top;

Button55.Left:= Button1.Left;

Button55.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button55Click(Sender: TObject);

begin

if RadioButton5.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Решение -- боль; превышение скорости -- ? ';

RadioButton1.Caption:= 'расстояние';

RadioButton2.Caption:= 'протокол';

RadioButton3.Caption:= 'арест';

RadioButton4.Caption:= 'авария';

RadioButton5.Caption:= 'сопротивление воздуха';

Button55.Visible:= false;

Button56.Top:= Button1.Top;

Button56.Left:= Button1.Left;

Button56.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button56Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Наука -- математика; издание -- ? ';

RadioButton1.Caption:= 'типография';

RadioButton2.Caption:= 'рассказ';

RadioButton3.Caption:= 'журнал';

RadioButton4.Caption:= 'газета «Вести»';

RadioButton5.Caption:= 'редакция';

Button56.Visible:= false;

Button57.Top:= Button1.Top;

Button57.Left:= Button1.Left;

Button57.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button57Click(Sender: TObject);

begin

if RadioButton3.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Горы -- перевал; река -- ? ';

RadioButton1.Caption:= 'лодка';

RadioButton2.Caption:= 'мост';

RadioButton3.Caption:= 'брод';

RadioButton4.Caption:= 'паром';

RadioButton5.Caption:= 'берег';

Button57.Visible:= false;

Button58.Top:= Button1.Top;

Button58.Left:= Button1.Left;

Button58.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button58Click(Sender: TObject);

begin

if RadioButton2.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Кожа -- осязание; глаз -- ? ';

RadioButton1.Caption:= 'освещение';

RadioButton2.Caption:= 'зрение';

RadioButton3.Caption:= 'наблюдение';

RadioButton4.Caption:= 'взгляд';

RadioButton5.Caption:= 'смущение';

Button58.Visible:= false;

Button59.Top:= Button1.Top;

Button59.Left:= Button1.Left;

Button59.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button59Click(Sender: TObject);

begin

if RadioButton4.Checked= true then

ball:= ball+1

else

ball:= ball;

Label1.Caption:='Грусть -- настроение; гнев -- ? ';

RadioButton1.Caption:= 'печаль';

RadioButton2.Caption:= 'ярость';

RadioButton3.Caption:= 'страх';

RadioButton4.Caption:= 'аффект';

RadioButton5.Caption:= 'прощение';

Button59.Visible:= false;

Button60.Top:= Button1.Top;

Button60.Left:= Button1.Left;

Button60.Visible:= true;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

end;

procedure TForm2.Button60Click(Sender: TObject);

begin

if RadioButton1.Checked= true then

ball:= ball+2

else

ball:= ball;

num:= num+1;

Label3.Caption:= IntToStr(num);

Label2.Caption:= IntToStr(ball);

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

if (ball <= 15) and (ball>= 1)

then ocen:= 1;

if (ball <= 16) and (ball>= 30)

then ocen:= 2;

if (ball <= 45) and (ball>= 31)

then ocen:= 3;

if ball < 45

then ocen:= 4;

Label4.Caption:= IntToStr(ocen);

Form3.Visible:= true;

Form2.Visible:= false;

end;

procedure TForm2.FormShow(Sender: TObject);

begin

Timer1.Enabled:= true;

Timer1.Interval:=1000;

ball:= 0;

num:=1;

sec:=0;

sec1:=0;

Label2.Caption:= '';

Label3.Caption:= IntToStr(num);

Label4.Caption:= '';

Label6.Caption:= '';

Label5.Caption:= 'Вопрос номер: ' + IntToStr(num);

Label7.Caption:= '';

Label8.Caption:='';

Button60.Visible:= false;

Button1.Visible:= true;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

inc(sec); //Sec увеличиваем на 1

inc(sec1);

Label6.Caption:=IntToStr(sec);

min:= Trunc(sec/60);

Label7.Caption:= IntToStr(min);

if sec1 >= 60 then sec1:= 0;

Label8.Caption:= IntTostr(sec1);

end;

end.

Unit3:

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Bevel1: TBevel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label7Click(Sender: TObject);

procedure Label8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form2.Close;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

//Form3.Position:= poDeskTopCenter;

Label1.Caption:= 'Количество баллов: ' + Form2.Label2.Caption;

Label2.Caption:= 'Ваша оценка: ' + Form2.Label4.Caption;

Label3.Caption:= 'Тест прошел студент: ' + #13 + Form1.Edit1.Text + ' ' + Form1.Edit2.Text;

Label4.Caption:= 'Время прохождения: ' + Form2.Label7.Caption + 'мин.' + ' ' + Form2.Label8.Caption + 'сек.'

end;

procedure TForm3.Label5Click(Sender: TObject);

begin

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

end;

procedure TForm3.Label6Click(Sender: TObject);

begin

Label6.Caption:= 'Эти результаты свидетельствуют о «математической одаренности». Выбор профессии должен быть связан с естественно-техническими науками .';

end;

procedure TForm3.Label7Click(Sender: TObject);

begin

Label7.Caption:= 'У вас преобладает вербальный интеллект, ориентация на общественные науки и изучение иностранных языков. Мышление является вербальным.';

end;

procedure TForm3.Label8Click(Sender: TObject);

begin

Label8.Caption:= 'Ваши результаты являются хорошим основанием не только для естественно-технической, но и общенаучной одаренности.';

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

hide;

Form1.show;

end;

end.

тест ключ интеллект аналогия

2. Описание теста

Субтест 1 - дополнение предложений

Инструкция.

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

Образец:

1. Кролик больше всего похож на...

а) кошку; б) белку; в) зайца; г) лису; д) ежа. Если вы нашли правильный ответ, то в листе ответов ставится следующее: 1в, означающее, что «Кролик больше всего похож на зайца».

Стимульный материал. Раздел 1. Задания 1-20

1. У дерева всегда есть...

а) листья; б) плоды; в) почки; г) корни; д) тень.

2. Комментарий -- это...

а) закон; б) лекция; в) объяснение; г) следствие; д) намек.

3. Противоположностью предательства является...

а) любовь; б) тунеядство; в) хитрость; г) трусость; д) преданность.

4. Женщины ... бывают выше мужчин.

а) всегда; б) обычно; в) часто; г) никогда не; д) иногда.

5. Обед не может состояться без...

а) стола; б) сервиза; в) пищи; г) воды; д) голода.

6. Занятием, противоположным отдыху, является...

а) труд; б) забота; в) усталость; г) прогулка; д) тренировка.

7. Для торговли необходимо иметь...

а) магазин; б) деньги; в) прилавок; г) товар; д) весы.

8. Когда спор кончается взаимной уступкой, это называется...

а) конвенцией; б) компромиссом; в) развязкой; г) сговором; д) примирением.

9. Человека, который плохо относится к новшествам, называют...

а) анархистом; 6) либералом; в) демократом; г) радикалом; д) консерватором.

10. Сыновья ... превосходят отцов по жизненному опыту.

а) никогда не; б) часто; в) редко; г) обычно; д) всегда.

11. При одинаковом весе больше всего белков содержит...

а) мясо; б) яйца; в) жир; г) рыба; д) хлеб.

12. Соотношение выигрышей и проигрышей в лотерее дает возможность определить...

а) число участников; б) прибыль; в) цену одного билета; г) количество билетов; д) вероятность выигрыша.

13. Тетя ... бывает старше племянницы.

а) всегда; б) редко; в) почти всегда; г) никогда не; д) обязательно.

14. Утверждение, что все люди честны...

а) ложно; 6) хитро; в) абсурдно; г) верно; д) не доказано.

15. Рост шестилетнего ребенка равен примерно ... см.

а)160; б)60; в)140; г)110; д) 50.

16. Длина спички... см.

а) 4; 6) 3; в) 2,5; г) 6; д) 5.

17. Не вполне доказанное утверждение называют...

а) двусмысленным; б) парадоксальным; в) гипотетичным; г) путанным; д) очевидным.

18. Севернее всех названных городов расположен...

а) Новосибирск; б) Мурманск; в) Красноярск; г) Иркутск; д) Хабаровск.

19. Предложение не существует без...

а) глагола; б) подлежащего; в) обращения; г) точки; д) слова.

20. Расстояние между Москвой и Новосибирском составляет примерно... км.

а) 3000; б) 1000; в) 7000; г) 4800; д) 2100.

Субтест 2 - исключение слова:

В этом разделе вам предлагаются ряды, содержащие по 5 слов, из всех пяти слов четыре могут быть объединены в одну группу по общему смыслу, подходящему для всех этих четырех слов. Пятое, лишнее по смыслу слово и должно быть вашим ответом на задание, которое иначе может быть названо так: «Найдите лишнее слово, не подходящее по смыслу к четырем другим из пяти названных». Это лишнее слово обозначено соответствующей буквой, которую необходимо проставить рядом с номером задания.

Образец:

1. а) стол; 6) стул; в) голубь; г) диван; д) шкаф.

Ответ 1в, т. к. «голубь» не относится к предметам мебели, а смысл объединения слов именно таков. Слово «голубь» является лишним по смыслу в ряду названных слов.

Стимульный материал. Раздел 2. Задания 21-40.

21. а) писать; б) рубить; в) шить; г) читать; д) кровать.

22. а) узкий; б) угловатый; в) короткий; г) высокий; д) широкий.

23. а) велосипед; б) мотоцикл; в) поезд; т) трамвай; д) автобус.

24. а) запад; б) курс; в) направление; г) путешествие; д) север.

25. а) видеть; б) говорить; в) осязать; г) нюхать; д) слышать.

26. а) прилечь; б) приподняться; в) присесть; г) прислониться; д) привстать.

27. а) круг; б) эллипс; в) стрела; г) дуга; д) кривая.

28. а) добрый; б) верный; в) отзывчивый; г) трусливый; д) честный.

29. а) разделять; б) освобождать; в) связывать; г) резать; д) отличать.

30. а) граница; б) мост; в) общество; г) расстояние; д) супружество.

31. а) занавес; б) щит; в) невод; г) фильтр; д) стена.

32. а) матрос; б) плотник; в) шофер; г) велосипедист; д) парикмахер.

33. а) кларнет; 6) контрабас; в) гитара; г) скрипка; д) арфа.

34. а) отражение; 6) эхо; в) деятельность; г) отзвук; д) подражание.

35. а) ученье; б) планирование; в) тренировка; г) отчет; д) рекламирование.

36. а) зависть; б) скупость; в) обжорство; г) скаредность; д) жадность.

37. а) разум; б) вывод; в) решение; г) начинание; д) договор.

38. а) тонкий; 6) худой; в) узкий; г) дородный; д) короткий.

39. а) горлышко; б) пробка; в) ножка; г) спинка; д) ручка.

40. а) туманный; б) морозный; в) ветреный; г) хмурый; д) дождливый.

Субтест 3 - аналогии:

В разделе 3 даны такие задания, в которых не хватает одного слова во второй паре слов. Первая пара слов -- полная, состоящая из двух взаимосвязанных по смыслу слов; нужно понять смысл этой взаимосвязи, чтобы в соответствии с ним выбрать недостающее во второй паре слово из пяти слов, приводимых ниже.

Образец:

1. Лес -- дерево; луг--?

а) куст; б) пастбище; в) трава; г) сено; д) тропинка.

Ответ 1 в, т. к. взаимное отношение леса и деревьев имеет такой же смысл, как взаимное отношение луга и травы.

Стимульный материал. Раздел 3. Задания 41-60.

41. Школа -- директор; кружок -- ?

а) председатель; 6) член; в) руководитель; г) заведующий; д) посетитель.

42. Часы -- время; термометр -- ?

а) прибор; б) измерение; в) ртуть; г) тепло; д) температура.

43. Искать -- находить; размышлять -- ?

а) запоминать; б) приходить к выводу; в) расследовать; г) петь; д) вспоминать.

44. Круг -- шар; квадрат -- ?