Заключение
Страница 4

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».

Страницы: 1 2 3 4 5


Нейрофизиологические механизмы элементарной рассудочной деятельности
Первое положение. Большой объём мозга создаёт больше возможностей для упорядоченности его функций. По сути - это общий принцип системной организации, полагающий, что в системах с большим количеством элементов создаётся больше предпосылок для качественного наращивания организации. В приложении к биологии он был впервые сформулирован физ ...

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

Хаос
Время проведения: 5 мин В словах, которые даны ниже, буквы представлены хаотично, как вздумается. Вам надо прочесть предложения - неразберихи: 1. Аон ылба, акк вецкот, типирыйб демисод и мротев к лемзе. 2. Но лы зеб рыем длымуа ад мынзоор. ...