er: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); x0, y0: integer; randomize ;. Top:=random (Form1. Clientheight-Shape1. Height) ;. Left:=random (Form1. Clientwidth-Shape1. Width) ;:=random (Form1. Clientheight-Shape2. Height) ;:=random (Form1. Clientwidth-Shape2. Width); not (((Shape1. Left + Shape1. Width lt; x0) or (Shape1. left-Shape2. Width gt; x0)) and ((Shape1. Top + Shape1. Height lt; y0) or (Shape1. Top-Shape2. Height gt; y0))) doy0:=random (Form1. clientheight-Shape2. height) ;:=random (Form1. clientwidth-Shape2. width); end ;. Top:=y0 ;. Left:=x0 ;; TForm1. Shape1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); x0, y0: integer; randomize ;. Top:=random (Form1. Clientheight-Shape1. Height) ;. Left:=random (Form1. Clientwidth-Shape1. Width) ;:=random (Form1. Clientheight-Shape2. Height) ;:=random (Form1. Clientwidth-Shape2. Width); not (((Shape1. Left + Shape1. Width lt; x0) or (Shape1. left-Shape2. Width gt; x0)) and ((Shape1. Top + Shape1. Height lt; y0) or (Shape1. Top-Shape2. Height gt; y0))) doy0:=random (Form1. clientheight-Shape2. height) ;:=random (Form1. clientwidth-Shape2. width); end ;. Top:=y0 ;. Left:=x0 ;; TForm1. Shape2MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); x0, y0: integer; randomize ;. Top:=random (Form1. Clientheight-Shape1. Height) ;. Left:=random (Form1. Clientwidth-Shape1. Width) ;:=random (Form1. Clientheight-Shape2. Height) ;:=random (Form1. Clientwidth-Shape2. Width); not (((Shape1. Left + Shape1. Width lt; x0) or (Shape1. left-Shape2. Width gt; x0)) and ((Shape1. Top + Shape1. Height lt; y0) or (Shape1. Top-Shape2. Height gt; y0))) doy0:=random (Form1. clientheight-Shape2. height) ;:=random (Form1. clientwidth-Shape2. width); end ;. Top:=y0 ;. Left:=x0 ;;.
. Програма, яка реалізовує ходи Шахов фігур.
program Project1;
{$ APPTYPE CONSOLE}, in unit1. pas raquo ;; figures: array [1.4] of Tfigure;, y, i: integer; desk: d; s: string; p: boolean; (desk) ;:= raquo ;; ( enter x=); (x); ( enter y=); (y); (s lt; gt; white ) and (s lt; gt; black ) do begin writeln ( enter color ); readln (s); end; s= white then p:=true else p:=false; [1]:=Tknight. create (x, y, p, desk);
//figures [1]. writeout (desk) ;:= raquo ;; ( enter x=); (x); ( enter y=); (y); (s lt; gt; white ) and (s lt; gt; black ) do begin write ( enter color ); readln (s); end; s= white then p:=true else p:=false; [2]:=Tbishop. create (x, y, p, desk);
//figures [2]. writeout (desk) ;:= raquo ;; ( enter x=); (x); ( enter y=); (y); (s lt; gt; white ) and (s lt; gt; black ) do begin write ( enter color ); readln (s); end; s= white then p:=true else p:=false; [3]:=Trook. create (x, y, p, desk);
//figures [3]. writeout (desk) ;:= raquo ;; ( enter x=); (x); ( enter y=); (y); (s lt; gt; white ) and (s lt; gt; black ) do begin write ( enter color ); readln (s); end; s= white then p:=true else p:=false; [4]: ??= Tpawn. create (x, y, p, desk);
//figures [4]. writeout (desk); (desk); I:=1 to 4 dofigures [i]. live then ( move , figures [i]. name, to x, y ); ( x=); readln (x); ( y=); readln (y); [i]. movetoplace (x, y, desk) ;;
//figures [1]. writeout (desk); (desk) ;;.
. Калькулятор
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls; symbol=set of 0 raquo ;. 9 raquo ;;=class (TForm): TEdit ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton; Button17Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); FormActivate (Sender: TObject ); Button21Click (Sender: TObject); Button15Click (Sender: TObject); Button19Click (Sender: TObject); Button18Click (Sender: TObject); Button20Click (Sender: TObject); Button16Click (Sender: TObject); Button14Click (Sender: TObject) ; Button13Click (Sender: TObject); FormCreate (Sender: TObject); Button12Click (Sender: TObject); Button11Click (Sender: TObject); Button10Click (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button6Click (Sender: TObject); Button5Click (Sender: TObject); Button4Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); Button9Click (Sender: TObject) ;: string;, y: real ;: integer ;: boolean;
{Public declarations} ;: TForm1;
{$ R *. dfm} TForm1. FormActivate (Sender: TObject) ;. SetFocus ;; TForm1. FormClose (Sender: TObject; var Action: TCloseAction); ( Goodbye ) ;; TForm1. FormCreate (Sender: TObject) ;:=0; y:=0; l:=- 1; k:=false ;; TForm1. Button10Click (Send...
