[demon5053]

сейчас у меня имеется такой код:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
 g=9.8;
VAR
 v,a,x,y:real;
 i,t,q:word;
begin
a:=45;
q:=0;
v:=strtoint(LabeledEdit1.Text);
t:=strtoint(LabeledEdit2.Text);
for i:=1 to t do
begin
q:=q+1;
x:=v*cos(a)*i;
y:=(v*sin(a))*i-g*i*i/2;

end;

end;

end.

Админ: Пользуемся тегами при оформлении кода!

как мне вывести на элимент имаге точки которые выходят при расчете? подскажите плиз