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

dd ( );:=ResultZad1 + 0; .lines.add ( 3 відмінок не вірно. + Правильна відповідь: Р.п. );

srichedit1.lines.add ( Ви написали: + scombobox3.Text) ;. lines.add ( ) ;; (scombobox4.Text= В.П. ) then:=ResultZad1 + 1; .lines.add ( 4 відмінок вказаний правильно: + В.п. ) ;. lines.add ( ); (scombobox4.Text = ) then:=ResultZad1 + 0; .lines.add ( 4 відмінок не вірно. + Правильна відповідь: В.п. ) ;. lines.add ( Ви нічого не написано );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( 4 відмінок не вірно. + Правильна відповідь: В.п. );

srichedit1.lines.add ( Ви написали: + scombobox4.Text) ;. lines.add ( ) ;; (scombobox5.Text= Р.П. ) then:=ResultZad1 + 1; .lines.add ( 5 відмінок вказаний правильно: + Р.п. ) ;. lines.add ( ); (scombobox5.Text = ) then:=ResultZad1 + 0; .lines.add ( 5 відмінок не вірно. + Правильна відповідь: Р.п. ) ;. lines.add ( Ви нічого не написано );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( 5 відмінок не вірно. + Правильна відповідь: Р.п. );

srichedit1.lines.add ( Ви написали: + scombobox5.Text) ;. lines.add ( ) ;; (scombobox6.Text= В.П. ) then:=ResultZad1 + 1; .lines.add ( 6 відмінок вказаний правильно: + В.п. ) ;. lines.add ( ); (scombobox6.Text = ) then:=ResultZad1 + 0; .lines.add ( 6 відмінок не вірно. + Правильна відповідь: В.п. ) ;. lines.add ( Ви нічого не написано );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( 6 відмінок не вірно. + Правильна відповідь: В.п. );

srichedit1.lines.add ( Ви написали: + scombobox6.Text) ;. lines.add ( ) ;; (scombobox7.Text= Д.П. ) then:=ResultZad1 + 1; .lines.add ( 7 відмінок вказаний правильно: + Д.п. ) ;. lines.add ( ); (scombobox7.Text = ) then:=ResultZad1 + 0; .lines.add ( 7 відмінок не вірно. + Правильна відповідь: Д.п. ) ;. lines.add ( Ви нічого не написано );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( 7 відмінок не вірно. + Правильна відповідь: Д.п. );

srichedit1.lines.add ( Ви написали: + scombobox7.Text) ;. lines.add ( ) ;; (scombobox8.Text= Р.П. ) then:=ResultZad1 + 1; .lines.add ( 8 відмінок вказаний правильно: + Р.п. ) ;. lines.add ( ); (scombobox8.Text = ) then:=ResultZad1 + 0; .lines.add ( 8 відмінок не вірно. + Правильна відповідь: Р.п. ) ;. lines.add ( Ви нічого не написано );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( 8 відмінок не вірно. + Правильна відповідь: Р.п. );

srichedit1.lines.add ( Ви написали: + scombobox8.Text) ;. lines.add ( ) ;;. Caption:= Ваш бал: + IntToStr (ResultZad1) + з + Laquo; 16 raquo ;;

srichedit1.Lines.Add ( Загальна колличество балів за завдання першої вправи: + IntToStr (ResultZad1) + з + 16 );

srichedit1.Lines.Add(laquo;raquo;);.Enabled:=false;;;TFormLess16Lvl3.sButton2Click(Sender: TObject); ResultZad1: integer;:=0; (sEdit9.Text= Журі ) or

(sEdit9.Text= журі ) or

(sEdit9.Text= Журі. ) or

(sEdit9.Text= журі. ) then:=ResultZad1 + 1; .Picture.LoadFromFile ( картинки/Done.bmp ) ;. lines.add ( 1 слово вірно: + Журі ) ;. lines.add ( ); (sEdit9.Text= ) then:=ResultZad1 + 0; .Picture.LoadFromFile ( картинки/error.bmp );

srichedit1.lines.add ( 1 слово не вірно. + Правильна відповідь: Журі ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .Picture.LoadFromFile ( картинки/error.bmp );

srichedit1.lines.add ( 1 слово не вірно. + Правильна відповідь: Журі ) ;. lines.add ( Ви написали: + sEdit9.Text) ;

srichedit1.lines.add(laquo;raquo;);;.Enabled:=false;;TFormLess16Lvl3.sButton3Click(Sender: TObject); (sEdit10.Text= Авеню ) or

(sEdit10.Text= авеню ) or

(sEdit10.Text= Авеню. ) or

(sEdit10.Text= авеню. ) then:=ResultZad1 + 1; .Picture.LoadFromFile ( картинки/Done.bmp ) ;. lines.add ( 2 слово вірно: + Авеню ) ;. lines.add ( ); (sEdit10.Text= ) then:=ResultZad1 + 0; .Picture.LoadFromFile ( картинки/error.bmp );

srichedit1.lines.add ( 2 слово не вірно. + Правильна відповідь: Авеню ) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .Picture.LoadFromFile ( картинки/error.bmp );

srichedit1.lines.add ( 2 слово не вірно.   + Laquo; Правильна відповідь: Авеню ) ;. lines.add ( Ви написали: + sEdit10.Text);

srichedit1.lines.add(laquo;raquo;);;.Enabled:=false;;TFormLess16Lvl3.sButton4Click(Sender: TObject); (sEdit11.Text= Кашне ) or