ExpertPsyhologyПсихологические исследования

writeln(RFile,'--------------------------------');

CloseFile(RFile);

CloseFile(QFile);

Form1.Close;

end;

var

tmpi,code:integer;

tmps,SS,TT:string;

begin

CurTime:=Time;

Timeleft:=round(Frac(BegTime-CurTime)*24*3600)+FULLTIME;

Str(TimeLeft,SS);

Str(Cnt+1,TT);

StatusBar1.SimpleText:='Вопрос № '+TT+'. '+ DeadLine+SS+' секунд';

tmps:=Edit1.Text;

val(Tmps,Tmpi,code);

if Tmpi=CorrectA[Cnt] then CorrectNum:=CorrectNum+1;

Cnt:=Cnt+1;

if (Cnt>N) or (Timeleft<=0) then TheEnd

else begin

Edit1.Text:='';

Readln(QFile,Quest);

Panel1.Caption:=Quest;

Edit1.SetFocus;

end;

end;

end.

Методика “Количественные отношения”

unit Unit2;

interface

uses

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

StdCtrls, Buttons, ComCtrls, ExtCtrls;

type

TForm2 = class(TForm)

Panel1: TPanel;

StatusBar1: TStatusBar;

BitBtn1: TBitBtn;

Memo1: TMemo;

RadioGroup1: TRadioGroup;

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

procedure FormActivate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

N = 18;

NS='18';

FULLTIME = 300;

DeadLine= 'У вас осталось ';

var

Form2: TForm2;

BegTime,CurTime: TDateTime;

TimeLeft,Cnt: integer;

QFile:TextFile;

AFile:File of integer;

CorrectA:Array[1 N] of integer;

CorrectNum:integer;

Quest:string;

implementation

uses Unit1;

{$R *.DFM}

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

begin

CloseFile(QFile);

Form1.Close;

end;

procedure TForm2.FormActivate(Sender: TObject);

Var

SS,TT,First:string;

i,w :integer;

begin

BegTime:=Time;

AssignFile(QFile,'Test3.txt');

reset(QFile);

Readln(QFile,First);

Panel1.Caption:=First;

AssignFile(AFile,'Answers3.dat');

reset(AFile);

for i:=1 to N do

begin

read(AFile,w);

CorrectA[i]:=w;

end;

CloseFile(AFile);

Cnt:=1;

CorrectNum:=0;

CurTime:=Time;

Timeleft:=round(Frac(CurTime-BegTime)*24*3600)+FULLTIME;

Str(TimeLeft,SS);

Str(Cnt,TT);

StatusBar1.SimpleText:='Вопрос № '+TT+'. '+ DeadLine+SS+' секунд';

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

procedure TheEnd;

var

SSS,Mark:String;

RFile: TextFile;

begin

Str(CorrectNum,SSS);

If CorrectNum>9 then Mark:='Результат в пределах нормы взрослого человека'

else Mark:='Результат ниже нормы взрослого человека';

ShowMessage('Тестирование окончено.'+CHR(13)+'Правильных ответов - '+SSS);

AssignFile(RFile,'results3.txt');

if FileExists('results3.txt') then Append(RFile)

else Rewrite(RFile);

writeln(RFile,'Тестирyемый '+CName);

writeln(RFile,'Правильных ответов:'+SSS+' из '+NS);

writeln(RFile,Mark);

writeln(RFile,'--------------------------------');

CloseFile(RFile);

CloseFile(QFile);

Form1.Close;

end;

var

tmpi:integer;

SS,TT:string;

begin

CurTime:=Time;

Timeleft:=round(Frac(BegTime-CurTime)*24*3600)+FULLTIME;

Str(TimeLeft,SS);

Str(Cnt+1,TT);

StatusBar1.SimpleText:='Вопрос № '+TT+'. '+ DeadLine+SS+' секунд';

Tmpi:= RadioGroup1.ItemIndex;

if Tmpi=CorrectA[Cnt] then CorrectNum:=CorrectNum+1;

Cnt:=Cnt+1;

if (Cnt>N) or (Timeleft<=0) then TheEnd

else begin

Readln(QFile,Quest);

Panel1.Caption:=Quest;

end;

end;

end.

Приложение

Разработка инструкции пользователю и оператору

Инструкция пользователю и оператору

· Запустите программу тестирования (файл Test1.exe).

· В появившемся окошке введите ваше: фамилия и имя.

· Если хотите остановить тестирование, нажмите выход. Если продолжаете тестирование, нажмите «Ok».

· Программа выведет вам инструкцию по работе с тестом. Внимательно прочитайте ее.

· Прочитав инструкцию, нажмите кнопку «Ok».

· Если хотите остановить тестирование, нажмите кнопку закрыть.

· Перед вами появилась форма, на которой расположены четыре окна.

· В верхнем окне выводятся варианты ответа на вопрос, задаваемый в среднем окне. Введите номер ответа, который вы считаете правильным в нижнем окне. Нажмите кнопку «Ok».

· Программа тестирования выведет вам следующий вопрос.

· Отвечайте на вопросы, как было указано выше.

· В нижней строке формы, т.н. «статусной строке» указан номер вопроса.

· После окончания тестирования, программа выдаст вам ваш результат. Кроме того, этот результат, вместе с оценкой, будет записан в файл results1.txt.

· Запустите программу тестирования (файл Test1.exe).

· В появившемся окошке введите ваше: фамилия и имя.

· Если хотите остановить тестирование, нажмите выход. Если продолжаете тестирование, нажмите «Ok».

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

Занятие 10-е. Тема: "Умение хоронить свои потери".
Цель — ознакомить группу со стадиями процесса отреагирования на утрату и обсудить на примерах из жизни присутствующих продуктивные и непродуктивные стороны этого процесса. Мы все сталкиваемся с различными утратами в разных областях жизни. Оплакивание утрат, процесс отреагирования на печальное событие может быть как здоровым, так и незд ...

Теоретический анализ литературы по проблеме самоутверждения и его реализации в межличностных особенностях и поведении человека. Самоутверждение как предмет научного исследования.
Проблема самоутверждения как предмет научного исследования возникла относительно недавно лишь в XIX-XX вв. Это вполне объяснимо, т. к. само самоутверждение является очень сложным образованием. На специально-научном уровне эта проблема была поставлена и изучена австрийским психиатром и психологом А. Адлером (1870-1937) [3, 35], но предп ...