on:= Ракет залишилося: + inttostr (j);// висновок залишилися ракетj lt; 1 then//якщо ракети закінчилися//гра зупиняється і виводитися повідомлення ( Cамолет ворога знищено: + inttostr (i));//висновок збитих літаків
close ;;; TForm1.FormCreate (Sender: TObject);// при запуску гри виводитися повідомлення ( p-пауза, о-відновити гру, i-навая гра, space-вогонь, lt; -, - gt; -управління танком );
j:=10; .Visible:=false;// стартове кол-во ракет
boom2.Visible:=false;.Visible:=false;.Visible:=false;:=8;.caption:=laquo;Самолетов знищено: + inttostr (i);// висновок збитих літаків
label2.Caption:= Ракет залишилося: + inttostr (j);// висновок залишилися ракет.Caption:= Рівень складності: 1 raquo ;;;.
Додаток 2
Основне вікно програми (Form1)
Додаток 3
Зображення літака
Додаток 4
Зображення ракетної установки
Додаток 5
Зображення ракети
Додаток 6
Вікно під час роботи програми
Додаток 7
Вікно під час роботи програми
Додаток 8
Вікно після завершення роботи програми