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

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;

FormLess16Lvl3: TFormLess16Lvl3;

ResultZad1: integer;

{$ R * .dfm}, y0: integer ;: boolean=false;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;:boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;:boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;:boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;:boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;:boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;:boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;: boolean=true;:boolean=true;: boolean=true; gb1: integer=0; gb2: integer=0; gb3: integer=0; gb4: integer=0; gb5: integer=0; gb6: integer=0; gb7: integer= 0; gb8: integer=0; gb9: integer=0; gb10: integer=0; gb11: integer=0; gb12: integer=0 ;, yStart: integer; TFormLess16Lvl3.sButton1Click (Sender: TObject); ResultZad1: integer; :=0; .lines.add ( 1 ВПРАВА ) ;. lines.add ( );

begin (sEdit1.Text= шляху ) then:=ResultZad1 + 1; .lines.add ( 1 слово і падіж вказаний правильно: + шляху ) ;. lines.add ( ); (sEdit1.Text= ) then:=ResultZad1 + 0; .lines.add ( 1 слово і падіж не вірно. + Правильна відповідь: шляхи raquo ;) ;. lines.add ( Ви нічого не написали );

srichedit1.lines.add ( );:=ResultZad1 + 0; .lines.add ( 1 слово і падіж не вірно. + Правильна відповідь: шляхи ) ;. lines.add ( Ви написали: + sEdit1.Text); <...