група BHV, 1999..
.Архангельскій А. Я. Delphi5.- М., ЗАТ Видавництво Біном" , 2001.
.Електронная енциклопедія.
Додаток 1
Текст програми
Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, ExtCtrls, jpeg;=class (TForm): TTimer ;: TImage ;: TImage ;: TImage ;: TTimer ;: TLabel ;: TImage ;: TTimer ;: TImage ;: TTimer ;: TImage ;: TLabel ;: TImage ;: TTimer ;: TImage ;: TImage ;: TImage ;: TImage ;: TLabel; FormKeyDown (Sender: TObject; var Key: Word ;: TShiftState); samolet1Timer (Sender: TObject); timer2Timer (Sender: TObject); Timer3Timer (Sender: TObject); Timer4Timer (Sender: TObject); FormCreate (Sender: TObject); Timer5Timer (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;, j, n: integer;
{$ R * .dfm} TForm1.FormKeyDown (Sender: TObject; var Key: Word;//рух танка: TShiftState);:=True; (key=VK_left) and (tank.left gt ;=0) then.left:=tank.left - 20; (key=VK_right) and (tank.left + tank.width lt;=Form1.Clientwidth) then.left:=tank.left + 20; key=vk_space then.enabled:=true; key=$ 49 then:=0;:=10; .Left:=- 1000; .Left:=- 1000; .left:=+ 1000; .Left:=+ 700;
label1.caption:= Літаків знищено: + inttostr (i);// висновок збитих самолетов.Caption:= Ракет залишилося: + inttostr (j);// висновок залишилися ракет
end; key=$ 50 then//пауза кнопкою laquo;praquo;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;key=$4F then//відновити гру кнопкою про .Enabled:=true; .Enabled:=true; .Enabled:=true; .Enabled:=true ;; timer2.enabled=false then//ракета рухається разом з танком (key =vk_left) then raketa.top:=tank.top+70;(key=vk_left) then raketa.left:=tank.left + 50; (key=vk_right) then raketa.top:=tank.top+70; ( key=vk_right) then raketa.left:=tank.left + 50 ;;; TForm1.samolet1Timer (Sender: TObject);// літак 1.left:=sam1.left + (n); sam1.Left gt; Form1.Clientwidth then.Left:=form1.Width - 1000; sam1.left gt; (- 500) then.visible:=false ;; TForm1.Timer3Timer (Sender: TObject);// літак 2.left:=sam2.left + (n); sam2.Left gt; Form1.Clientwidth then.Left:=form1.Width - 1500; sam2.left gt; (- 500) then.visible:=false ;; TForm1.Timer4Timer (Sender: TObject);// літак 3.left:=sam3.left- (n); sam3.Left lt; (- 100) thensam3.Left:=sam3.Left + 1000; sam3.left lt; 700 then.visible:=false ;; TForm1.Timer5Timer (Sender: TObject);// літак 4.left:=sam4.left- (n); sam4.Left lt; (- 100) thensam4.Left:=sam4.Left + 700; sam4.left lt; 500 then.visible:=false ;; TForm1.timer2Timer (Sender: TObject);//ракета.top:=raketa.top - 20;
if raketa.top lt; 0 then//якщо ракета досягає краю форми то повертається
begin:=j - 1; .Enabled:=false; .left:=tank.left + 50; .top:=tank.top + 70 ;; ((raketa.Top gt; sam1.Top) and//якщо координати 1 літака і ракети рівні
(raketa.Top lt; sam1.Top + sam1.height)
(raketa.left gt; sam1.left) and
(raketa.left lt; sam1.left + sam1.Width)). Enabled:=false; ////////////////////////.left:=tank.left+50;.top:=tank.top+70;.Left:=sam1.Left;.Visible:=true;.Left:=sam1.left- 1000;:=i + 1 ;; ((raketa.Top gt; sam2.Top) and//якщо координати 2 літака і ракети рівні
(raketa.Top lt; sam2.Top + sam2.height)
(raketa.left gt; sam2.left) and
(raketa.left lt; sam2.left+sam2.Width)).Enabled:=false;.left:=tank.left+50;.top:=tank.top+70;.Left:=sam2.Left;.Visible:=true;.left:=- 1000;:=i + 1 ;; ((raketa.Top gt; sam3.Top) and//якщо координати 3 літаки та ракети рівні
(raketa.Top lt; sam3.Top + sam3.height)
(raketa.left gt; sam3.left) and
(raketa.left lt; sam3.left+sam3.Width)).Enabled:=false;.left:=tank.left+50;.top:=tank.top+70;.Left:=sam3.Left;.Visible:=true;.left:=+1000;:=i+1;;
((raketa.Top gt; sam4.Top) and//якщо координати 4 літака і ракети рівні
(raketa.Top lt; sam4.Top + sam4.height)
(raketa.left gt; sam4.left) and
(raketa.left lt; sam4.left+sam4.Width)).Enabled:=false;.left:=tank.left+50;.top:=tank.top+70;.Left:=sam4.Left;.Visible:=true;.left:=+700;:=i+1;;i=20 then begin:=10;
label3.Caption:= Рівень складності: 2 raquo ;;
end; i=40 then begin:=14;
label3.Caption:= Рівень складності: 3 raquo ;;
end; i=60 then begin:=20;
label3.Caption:= Рівень складності: 4 raquo ;;;. caption:= Літаків знищено: + inttostr (i);// висновок збитих самолетов.Capti...
