Напишем сегодня тест уверенность в себе.

Будем писать на делфи приведу сразу исходник
сохраните его как unit1.pas

unit Unit1;


interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Bevel1: TBevel;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
info: TStatusBar;
Memo1: TMemo;
procedure RadioButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RadioButton4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
count,next_ : integer; list : TStringList;
implementation

{$R *.dfm}


procedure outResult;
var low,mid,hi: set of byte;
begin
hi:=[0..25];
mid:=[26..45];
low:=[46..128];

with form1 do begin
memo1.Clear;


if count in hi then memo1.lines.LoadFromFile('hi.txt'); info.Panels[0].Text:='';
if count in mid then memo1.lines.LoadFromFile('mid.txt'); info.Panels[0].Text:='';
if count in low then memo1.lines.LoadFromFile('low.txt'); info.Panels[0].Text:='';
end;
end;

procedure loadans;
begin
list:=TStringList.Create;
list.LoadFromFile('ans.txt');
end;

procedure nextline;
begin
form1.memo1.Clear;
form1.memo1.lines.Add(list.Strings[next_]);
form1.info.Panels[0].Text:='Вопрос: '+inttostr(next_);
//debug

end;



procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if next_=31 then begin next_:=0; outResult; exit; end else count:=count+4; inc(next_); nextline; sleep(250); radiobutton1.Checked:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
count:=0; next_:=0; loadans; nextline;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if next_=31 then begin next_:=0; outResult; exit; end else count:=count+3; inc(next_); nextline; sleep(150); radiobutton2.Checked:=false;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if next_=31 then begin next_:=0; outResult; exit; end else count:=count+2; inc(next_); nextline; sleep(150); radiobutton3.Checked:=false;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
list.Free;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
if next_=31 then begin next_:=0; outResult; exit; end else inc(next_); nextline; sleep(150); radiobutton4.Checked:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if next_=31 then begin next_:=0; outResult; exit; end
else
inc(next_); nextline;

radiobutton4.Checked:=false;
radiobutton3.Checked:=false;
radiobutton2.Checked:=false;
radiobutton1.Checked:=false;

end;


end.

Далее приведу содержаемое файла ans.txt
--------------------------------------------------------
Мне хочется, чтобы мои друзья подбадривали меня.
Постоянно чувствую свою ответственность в учебе.
Я беспокоюсь о своем будущем.
Многие меня ненавидят.
Я обладаю меньшей инициативой, чем другие.
Я беспокоюсь за свое психическое состояние.
Я боюсь выглядеть глупым.
Внешний вид других куда лучше, чем мой.
Я боюсь выступать с речью перед незнакомыми людьми.
Я часто допускаю ошибки.
Как жаль, что я не умею говорить с людьми как следует.
Как жаль, что мне не хватает уверенности в себе.
Мне бы хотелось, чтобы мои действия одобрялись другими чаще.
Я слишком скромен.
Моя жизнь бесполезна.
Многие неправильного мнения обо мне.
Мне не с кем поделиться своими мыслями.
Люди ждут от меня очень многого.
Люди не особенно интересуются моими достижениями.
Я слегка смущаюсь.
Я чувствую, что многие люди не понимают меня.
Я не чувствую себя в безопасности.
Я часто волнуюсь понапрасну.
Я чувствую себя неловко, когда вхожу в комнату, где уже сидят люди.
Я чувствую себя скованным.
Я чувствую, что люди говорят обо мне за моей спиной.
Я уверен, что люди почти все принимают легче, чем я.
Мне кажется, что со мной должна случиться какая-нибудь неприятность.
Меня волнует, как люди относятся ко мне.
Как жаль, что я необщителен.
В спорах я высказываюсь только тогда, когда уверен в своей правоте.
Я думаю о том, чего ждут от меня одноклассники.

сохраняем его в папку проекта.
теперь сохраняем вот это:
0-25 баллов свидетельствуют о высоком уровне самооценки, при котором человек, как правило, уверен в себе, правильно реагирует на замечания других и редко сомневается в необходимости своих действий.
в файл hi.txt

46-128 баллов – уровень самооценки низкий, человек болезненно переносит критические замечания, не уверен в себе.
в файл low.txt

и последний
26-45 баллов – показатель среднего уровня самооценки, человек редко страдает комплексом неполноценности, лишь время от времени старается подстроиться под мнение других людей.
в mid.txt

Осталось создать проект и сделать вот такую примитивную форму

Кто не знает объясню попозже как все это сделать.
А сейчас скачайте делфи любую версию хоть 6ую или последнюю не важно, лично я использую 7ую версию.
Далее файл->New Application
Размешаете на форме все необходимые компоненты, далее F9 и программа готова.
В следующей статье опишу все для тех кто никогда не сталкивался с программированием, и хочет начать все объясню пошагово. Ожидайте продолжения или начала урока.