Разработка обучающей программы по русскому языку
Описание предметной области. Компоненты и палитра компонентов. Выбор архитектуры приложения. Структурные и функциональные схемы. Описание разрабатываемых процедур и функций, таблица идентификаторов. Выбор стратегии тестирования и разработка тестов.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 18.06.2014 |
| Размер файла | 8,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Shift: TShiftState; X, Y: Integer);
procedure sPanel3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure sPanel3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure sPanel4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure sPanel6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure sPanel7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure sPanel7MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure sPanel8MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure sPanel8MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure sPanel8MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel9MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure sPanel9MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel10MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure sPanel10MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure sPanel5MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel11MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sPanel11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure sPanel11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure sButton12Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormLess16Lvl3: TFormLess16Lvl3;
ResultZad1:integer;
implementation
{$R *.dfm}
var
x0, y0: integer;
drag: boolean = false;
EnabledMove1:boolean = true;
EnabledMove2:boolean = true;
EnabledMove3:boolean = true;
EnabledMove4:boolean = true;
EnabledMove5:boolean = true;
EnabledMove6:boolean = true;
EnabledMove7:boolean = true;
EnabledMove8:boolean = true;
EnabledMove9:boolean = true;
EnabledMove10:boolean = true;
EnabledMove11:boolean = true;
EnabledMove12:boolean = true;
EnabledMove13:boolean = true;
EnabledMove14:boolean = true;
EnabledMove15:boolean = true;
EnabledMove16:boolean = true;
EnabledMove17:boolean = true;
EnabledMove18:boolean = true;
EnabledMove19:boolean = true;
EnabledMove20:boolean = true;
EnabledMove21:boolean = true;
EnabledMove22:boolean = true;
EnabledMove23:boolean = true;
EnabledMove24:boolean = true;
EnabledMove25:boolean = true;
EnabledMove26:boolean = true;
EnabledMove27:boolean = true;
EnabledMove28:boolean = true;
EnabledMove29:boolean = true;
EnabledMove30:boolean = true;
EnabledMove31:boolean = true;
EnabledMove32:boolean = true;
EnabledMove33:boolean = true;
EnabledMove34:boolean = true;
EnabledMove35:boolean = true;
EnabledMove36:boolean = true;
EnabledMove37:boolean = true;
EnabledMove38:boolean = true;
EnabledMove39:boolean = true;
EnabledMove40:boolean = true;
EnabledMove41:boolean = true;
EnabledMove42:boolean = true;
EnabledMove43:boolean = true;
EnabledMove44:boolean = true;
EnabledMove45:boolean = true;
EnabledMove46:boolean = true;
EnabledMove47:boolean = true;
EnabledMove48:boolean = true;
EnabledMove49:boolean = true;
EnabledMove50:boolean = true;
EnabledMove51:boolean = true;
EnabledMove52:boolean = true;
EnabledMove53:boolean = true;
EnabledMove54:boolean = true;
EnabledMove55:boolean = true;
EnabledMove56:boolean = true;
EnabledMove57:boolean = true;
EnabledMove58:boolean = true;
EnabledMove59:boolean = true;
EnabledMove60:boolean = true;
EnabledMove61:boolean = true;
EnabledMove62:boolean = true;
EnabledMove63:boolean = true;
EnabledMove64:boolean = true;
EnabledMove65:boolean = true;
EnabledMove66:boolean = true;
EnabledMove67:boolean = true;
ResultZad1gb1:integer = 0;
ResultZad1gb2:integer = 0;
ResultZad1gb3:integer = 0;
ResultZad1gb4:integer = 0;
ResultZad1gb5:integer = 0;
ResultZad1gb6:integer = 0;
ResultZad1gb7:integer = 0;
ResultZad1gb8:integer = 0;
ResultZad1gb9:integer = 0;
ResultZad1gb10:integer = 0;
ResultZad1gb11:integer = 0;
ResultZad1gb12:integer = 0;
xStart, yStart: integer;
procedure TFormLess16Lvl3.sButton1Click(Sender: TObject);
var ResultZad1:integer;
begin
ResultZad1:=0;
srichedit1.lines.add('1 УПРАЖНЕНИЕ');
srichedit1.lines.add('');
begin
if(sEdit1.Text='пути') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('1 слово и падеж указан верно: ' + 'пути');
srichedit1.lines.add('');
end
else
if(sEdit1.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('1 слово и падеж не верно. '+ 'Правильный ответ: пути');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('1 слово и падеж не верно. ' + 'Правильный ответ: пути');
srichedit1.lines.add('Вы написали: ' + sEdit1.Text);
srichedit1.lines.add('');
end;
if(sEdit2.Text='путям') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('2 слово и падеж указан верно: ' + 'путям');
srichedit1.lines.add('');
end
else
if(sEdit2.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('2 слово и падеж не верно. '+ 'Правильный ответ: путям');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('2 слово и падеж не верно. ' + 'Правильный ответ: путям');
srichedit1.lines.add('Вы написали: ' + sEdit2.Text);
srichedit1.lines.add('');
end;
if(sEdit3.Text='племени') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('3 слово и падеж указан верно: ' + 'племени');
srichedit1.lines.add('');
end
else
if(sEdit3.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('3 слово и падеж не верно. '+ 'Правильный ответ: племени');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('3 слово и падеж не верно. ' + 'Правильный ответ: племени');
srichedit1.lines.add('Вы написали: ' + sEdit3.Text);
srichedit1.lines.add('');
end;
if(sEdit4.Text='семени') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('4 слово и падеж указан верно: ' + 'семени');
srichedit1.lines.add('');
end
else
if(sEdit4.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('4 слово и падеж не верно. '+ 'Правильный ответ: семени');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('4 слово и падеж не верно. ' + 'Правильный ответ: семени');
srichedit1.lines.add('Вы написали: ' + sEdit4.Text);
srichedit1.lines.add('');
end;
if(sEdit5.Text='времени') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('5 слово и падеж указан верно: ' + 'времени');
srichedit1.lines.add('');
end
else
if(sEdit5.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('5 слово и падеж не верно. '+ 'Правильный ответ: времени');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('5 слово и падеж не верно. ' + 'Правильный ответ: времени');
srichedit1.lines.add('Вы написали: ' + sEdit5.Text);
srichedit1.lines.add('');
end;
if(sEdit6.Text='семени') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('6 слово и падеж указан верно: ' + 'семени');
srichedit1.lines.add('');
end
else
if(sEdit6.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('6 слово и падеж не верно. '+ 'Правильный ответ: семени');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('6 слово и падеж не верно. ' + 'Правильный ответ: семени');
srichedit1.lines.add('Вы написали: ' + sEdit6.Text);
srichedit1.lines.add('');
end;
if(sEdit7.Text='семени') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('7 слово и падеж указан верно: ' + 'семени');
srichedit1.lines.add('');
end
else
if(sEdit7.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('7 слово и падеж не верно. '+ 'Правильный ответ: семени');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('7 слово и падеж не верно. ' + 'Правильный ответ: семени');
srichedit1.lines.add('Вы написали: ' + sEdit7.Text);
srichedit1.lines.add('');
end;
if(sEdit8.Text='Времени') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('8 слово и падеж указан верно: ' + 'Времени');
srichedit1.lines.add('');
end
else
if(sEdit8.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('8 слово и падеж не верно. '+ 'Правильный ответ: Времени');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('8 слово и падеж не верно. ' + 'Правильный ответ: Времени');
srichedit1.lines.add('Вы написали: ' + sEdit8.Text);
srichedit1.lines.add('');
end;
if(scombobox1.Text='Д.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('1 падеж указан верно: ' + 'Д.п.');
srichedit1.lines.add('');
end
else
if(scombobox1.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('1 падеж не верно. '+ 'Правильный ответ: Д.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('1 падеж не верно. ' + 'Правильный ответ: Д.п.');
srichedit1.lines.add('Вы написали: ' + scombobox1.Text);
srichedit1.lines.add('');
end;
if(scombobox2.Text='Д.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('2 падеж указан верно: ' + 'Д.п.');
srichedit1.lines.add('');
end
else
if(scombobox2.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('2 падеж не верно. '+ 'Правильный ответ: Д.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('2 падеж не верно. ' + 'Правильный ответ: Д.п.');
srichedit1.lines.add('Вы написали: ' + scombobox2.Text);
srichedit1.lines.add('');
end;
if(scombobox3.Text='Р.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('3 падеж указан верно: ' + 'Р.п.');
srichedit1.lines.add('');
end
else
if(scombobox3.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('3 падеж не верно. '+ 'Правильный ответ: Р.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('3 падеж не верно. ' + 'Правильный ответ: Р.п.');
srichedit1.lines.add('Вы написали: ' + scombobox3.Text);
srichedit1.lines.add('');
end;
if(scombobox4.Text='В.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('4 падеж указан верно: ' + 'В.п.');
srichedit1.lines.add('');
end
else
if(scombobox4.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('4 падеж не верно. '+ 'Правильный ответ: В.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('4 падеж не верно. ' + 'Правильный ответ: В.п.');
srichedit1.lines.add('Вы написали: ' + scombobox4.Text);
srichedit1.lines.add('');
end;
if(scombobox5.Text='Р.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('5 падеж указан верно: ' + 'Р.п.');
srichedit1.lines.add('');
end
else
if(scombobox5.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('5 падеж не верно. '+ 'Правильный ответ: Р.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('5 падеж не верно. ' + 'Правильный ответ: Р.п.');
srichedit1.lines.add('Вы написали: ' + scombobox5.Text);
srichedit1.lines.add('');
end;
if(scombobox6.Text='В.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('6 падеж указан верно: ' + 'В.п.');
srichedit1.lines.add('');
end
else
if(scombobox6.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('6 падеж не верно. '+ 'Правильный ответ: В.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('6 падеж не верно. ' + 'Правильный ответ: В.п.');
srichedit1.lines.add('Вы написали: ' + scombobox6.Text);
srichedit1.lines.add('');
end;
if(scombobox7.Text='Д.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('7 падеж указан верно: ' + 'Д.п.');
srichedit1.lines.add('');
end
else
if(scombobox7.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('7 падеж не верно. '+ 'Правильный ответ: Д.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('7 падеж не верно. ' + 'Правильный ответ: Д.п.');
srichedit1.lines.add('Вы написали: ' + scombobox7.Text);
srichedit1.lines.add('');
end;
if(scombobox8.Text='Р.п.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('8 падеж указан верно: ' + 'Р.п.');
srichedit1.lines.add('');
end
else
if(scombobox8.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('8 падеж не верно. '+ 'Правильный ответ: Р.п.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('8 падеж не верно. ' + 'Правильный ответ: Р.п.');
srichedit1.lines.add('Вы написали: ' + scombobox8.Text);
srichedit1.lines.add('');
end;
sLabel14.Caption:= 'Ваш балл: ' + IntToStr(ResultZad1) + ' из ' + '16';
srichedit1.Lines.Add('Общее колличество баллов за задание первого упражнения: ' + IntToStr(ResultZad1) + ' из ' + '16');
srichedit1.Lines.Add('');
sButton1.Enabled:=false;
end;
end;
procedure TFormLess16Lvl3.sButton2Click(Sender: TObject);
var ResultZad1:integer;
begin
ResultZad1:=0;
if(sEdit9.Text='Жюри')or
(sEdit9.Text='жюри')or
(sEdit9.Text='Жюри.')or
(sEdit9.Text='жюри.')then
begin
ResultZad1:= ResultZad1+1;
image1.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('1 слово верно: ' + 'Жюри');
srichedit1.lines.add('');
end
else
if(sEdit9.Text='') then
begin
ResultZad1:= ResultZad1+0;
image1.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('1 слово не верно. '+ 'Правильный ответ: Жюри');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image1.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('1 слово не верно. ' + 'Правильный ответ: Жюри');
srichedit1.lines.add('Вы написали: ' + sEdit9.Text);
srichedit1.lines.add('');
end;
sbutton2.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton3Click(Sender: TObject);
begin
if(sEdit10.Text='Авеню')or
(sEdit10.Text='авеню')or
(sEdit10.Text='Авеню.')or
(sEdit10.Text='авеню.')then
begin
ResultZad1:= ResultZad1+1;
image2.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('2 слово верно: ' + 'Авеню');
srichedit1.lines.add('');
end
else
if(sEdit10.Text='') then
begin
ResultZad1:= ResultZad1+0;
image2.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('2 слово не верно. '+ 'Правильный ответ: Авеню');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image2.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('2 слово не верно. ' + 'Правильный ответ: Авеню');
srichedit1.lines.add('Вы написали: ' + sEdit10.Text);
srichedit1.lines.add('');
end;
sbutton3.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton4Click(Sender: TObject);
begin
if(sEdit11.Text='Кашне')or
(sEdit11.Text='кашне')or
(sEdit11.Text='Кашне.')or
(sEdit11.Text='кашне.')then
begin
ResultZad1:= ResultZad1+1;
image3.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('3 слово верно: ' + 'Кашне');
srichedit1.lines.add('');
end
else
if(sEdit11.Text='') then
begin
ResultZad1:= ResultZad1+0;
image3.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('3 слово не верно. '+ 'Правильный ответ: Кашне');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image3.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('3 слово не верно. ' + 'Правильный ответ: Кашне');
srichedit1.lines.add('Вы написали: ' + sEdit11.Text);
srichedit1.lines.add('');
end;
sbutton4.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton5Click(Sender: TObject);
begin
if(sEdit12.Text='Кредо')or
(sEdit12.Text='кредо')or
(sEdit12.Text='Кредо.')or
(sEdit12.Text='кредо.')then
begin
ResultZad1:= ResultZad1+1;
image4.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('4 слово верно: ' + 'Кредо');
srichedit1.lines.add('');
end
else
if(sEdit12.Text='') then
begin
ResultZad1:= ResultZad1+0;
image4.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('4 слово не верно. '+ 'Правильный ответ: Кредо');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image4.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('4 слово не верно. ' + 'Правильный ответ: Кредо');
srichedit1.lines.add('Вы написали: ' + sEdit12.Text);
srichedit1.lines.add('');
end;
sbutton5.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton6Click(Sender: TObject);
begin
if(sEdit13.Text='Колье')or
(sEdit13.Text='колье')or
(sEdit13.Text='Колье.')or
(sEdit13.Text='колье.')then
begin
ResultZad1:= ResultZad1+1;
image5.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('5 слово верно: ' + 'Колье');
srichedit1.lines.add('');
end
else
if(sEdit13.Text='') then
begin
ResultZad1:= ResultZad1+0;
image5.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('5 слово не верно. '+ 'Правильный ответ: Колье');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image5.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('5 слово не верно. ' + 'Правильный ответ: Колье');
srichedit1.lines.add('Вы написали: ' + sEdit13.Text);
srichedit1.lines.add('');
end;
sbutton6.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton7Click(Sender: TObject);
begin
if(sEdit14.Text='Пари')or
(sEdit14.Text='пари')or
(sEdit14.Text='Пари.')or
(sEdit14.Text='пари.')then
begin
ResultZad1:= ResultZad1+1;
image6.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('6 слово верно: ' + 'Пари');
srichedit1.lines.add('');
end
else
if(sEdit14.Text='') then
begin
ResultZad1:= ResultZad1+0;
image6.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('6 слово не верно. '+ 'Правильный ответ: Пари');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image6.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('6 слово не верно. ' + 'Правильный ответ: Пари');
srichedit1.lines.add('Вы написали: ' + sEdit14.Text);
srichedit1.lines.add('');
end;
sbutton7.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton8Click(Sender: TObject);
begin
if(sEdit15.Text='Крупье')or
(sEdit15.Text='крупье')or
(sEdit15.Text='Крупье.')or
(sEdit15.Text='крупье.')then
begin
ResultZad1:= ResultZad1+1;
image7.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('7 слово верно: ' + 'Крупье');
srichedit1.lines.add('');
end
else
if(sEdit15.Text='') then
begin
ResultZad1:= ResultZad1+0;
image7.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('7 слово не верно. '+ 'Правильный ответ: Крупье');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image7.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('7 слово не верно. ' + 'Правильный ответ: Крупье');
srichedit1.lines.add('Вы написали: ' + sEdit15.Text);
srichedit1.lines.add('');
end;
sbutton8.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton9Click(Sender: TObject);
begin
if(sEdit16.Text='Табу')or
(sEdit16.Text='табу')or
(sEdit16.Text='табу.')or
(sEdit16.Text='Табу.')then
begin
ResultZad1:= ResultZad1+1;
image8.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('8 слово верно: ' + 'Табу');
srichedit1.lines.add('');
end
else
if(sEdit16.Text='') then
begin
ResultZad1:= ResultZad1+0;
image8.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('8 слово не верно. '+ 'Правильный ответ: Табу');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image8.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('8 слово не верно. ' + 'Правильный ответ: Табу');
srichedit1.lines.add('Вы написали: ' + sEdit16.Text);
srichedit1.lines.add('');
end;
sbutton9.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton10Click(Sender: TObject);
begin
if(sEdit17.Text='Интервью')or
(sEdit17.Text='интервью')or
(sEdit17.Text='интервью.')or
(sEdit17.Text='Интервью.')then
begin
ResultZad1:= ResultZad1+1;
image9.Picture.LoadFromFile('картинки/Done.bmp');
srichedit1.lines.add('9 слово верно: ' + 'Интервью');
srichedit1.lines.add('');
end
else
if(sEdit17.Text='') then
begin
ResultZad1:= ResultZad1+0;
image9.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('9 слово не верно. '+ 'Правильный ответ: Интервью');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
image9.Picture.LoadFromFile('картинки/error.bmp');
srichedit1.lines.add('9 слово не верно. ' + 'Правильный ответ: Интервью');
srichedit1.lines.add('Вы написали: ' + sEdit17.Text);
srichedit1.lines.add('');
end;
sbutton10.Enabled:=false;
end;
procedure TFormLess16Lvl3.sButton11Click(Sender: TObject);
var ResultZad1:integer;
begin
ResultZad1:=0;
srichedit1.lines.add('3 УПРАЖНЕНИЕ');
srichedit1.lines.add('');
begin
if(sEdit18.Text='я') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('1 слово верно: ' + 'принято');
srichedit1.lines.add('');
end
else
if(sEdit18.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('1 слово не верно. '+ 'Правильный ответ: принято');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('1 слово не верно. ' + 'Правильный ответ: принято');
srichedit1.lines.add('Вы написали: ' + sEdit18.Text);
srichedit1.lines.add('');
end;
if(sEdit19.Text='е') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('2 слово верно: ' + 'претендентами');
srichedit1.lines.add('');
end
else
if(sEdit19.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('2 слово не верно. '+ 'Правильный ответ: претендентами');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('2 слово не верно. ' + 'Правильный ответ: претендентами');
srichedit1.lines.add('Вы написали: ' + sEdit19.Text);
srichedit1.lines.add('');
end;
if(sEdit20.Text='и') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('3 слово верно: ' + 'утрачивает');
srichedit1.lines.add('');
end
else
if(sEdit20.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('3 слово не верно. '+ 'Правильный ответ: утрачивает');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('3 слово не верно. ' + 'Правильный ответ: утрачивает');
srichedit1.lines.add('Вы написали: ' + sEdit20.Text);
srichedit1.lines.add('');
end;
if(sEdit21.Text='е') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('4 слово верно: ' + 'имени');
srichedit1.lines.add('');
end
else
if(sEdit21.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('4 слово не верно. '+ 'Правильный ответ: имени');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('4 слово не верно. ' + 'Правильный ответ: имени');
srichedit1.lines.add('Вы написали: ' + sEdit21.Text);
srichedit1.lines.add('');
end;
if(sEdit22.Text='и') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('5 слово верно: ' + 'жизни');
srichedit1.lines.add('');
end
else
if(sEdit22.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('5 слово не верно. '+ 'Правильный ответ: жизни');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('5 слово не верно. ' + 'Правильный ответ: жизни');
srichedit1.lines.add('Вы написали: ' + sEdit22.Text);
srichedit1.lines.add('');
end;
if(sEdit23.Text='а') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('6 слово верно: ' + 'означает');
srichedit1.lines.add('');
end
else
if(sEdit23.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('6 слово не верно. '+ 'Правильный ответ: означает');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('6 слово не верно. ' + 'Правильный ответ: означает');
srichedit1.lines.add('Вы написали: ' + sEdit23.Text);
srichedit1.lines.add('');
end;
if(sEdit24.Text='т') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('7 слово верно: ' + 'известность');
srichedit1.lines.add('');
end
else
if(sEdit24.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('7 слово не верно. '+ 'Правильный ответ: известность');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('7 слово не верно. ' + 'Правильный ответ: известность');
srichedit1.lines.add('Вы написали: ' + sEdit24.Text);
srichedit1.lines.add('');
end;
sLabel48.Caption:= 'Ваш балл: ' + IntToStr(ResultZad1) + ' из ' + '7';
srichedit1.Lines.Add('Общее колличество баллов за задание третьего упражнения: ' + IntToStr(ResultZad1) + ' из ' + '7');
srichedit1.Lines.Add('');
sButton11.Enabled:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel3MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove3 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel3.Left;
yStart:= sPanel3.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel3MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel3MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel3.BoundsRect, sGroupBox5.BoundsRect) then
begin
sPanel3.Left:= sGroupBox5.Left+16;
sPanel3.Top:= sGroupBox5.Top+32;
if(ResultZad1gb5<=8) and (EnabledMove3=true)then
begin
ResultZad1gb5:= ResultZad1gb5+1;
end;
if(ResultZad1gb5>=7)then
begin
slabel65.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Слова среднего рода указаны верно: жюри, интервью, пари, кашне, табу, кредо, колье');
srichedit1.Lines.Add('');
end;
EnabledMove3:=false;
end
else
begin
sPanel3.Left:= xStart;
sPanel3.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel4MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove4 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel4.Left;
yStart:= sPanel4.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel4MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel4MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel4.BoundsRect, sGroupBox5.BoundsRect) then
begin
sPanel4.Left:= sGroupBox5.Left+16;
sPanel4.Top:= sGroupBox5.Top+64;
if(ResultZad1gb5<=8) and (EnabledMove4=true)then
begin
ResultZad1gb5:= ResultZad1gb5+1;
end;
if(ResultZad1gb5>=7)then
begin
slabel65.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Слова среднего рода указаны верно: жюри, интервью, пари, кашне, табу, кредо, колье');
srichedit1.Lines.Add('');
end;
EnabledMove4:=false;
end
else
begin
sPanel4.Left:= xStart;
sPanel4.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel6MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove6 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel6.Left;
yStart:= sPanel6.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel6MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel6MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel6.BoundsRect, sGroupBox5.BoundsRect) then
begin
sPanel6.Left:= sGroupBox5.Left+16;
sPanel6.Top:= sGroupBox5.Top+96;
if(ResultZad1gb5<=8) and (EnabledMove6=true)then
begin
ResultZad1gb5:= ResultZad1gb5+1;
end;
if(ResultZad1gb5>=7)then
begin
slabel65.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Слова среднего рода указаны верно: жюри, интервью, пари, кашне, табу, кредо, колье');
srichedit1.Lines.Add('');
end;
EnabledMove6:=false;
end
else
begin
sPanel6.Left:= xStart;
sPanel6.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel7MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove7 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel7.Left;
yStart:= sPanel7.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel7MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel7MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel7.BoundsRect, sGroupBox5.BoundsRect) then
begin
sPanel7.Left:= sGroupBox5.Left+16;
sPanel7.Top:= sGroupBox5.Top+128;
if(ResultZad1gb5<=8) and (EnabledMove7=true)then
begin
ResultZad1gb5:= ResultZad1gb5+1;
end;
if(ResultZad1gb5>=7)then
begin
slabel65.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Слова среднего рода указаны верно: жюри, интервью, пари, кашне, табу, кредо, колье');
srichedit1.Lines.Add('');
end;
EnabledMove7:=false;
end
else
begin
sPanel7.Left:= xStart;
sPanel7.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel8MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove8 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel8.Left;
yStart:= sPanel8.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel8MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel8MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel8.BoundsRect, sGroupBox5.BoundsRect) then
begin
sPanel8.Left:= sGroupBox5.Left+16;
sPanel8.Top:= sGroupBox5.Top+160;
if(ResultZad1gb5<=8) and (EnabledMove8=true)then
begin
ResultZad1gb5:= ResultZad1gb5+1;
end;
if(ResultZad1gb5>=7)then
begin
slabel65.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Слова среднего рода указаны верно: жюри, интервью, пари, кашне, табу, кредо, колье');
srichedit1.Lines.Add('');
end;
EnabledMove8:=false;
end
else
begin
sPanel8.Left:= xStart;
sPanel8.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel9MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove9 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel9.Left;
yStart:= sPanel9.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel9MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel9MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel9.BoundsRect, sGroupBox5.BoundsRect) then
begin
sPanel9.Left:= sGroupBox5.Left+16;
sPanel9.Top:= sGroupBox5.Top+192;
if(ResultZad1gb5<=8) and (EnabledMove9=true)then
begin
ResultZad1gb5:= ResultZad1gb5+1;
end;
if(ResultZad1gb5>=7)then
begin
slabel65.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Слова среднего рода указаны верно: жюри, интервью, пари, кашне, табу, кредо, колье');
srichedit1.Lines.Add('');
end;
EnabledMove9:=false;
end
else
begin
sPanel9.Left:= xStart;
sPanel9.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel10MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove10 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel10.Left;
yStart:= sPanel10.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel10MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel10MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel10.BoundsRect, sGroupBox5.BoundsRect) then
begin
sPanel10.Left:= sGroupBox5.Left+16;
sPanel10.Top:= sGroupBox5.Top+224;
if(ResultZad1gb5<=8) and (EnabledMove10=true)then
begin
ResultZad1gb5:= ResultZad1gb5+1;
end;
if(ResultZad1gb5>=7)then
begin
slabel65.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Слова среднего рода указаны верно: жюри, интервью, пари, кашне, табу, кредо, колье');
srichedit1.Lines.Add('');
end;
EnabledMove10:=false;
end
else
begin
sPanel10.Left:= xStart;
sPanel10.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel5MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove5 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel5.Left;
yStart:= sPanel5.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel5MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel5MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel5.BoundsRect, sGroupBox4.BoundsRect) then
begin
sPanel5.Left:= sGroupBox4.Left+16;
sPanel5.Top:= sGroupBox4.Top+32;
if(ResultZad1gb4<=2) and (EnabledMove5=true)then
begin
ResultZad1gb4:= ResultZad1gb4+1;
end;
if(ResultZad1gb4>=1)then
begin
slabel64.Visible:=true;
ResultZad1gb5:=0;
srichedit1.Lines.Add('Cлова женского рода указаны верно: авеню');
srichedit1.Lines.Add('');
end;
EnabledMove5:=false;
end
else
begin
sPanel5.Left:= xStart;
sPanel5.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sPanel11MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if(EnabledMove11 =true)then
begin
if Button=mbLeft
then begin
x0:=x;
y0:=y;
xStart:= sPanel11.Left;
yStart:= sPanel11.top;
drag:=true;
(Sender as TsPanel).BringToFront;
end
else
drag:=false;
end;
end;
procedure TFormLess16Lvl3.sPanel11MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if drag
then
with TsPanel(Sender) do
begin
Left:=Left+x-x0;
Top:=Top+y-y0
end
end;
procedure TFormLess16Lvl3.sPanel11MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Overlay:Trect;
begin
if InterSectRect(Overlay, sPanel11.BoundsRect, sGroupBox3.BoundsRect) then
begin
sPanel11.Left:= sGroupBox3.Left+16;
sPanel11.Top:= sGroupBox3.Top+32;
if(ResultZad1gb3<=2) and (EnabledMove11=true)then
begin
ResultZad1gb3:= ResultZad1gb3+1;
end;
if(ResultZad1gb3>=1)then
begin
slabel63.Visible:=true;
ResultZad1gb3:=0;
srichedit1.Lines.Add('Слова мужского рода указаны верно: крупье');
srichedit1.Lines.Add('');
end;
EnabledMove11:=false;
end
else
begin
sPanel11.Left:= xStart;
sPanel11.Top:= yStart;
end;
drag:=false;
end;
procedure TFormLess16Lvl3.sButton12Click(Sender: TObject);
var ResultZad1:integer;
begin
ResultZad1:=0;
srichedit1.lines.add('3 УПРАЖНЕНИЕ 2 ЗАДАНИЕ');
srichedit1.lines.add('');
begin
if(scombobox9.Text='Существительное') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Часть речи слова имени указана верно: ' + 'Существительное');
srichedit1.lines.add('');
end
else
if(scombobox9.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Часть речи слова имени указана не верно. '+ 'Правильный ответ: Существительное');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Часть речи слова имени указана не верно. ' + 'Правильный ответ: Существительное');
srichedit1.lines.add('Вы написали: ' + scombobox9.Text);
srichedit1.lines.add('');
end;
if(scombobox17.Text='Существительное') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Часть речи слова Псевдонимом указана верно: ' + 'Существительное');
srichedit1.lines.add('');
end
else
if(scombobox17.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Часть речи слова Псевдонимом указана не верно. '+ 'Правильный ответ: Существительное');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Часть речи слова Псевдонимом указана не верно. ' + 'Правильный ответ: Существительное');
srichedit1.lines.add('Вы написали: ' + scombobox17.Text);
srichedit1.lines.add('');
end;
if(scombobox10.Text='Нарицательное') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Имя слова Имени указанo верно: ' + 'Нарицательное');
srichedit1.lines.add('');
end
else
if(scombobox10.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Имя слова Имени указанo не верно. '+ 'Правильный ответ: Нарицательное');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Имя слова Имени указанo не верно. ' + 'Правильный ответ: Нарицательное');
srichedit1.lines.add('Вы написали: ' + scombobox10.Text);
srichedit1.lines.add('');
end;
if(scombobox18.Text='Нарицательное') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Имя слова Псевдонимом указанo верно: ' + 'Нарицательное');
srichedit1.lines.add('');
end
else
if(scombobox18.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Имя слова Псевдонимом указанo не верно. '+ 'Правильный ответ: Нарицательное');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Имя слова Псевдонимом указанo не верно. ' + 'Правильный ответ: Нарицательное');
srichedit1.lines.add('Вы написали: ' + scombobox18.Text);
srichedit1.lines.add('');
end;
if(scombobox11.Text='Неодушевленное') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Предмет слова Имени указан верно: ' + 'Неодушевленное');
srichedit1.lines.add('');
end
else
if(scombobox11.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Предмет слова Имени указан не верно. '+ 'Правильный ответ: Неодушевленное');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Предмет слова Имени указан не верно. ' + 'Правильный ответ: Неодушевленное');
srichedit1.lines.add('Вы написали: ' + scombobox11.Text);
srichedit1.lines.add('');
end;
if(scombobox19.Text='Неодушевленное') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Предмет слова Псевдонимом указан верно: ' + 'Неодушевленное');
srichedit1.lines.add('');
end
else
if(scombobox19.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Предмет слова Псевдонимом указан не верно. '+ 'Правильный ответ: Неодушевленное');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Предмет слова Псевдонимом указан не верно. ' + 'Правильный ответ: Неодушевленное');
srichedit1.lines.add('Вы написали: ' + scombobox19.Text);
srichedit1.lines.add('');
end;
if(scombobox12.Text='Средний') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Род слова Имени указан верно: ' + 'Средний');
srichedit1.lines.add('');
end
else
if(scombobox12.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Род слова Имени указан не верно. '+ 'Правильный ответ: Средний');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Род слова Имени указан не верно. ' + 'Правильный ответ: Средний');
srichedit1.lines.add('Вы написали: ' + scombobox12.Text);
srichedit1.lines.add('');
end;
if(scombobox20.Text='Мужской') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Род слова Псевдонимом указан верно: ' + 'Мужской');
srichedit1.lines.add('');
end
else
if(scombobox20.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Род слова Псевдонимом указан не верно. '+ 'Правильный ответ: Мужской');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Род слова Псевдонимом указан не верно. ' + 'Правильный ответ: Мужской');
srichedit1.lines.add('Вы написали: ' + scombobox20.Text);
srichedit1.lines.add('');
end;
if(scombobox13.Text='Разносклоняемое') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Склонение слова Имени указано верно: ' + 'Разносклоняемое');
srichedit1.lines.add('');
end
else
if(scombobox13.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Склонение слова Имени указано не верно. '+ 'Правильный ответ: Разносклоняемое');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Склонение слова Имени указано не верно. ' + 'Правильный ответ: Разносклоняемое');
srichedit1.lines.add('Вы написали: ' + scombobox13.Text);
srichedit1.lines.add('');
end;
if(scombobox21.Text='2') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Склонение слова Псевдонимом указано верно: ' + '2');
srichedit1.lines.add('');
end
else
if(scombobox21.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Склонение слова Псевдонимом указано не верно. '+ 'Правильный ответ: 2');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Склонение слова Псевдонимом указано не верно. ' + 'Правильный ответ: 2');
srichedit1.lines.add('Вы написали: ' + scombobox21.Text);
srichedit1.lines.add('');
end;
if(scombobox14.Text='Дательный') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Падеж слова Имени указан верно: ' + 'Дательный');
srichedit1.lines.add('');
end
else
if(scombobox14.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Падеж слова Имени указан не верно. '+ 'Правильный ответ: Дательный');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Падеж слова Имени указан не верно. ' + 'Правильный ответ: Дательный');
srichedit1.lines.add('Вы написали: ' + scombobox14.Text);
srichedit1.lines.add('');
end;
if(scombobox22.Text='Творительный') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Падеж слова Псевдонимом указан верно: ' + 'Творительный');
srichedit1.lines.add('');
end
else
if(scombobox22.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Падеж слова Псевдонимом указан не верно. '+ 'Правильный ответ: Творительный');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Падеж слова Псевдонимом указан не верно. ' + 'Правильный ответ: Творительный');
srichedit1.lines.add('Вы написали: ' + scombobox22.Text);
srichedit1.lines.add('');
end;
if(scombobox15.Text='Ед.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Число слова Имени указано верно: ' + 'Ед.');
srichedit1.lines.add('');
end
else
if(scombobox15.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Число слова Имени указано не верно. '+ 'Правильный ответ: Ед.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Число слова Имени указано не верно. ' + 'Правильный ответ: Ед.');
srichedit1.lines.add('Вы написали: ' + scombobox15.Text);
srichedit1.lines.add('');
end;
if(scombobox23.Text='Ед.') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Число слова Псевдонимом указано верно: ' + 'Ед.');
srichedit1.lines.add('');
end
else
if(scombobox23.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Число слова Псевдонимом указано не верно. '+ 'Правильный ответ: Ед.');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Число слова Псевдонимом указано не верно. ' + 'Правильный ответ: Ед.');
srichedit1.lines.add('Вы написали: ' + scombobox23.Text);
srichedit1.lines.add('');
end;
if(scombobox16.Text='Обстоятельство') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Синтаксическая роль слова Имени указана верно: ' + 'Обстоятельство');
srichedit1.lines.add('');
end
else
if(scombobox16.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Синтаксическая роль слова Имени указана не верно. '+ 'Правильный ответ: Обстоятельство');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Синтаксическая роль слова Имени указана не верно. ' + 'Правильный ответ: Обстоятельство');
srichedit1.lines.add('Вы написали: ' + scombobox16.Text);
srichedit1.lines.add('');
end;
if(scombobox24.Text='Дополнение') then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Синтаксическая роль слова Псевдонимом указана верно: ' + 'Дополнение');
srichedit1.lines.add('');
end
else
if(scombobox24.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Синтаксическая роль слова Псевдонимом указана не верно. '+ 'Правильный ответ: Дополнение');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Синтаксическая роль слова Псевдонимом указана не верно. ' + 'Правильный ответ: Дополнение');
srichedit1.lines.add('Вы написали: ' + scombobox24.Text);
srichedit1.lines.add('');
end;
if(sedit25.Text='Имя') or
(sedit25.Text='имя')then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Начальная форма слова Имени указана верно: ' + 'Имя');
srichedit1.lines.add('');
end
else
if(sedit25.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Начальная форма слова Имени указана не верно. '+ 'Правильный ответ: Имя');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Начальная форма слова Имени указана не верно. ' + 'Правильный ответ: Имя');
srichedit1.lines.add('Вы написали: ' + sedit25.Text);
srichedit1.lines.add('');
end;
if(sedit12.Text='Псевдоним') or
(sedit12.Text='псевдоним')then
begin
ResultZad1:= ResultZad1+1;
srichedit1.lines.add('Начальная форма слова Псевдоним указана верно: ' + 'Псевдоним');
srichedit1.lines.add('');
end
else
if(sedit12.Text='') then
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Начальная форма слова Псевдоним указана не верно. '+ 'Правильный ответ: Псевдоним');
srichedit1.lines.add('Вы ничего не написали');
srichedit1.lines.add('');
end
else
begin
ResultZad1:= ResultZad1+0;
srichedit1.lines.add('Начальная форма слова Псевдоним указана не верно. ' + 'Правильный ответ: Псевдоним');
srichedit1.lines.add('Вы написали: ' + sedit12.Text);
srichedit1.lines.add('');
end;
sLabel27.Caption:= 'Ваш балл: ' + IntToStr(ResultZad1) + ' из ' + '18';
srichedit1.Lines.Add('Общее колличество баллов за второе задание третьего упражнения: ' + IntToStr(ResultZad1) + '
из ' + '18');
srichedit1.Lines.Add('');
sButton12.Enabled:=false;
end;
end;
procedure TFormLess16Lvl3.btn1Click(Sender: TObject);
var
f:string;
begin
srichedit1.PlainText:=false;
ssaveDialog1.Filter := 'RTF|*.rtf|Word file|*.doc';
if ssavedialog1.Execute then
f:=ssavedialog1.FileName;
srichedit1.Lines.SaveToFile(f);
end;
end.
ПРИЛОЖЕНИЕ Г
КОНТРОЛЬНЫЙ ПРИМЕР
Открываем директорию с программой и в зависимости от того, какая операционная система у вас установлена, открываем соответствующую папку.
Рисунок Г.1 - Основная директория
Запускаем в любом порядке расположенные в директории файлы.
Рисунок Г.2 - Файлы необходимые для стабильной работы приложения
Возвращаемся в основную директорию открываем папку «Программа» и дважды кликаем левой кнопкой мыши по значку «Project1».
Рисунок Г.3 - Окно - заставка
При открытии программы появляется окно - заставка, которое через несколько перетекает в Главное окно программы (смотреть рисунок Г.4)
Рисунок Г.4 - Главное окно программы
В данном окне выбираем последовательность уроков, например, с 13 по 18 уроки.
Рисунок Г.5 - Окно уроков
В данной вкладке выбираем урок, перемещаясь по вкладкам. Затем выбираем уровень сложности.
Рисунок Г.6 - Вкладка «Теоретический материал»
В данной вкладке ознакамливаемся с предоставленным материалом. Далее выполняем упражнения.
Рисунок Г.7 - Упражнения с редактируемыми полями
В упражнениях данного рода вписываем в поля слова или окончания. После того, как вписали все слова или окончания нажимаем кнопку «Проверить» и программа выдает нам результат.
Рисунок Г.8 - Упражнения на перетаскивание
В упражнениях данного типа предоставлены слова, а также поля, в которые их надо перетащить. После того как перетащим все слова на свои места появляется сообщение «Правильно!».
Рисунок Г.9 - Упражнения на переключатели
В упражнениях данного рода выбираем один из предоставленных вариантов, после чего нажимаем кнопку «Проверить».
Подобные документы
Анализ предметной области "Конкурс поэтов" на основе объектно-ориентированного подхода. Разработка оконного приложения и описание информационной модели предметной области. Описание разработанных процедур С++ и результатов тестирования приложения.
курсовая работа [355,9 K], добавлен 18.06.2013Описание предметной области. Характеристика программных средств. Описание компонентов, интерфейс программы. Описание процедур и функций. Вызов и загрузка программы. Испытание методом белого и черного ящика на ошибки кода программного приложения.
курсовая работа [2,2 M], добавлен 26.04.2015Анализ и постановка задач дисциплины "Компьютерная графика". Разработка структуры, функциональной схемы и программной документации. Руководство программисту и оператору. Выбор и обоснование языка программирования. Описание процедур, функций, оценок.
дипломная работа [3,6 M], добавлен 16.11.2011Постановка задачи и математическое описание ее решения. Назначение программного обеспечения. Описание принятых идентификаторов. Выбор языка программирования и написание программы на входном языке. Методика отладки программы и проведение ее тестирования.
курсовая работа [96,1 K], добавлен 25.06.2013Разработка программы-приложения для создания композиции кривых второго порядка в полярных координатах. Описание используемых констант, переменных, компонентов, процедур и функций. Источники входной и выходной информации. Требования к программе и системе.
реферат [125,2 K], добавлен 28.05.2014Теоретические основы разработки приложения, реализующего подсвечивание ключевых слов. Описание используемых процедур и функций, структуры программы, интерфейса пользователя. Системные требования для работы приложения, анализ результаты его тестирования.
курсовая работа [1,2 M], добавлен 07.07.2012Разработка программы создания заметок в любом месте компьютера. Выбор технологии, языка и среды разработки приложения. Описание основных алгоритмов работы программного обеспечения. Проектирование пользовательского интерфейса. Выбор стратегии тестирования.
отчет по практике [700,5 K], добавлен 24.11.2014Основные инструменты построения Web-приложения. Язык сценариев PHP. Системный анализ предметной области базы данных. Коды SQL запросов на создание таблиц. Разработка Web-приложения. Описание функциональности модулей. Система управления содержимым статей.
курсовая работа [4,8 M], добавлен 28.04.2014Выбор технологии, языка и среды программирования. Анализ процесса обработки информации и выбор структур данных для ее хранения, разработка основных алгоритмов. Проектирование интерфейса пользователя. Выбор стратегии тестирования и разработка тестов.
курсовая работа [332,3 K], добавлен 09.12.2014Многоуровневые архитектуры клиент–сервер. Диаграммы классов, реализующих уровни презентации, бизнес–логики и базы данных приложения. Словесное описание процесса выполнения транзакций. Создание, изменение и удаление хранимых процедур, их выполнение.
курсовая работа [3,4 M], добавлен 23.03.2013
