Внедрение компьютерной техники в сферу образования

    sEdit33: TsEdit;

    sEdit34: TsEdit;

    procedure sTabSheet1Show(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure sBitBtn1Click(Sender: TObject);

    procedure sBitBtn2Click(Sender: TObject);

    procedure sBitBtn3Click(Sender: TObject);

    procedure sSpeedButton2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormLess6Lvl1: TFormLess6Lvl1;

implementation

{$R *.dfm}

procedure TFormLess6Lvl1.FormCreate(Sender: TObject);

begin

AudioLess6Lvl1Exc1.FileName:='music/Less6_Lvl1_Exc1.mp3';

AudioLess6Lvl1Exc1.Open;

AudioLess6Lvl1Exc2.FileName:='music/Less6_Lvl1_Exc2.mp3';

AudioLess6Lvl1Exc2.Open;

AudioLess6Lvl1Exc3.FileName:='music/Less6_Lvl1_Exc3.mp3';

AudioLess6Lvl1Exc3.Open;

end;

procedure TFormLess6Lvl1.sTabSheet1Show(Sender: TObject);

begin

sRichEdit1TeorLess6Lvl1Exc1.Lines.LoadFromFile('TeorText/Ter_1_1_1.rtf');

end;

procedure TFormLess6Lvl1.sBitBtn1Click(Sender: TObject);

var ResultLess6Lvl1Exc1:integer;

begin

ResultLess6Lvl1Exc1:=0;

Ot4etLess6Lvl1Exc1.Lines.Add('Óïðàæíåíèå 1');

Ot4etLess6Lvl1Exc1.Lines.Add('');

if (sEdit7Less1Lvl2Exc3.Text = 'âûó÷èòü') and (sEdit11Less1Lvl2Exc3.Text = 'ó÷èòü')

or (sEdit7Less1Lvl2Exc3.Text = 'âçÿòü') and (sEdit11Less1Lvl2Exc3.Text = 'áðàòü')

or (sEdit7Less1Lvl2Exc3.Text = 'ñêàçàòü') and (sEdit11Less1Lvl2Exc3.Text = 'ãîâîðèòü')

or (sEdit7Less1Lvl2Exc3.Text = 'ïðûãíóòü') and (sEdit11Less1Lvl2Exc3.Text = 'ïðûãàòü')

or (sEdit7Less1Lvl2Exc3.Text = 'íàïèñàòü') and (sEdit11Less1Lvl2Exc3.Text = 'ïèñàòü')

or (sEdit7Less1Lvl2Exc3.Text = 'óåõàòü') and (sEdit11Less1Lvl2Exc3.Text = 'åõàòü')

or (sEdit7Less1Lvl2Exc3.Text = 'ñîáðàòü') and (sEdit11Less1Lvl2Exc3.Text = 'ñîáèðàòü')

or (sEdit7Less1Lvl2Exc3.Text = 'ðåøèòü') and (sEdit11Less1Lvl2Exc3.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image1Less1Lvl2Exc3.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit7Less1Lvl2Exc3.Text = '') and (sEdit11Less1Lvl2Exc3.Text = '') then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image1Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end

else

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image1Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end;

if (sEdit8Less1Lvl2Exc3.Text = 'âûó÷èòü') and (sEdit12Less1Lvl2Exc3.Text = 'ó÷èòü')

or (sEdit8Less1Lvl2Exc3.Text = 'âçÿòü') and (sEdit12Less1Lvl2Exc3.Text = 'áðàòü')

or (sEdit8Less1Lvl2Exc3.Text = 'ñêàçàòü') and (sEdit12Less1Lvl2Exc3.Text = 'ãîâîðèòü')

or (sEdit8Less1Lvl2Exc3.Text = 'ïðûãíóòü') and (sEdit12Less1Lvl2Exc3.Text = 'ïðûãàòü')

or (sEdit8Less1Lvl2Exc3.Text = 'íàïèñàòü') and (sEdit12Less1Lvl2Exc3.Text = 'ïèñàòü')

or (sEdit8Less1Lvl2Exc3.Text = 'óåõàòü') and (sEdit12Less1Lvl2Exc3.Text = 'åõàòü')

or (sEdit8Less1Lvl2Exc3.Text = 'ñîáðàòü') and (sEdit12Less1Lvl2Exc3.Text = 'ñîáèðàòü')

or (sEdit8Less1Lvl2Exc3.Text = 'ðåøèòü') and (sEdit12Less1Lvl2Exc3.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image2Less1Lvl2Exc3.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit8Less1Lvl2Exc3.Text = '') and (sEdit12Less1Lvl2Exc3.Text = '')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image2Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end

else

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image2Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end;

if (sEdit9Less1Lvl2Exc3.Text = 'âûó÷èòü') and (sEdit13Less1Lvl2Exc3.Text = 'ó÷èòü')

or (sEdit9Less1Lvl2Exc3.Text = 'âçÿòü') and (sEdit13Less1Lvl2Exc3.Text = 'áðàòü')

or (sEdit9Less1Lvl2Exc3.Text = 'ñêàçàòü') and (sEdit13Less1Lvl2Exc3.Text = 'ãîâîðèòü')

or (sEdit9Less1Lvl2Exc3.Text = 'ïðûãíóòü') and (sEdit13Less1Lvl2Exc3.Text = 'ïðûãàòü')

or (sEdit9Less1Lvl2Exc3.Text = 'íàïèñàòü') and (sEdit13Less1Lvl2Exc3.Text = 'ïèñàòü')

or (sEdit9Less1Lvl2Exc3.Text = 'óåõàòü') and (sEdit13Less1Lvl2Exc3.Text = 'åõàòü')

or (sEdit9Less1Lvl2Exc3.Text = 'ñîáðàòü') and (sEdit13Less1Lvl2Exc3.Text = 'ñîáèðàòü')

or (sEdit9Less1Lvl2Exc3.Text = 'ðåøèòü') and (sEdit13Less1Lvl2Exc3.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image3Less1Lvl2Exc3.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit9Less1Lvl2Exc3.Text = '') and (sEdit13Less1Lvl2Exc3.Text = '') then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image3Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end

else

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image3Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end;

if (sEdit10Less1Lvl2Exc3.Text = 'âûó÷èòü') and (sEdit14Less1Lvl2Exc3.Text = 'ó÷èòü')

or (sEdit10Less1Lvl2Exc3.Text = 'âçÿòü') and (sEdit14Less1Lvl2Exc3.Text = 'áðàòü')

or (sEdit10Less1Lvl2Exc3.Text = 'ñêàçàòü') and (sEdit14Less1Lvl2Exc3.Text = 'ãîâîðèòü')

or (sEdit10Less1Lvl2Exc3.Text = 'ïðûãíóòü') and (sEdit14Less1Lvl2Exc3.Text = 'ïðûãàòü')

or (sEdit10Less1Lvl2Exc3.Text = 'íàïèñàòü') and (sEdit14Less1Lvl2Exc3.Text = 'ïèñàòü')

or (sEdit10Less1Lvl2Exc3.Text = 'óåõàòü') and (sEdit14Less1Lvl2Exc3.Text = 'åõàòü')

or (sEdit10Less1Lvl2Exc3.Text = 'ñîáðàòü') and (sEdit14Less1Lvl2Exc3.Text = 'ñîáèðàòü')

or (sEdit10Less1Lvl2Exc3.Text = 'ðåøèòü') and (sEdit14Less1Lvl2Exc3.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image4Less1Lvl2Exc3.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit10Less1Lvl2Exc3.Text = '') and (sEdit14Less1Lvl2Exc3.Text = '') then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image4Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end

else

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image4Less1Lvl2Exc3.Picture.LoadFromFile('images\error.bmp');

end;

if (sEdit1.Text = 'âûó÷èòü') and (sEdit5.Text = 'ó÷èòü')

or (sEdit1.Text = 'âçÿòü') and (sEdit5.Text = 'áðàòü')

or (sEdit1.Text = 'ñêàçàòü') and (sEdit5.Text = 'ãîâîðèòü')

or (sEdit1.Text = 'ïðûãíóòü') and (sEdit5.Text = 'ïðûãàòü')

or (sEdit1.Text = 'íàïèñàòü') and (sEdit5.Text = 'ïèñàòü')

or (sEdit1.Text = 'óåõàòü') and (sEdit5.Text = 'åõàòü')

or (sEdit1.Text = 'ñîáðàòü') and (sEdit5.Text = 'ñîáèðàòü')

or (sEdit1.Text = 'ðåøèòü') and (sEdit5.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image5.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit1.Text = '') and (sEdit5.Text = '') then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image5.Picture.LoadFromFile('images\error.bmp');

end

else

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image5.Picture.LoadFromFile('images\error.bmp');

end;

if (sEdit2.Text = 'âûó÷èòü') and (sEdit6.Text = 'ó÷èòü')

or (sEdit2.Text = 'âçÿòü') and (sEdit6.Text = 'áðàòü')

or (sEdit2.Text = 'ñêàçàòü') and (sEdit6.Text = 'ãîâîðèòü')

or (sEdit2.Text = 'ïðûãíóòü') and (sEdit6.Text = 'ïðûãàòü')

or (sEdit2.Text = 'íàïèñàòü') and (sEdit6.Text = 'ïèñàòü')

or (sEdit2.Text = 'óåõàòü') and (sEdit6.Text = 'åõàòü')

or (sEdit2.Text = 'ñîáðàòü') and (sEdit6.Text = 'ñîáèðàòü')

or (sEdit2.Text = 'ðåøèòü') and (sEdit6.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image6.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit2.Text = '') and (sEdit6.Text = '') then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image6.Picture.LoadFromFile('images\error.bmp');

end

else

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image6.Picture.LoadFromFile('images\error.bmp');

end;

if (sEdit3.Text = 'âûó÷èòü') and (sEdit7.Text = 'ó÷èòü')

or (sEdit3.Text = 'âçÿòü') and (sEdit7.Text = 'áðàòü')

or (sEdit3.Text = 'ñêàçàòü') and (sEdit7.Text = 'ãîâîðèòü')

or (sEdit3.Text = 'ïðûãíóòü') and (sEdit7.Text = 'ïðûãàòü')

or (sEdit3.Text = 'íàïèñàòü') and (sEdit7.Text = 'ïèñàòü')

or (sEdit3.Text = 'óåõàòü') and (sEdit7.Text = 'åõàòü')

or (sEdit3.Text = 'ñîáðàòü') and (sEdit7.Text = 'ñîáèðàòü')

or (sEdit3.Text = 'ðåøèòü') and (sEdit7.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image7.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit3.Text = '') and (sEdit7.Text = '') then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image7.Picture.LoadFromFile('images\error.bmp');

end

else

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 0;

Image7.Picture.LoadFromFile('images\error.bmp');

end;

if (sEdit4.Text = 'âûó÷èòü') and (sEdit8.Text = 'ó÷èòü')

or (sEdit4.Text = 'âçÿòü') and (sEdit8.Text = 'áðàòü')

or (sEdit4.Text = 'ñêàçàòü') and (sEdit8.Text = 'ãîâîðèòü')

or (sEdit4.Text = 'ïðûãíóòü') and (sEdit8.Text = 'ïðûãàòü')

or (sEdit4.Text = 'íàïèñàòü') and (sEdit8.Text = 'ïèñàòü')

or (sEdit4.Text = 'óåõàòü') and (sEdit8.Text = 'åõàòü')

or (sEdit4.Text = 'ñîáðàòü') and (sEdit8.Text = 'ñîáèðàòü')

or (sEdit4.Text = 'ðåøèòü') and (sEdit8.Text = 'ðåøàòü')

then

begin

ResultLess6Lvl1Exc1:= ResultLess6Lvl1Exc1 + 1;

Image8.Picture.LoadFromFile('images\Done.bmp');

end

else

if (sEdit4.Text = '') and (sEdit8.Text = '') then

<span class="dash041e_0431_044b_0447_043d_044b_0439__Char" style=" font-size: 10pt; text-decoratio