Реферат Розробка навчальної програми з російської мови

"justify"> srichedit1.Lines.Add ( ) ;;:=false; .Left:=xStart; .Top:=yStart ;;:=false ;; TFormLess16Lvl3.sPanel11MouseDown (Sender: TObject ;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if (EnabledMove11=true) thenButton=mbLeftbegin:=x;:=y;:=sPanel11.Left;:=sPanel11.top;:=true;

(Sender as TsPanel) .BringToFront;:=false ;;; TFormLess16Lvl3.sPanel11MouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer);

if dragTsPanel (Sender) do:=Left + x-x0;:=Top + y-y0; TFormLess16Lvl3.sPanel11MouseUp (Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Overlay: Trect;

beginInterSectRect (Overlay, sPanel11.BoundsRect, sGroupBox3.BoundsRect) then.Left:=sGroupBox3.Left + 16; .Top:=sGroupBox3.Top + 32; (ResultZad1gb3 lt;=2) and (EnabledMove11 =true) thengb3:=ResultZad1gb3 + 1 ;; (ResultZad1gb3 gt;=1) then.Visible:=true; gb3:=0;

srichedit1.Lines.Add ( Слова чоловічого роду вказані вірно: круп'є );

srichedit1.Lines.Add ( ) ;;:=false; .Left:=xStart; .Top:=yStart ;;:=false ;; TFormLess16Lvl3.sButton12Click (Sender: TObject ); ResultZad1: integer;:=0; .lines.add ( 3 ВПРАВА 2 ЗАВДАННЯ ) ;. lines.add ( );

begin (scombobox9.Text= Іменник ) then:=ResultZad1 + 1; .lines.add ( Частина мови слова імені вказана вірно: + laquo;Существительноеraquo;);.lines.add(laquo;raquo;);(scombobox9.Text=laquo;raquo;) then:=ResultZad1 + 0; .lines.add ( Частина мови слова імені вказана не вірно. + Правильна відповідь: Іменник ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( Частина мови слова імені вказана не вірно. + Правильна відповідь: Іменник raquo ;) ;. lines.add ( Ви написали: + scombobox9.Text);

srichedit1.lines.add(laquo;raquo;);;(scombobox17.Text=laquo;Существительноеraquo;) then:=ResultZad1 + 1; .lines.add ( Частина мови слова Псевдонімом вказана вірно: + laquo;Существительноеraquo;);.lines.add(laquo;raquo;);(scombobox17.Text=laquo;raquo;) then:=ResultZad1 + 0; .lines.add ( Частина мови слова Псевдонімом вказана не вірно. + Правильна відповідь: Іменник ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( Частина мови слова Псевдонімом вказана не вірно. + Правильна відповідь: Іменник raquo ;) ;. lines.add ( Ви написали: + scombobox17.Text);

srichedit1.lines.add(laquo;raquo;);;(scombobox10.Text=laquo;Нарицательноеraquo;) then:=ResultZad1 + 1; .lines.add ( Ім'я слова Імені указанo вірно: + laquo;Нарицательноеraquo;);.lines.add(laquo;raquo;);(scombobox10.Text=laquo;raquo;) then:=ResultZad1 + 0; .lines.add ( Ім'я слова Імені указанo не вірно. + Правильна відповідь: прозивним ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( Ім'я слова Імені указанo не вірно. + Правильна відповідь: прозивним ) ;. lines.add ( Ви написали: + scombobox10.Text);

srichedit1.lines.add(laquo;raquo;);;(scombobox18.Text=laquo;Нарицательноеraquo;) then:=ResultZad1 + 1; .lines.add ( Ім'я слова Псевдонімом указанo вірно: + laquo;Нарицательноеraquo;);.lines.add(laquo;raquo;);(scombobox18.Text=laquo;raquo;) then:=ResultZad1 + 0; .lines.add ( Ім'я слова Псевдонімом указанo не вірно. + Правильна відповідь: прозивним ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( Ім'я слова Псевдонімом указанo не вірно. + Правильна відповідь: прозивним ) ;. lines.add ( Ви написали: + scombobox18.Text);

srichedit1.lines.add(laquo;raquo;);;(scombobox11.Text=laquo;Неодушевленноеraquo;) then:=ResultZad1 + 1; .lines.add ( Предмет слова Імені вказаний правильно: + неживі ) ;. lines.add ( ); (scombobox11.Text= ) then:=ResultZad1 + 0; .lines.add ( Предмет слова Імені вказано не вірно. + Правильна відповідь: неживі ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( Предмет слова Імені вказано не вірно. + Правильна відповідь: неживі ) ;. lines.add ( Ви написали: + scombobox11.Text);

srichedit1.lines.add(laquo;raquo;);;(scombobox19.Text=laquo;Неодушевленноеraquo;) then:=ResultZad1 + 1; .lines.add ( Предмет слова Псевдонімом вказаний правильно: + laquo;Неодушевленноеraquo;);.lines.add(laquo;raquo;);(scombobox19.Text=laquo;raquo;) then:=ResultZad1 + 0; .lines.add ( Предмет слова Псевдонімом вказано не вірно. + Правильна відповідь: неживі ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( ...