бильярд в Дельфи

[aiktz]

привет! нарисовала бильярд, по столу движется шарик....но как нарисовать лузы и чтобы шарик в лузы закатывался???? помогите пожалуйста!!!!!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bx,by: real;
  bc: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
label 10;
var

x,r,i,y,dx,dy: integer;
z:real;
begin
dx:=5;
dy:=5;
Canvas.Pen.Style:=psSolid;
Canvas.Brush.Color :=clGreen;
Canvas.Pen.Color :=clBlack;

canvas.Rectangle(150,150,600,350);
x:=160;
y:=160;
r:=10;
10:
x:=x+dx;
y:=y+dy;
if x>585 then dx:=-dx;
if y>334 then dy:=-dy;
if x<163 then dx:=-dx;
if y<163 then dy:=-dy;
Canvas.Pen.Style:=psSolid;
Canvas.Brush.Color :=clRed;
Canvas.Pen.Color :=clBlack;
canvas.Ellipse(x-r,y-r,x+r,y+r);

for i:=1 to 1000000 do
z:=Sin(5);
 Canvas.Pen.Style:=psSolid;
Canvas.Brush.Color :=clGreen;
Canvas.Pen.Color :=clGreen;
canvas.Ellipse(x-r,y-r,x+r,y+r);

goto 10;

end;
end.

[DeKot]

Принципиально неправильный подход к построению программы.Всё "впихнуто" в одну процедуру - цикл по БЕЗУСЛОВНОМУ переходу. Даже штатно завершить программу невозможно, только аварийным выходом.
Следует разбить программу на части (процедуры):
- инициализация переменных (FormCreate);
- отрисовка поля биллиарда (FormPaint);
- пуск движения шара (ButtonOnClick); - это можно исключить, установив по умолчанию сразу запуск таймера (Enabled:= true
- организация движения шара (OnTimer);
Пример во вложении.
Для попадания шара в лузу - создайте проверку совпадения координат шара и лузы.

[aiktz]

ммм...мне так препод объяснял....спасибо!!

[DeKot]

А Вы все таки посмотрите вложение, запустите проект и почувствуйте разницу. От препода берите максимум полезного, но и развивайте самостоятельность.

[mutabor]

aiktz, единственный оправданный случай применять безусловный переход goto, это выход из вложенных циклов. В остальных случаях не рекомендуется, сильно страдает читаемость кода.

[DeKot]

от mutabor

В остальных случаях не рекомендуется, сильно страдает читаемость кода.

Применние оператора GOTO оправдано во многих случаев. Почему- то считается , что это некрасиво (мягко сказано). Да нормальный оператор, и применяется в необходимых случаях.
Да вся информатика построена на принципах :
- присвоение;
- сравнение;
- условный переход;
- безусловный переход;
- циклы ( один из видов безусловных переходов);

[Dezolyator]

такую прогу бы на с+ написать))