Курсовая работа: Программа психологического диагностирования на выявление типа темперамента

close(f1);

t:=t+1;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form2.visible:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin if fileexists('input.dat')=true then begin

RadioGroup1.Visible:=true;

RadioButton1.Visible:=true;

RadioButton2.Visible:=true;

sozdanie('input.dat');

if en=5 then

panel1.Visible:=true;

begin

min:=ms1[1];

min1:=1;

form1.Label1.Caption:=InttoStr(min);

for m:=2 to 4 do

if ms1[m]>min then

begin

min1:=m;

min:=ms1[g];

end;