| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
EditV0: TEdit;
EditA: TEdit;
Image1: TImage;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Label7: TLabel;
Label8: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
const //объявления констант
G = 9.81;
Pi = 3.14;
var
V0:real; //начальная скорость
A:real; //угол броска
X:integer; //координата Х
Y:integer; //координата Y
T:real; //время
begin
//Ввод начальных значений
//преобразование строки в значение с плавающей точкой
V0 := StrToFloat(EditV0.Text);
A := StrToFloat(EditA.Text);
//рисование траектории
with Image1.Canvas do
begin
while T<5 Do
begin
T:=T+0.005; |
Y := 380-Round(30*(V0*Sin(A*Pi/180)*T-G*T*T/2)); |прокомментируйте пожалуйста вот эти 4 строки, не очень осмыслил.
X := 5+Round(10*(V0*Cos(A*Pi/180)*T)); |
Pixels[X,Y]:=clRed; |
end;
MoveTo(0,380); LineTo(600,380); //ось X
MoveTo(5,0); LineTo(5,500); //ось Y
end;
end;
end.
|
Код изменил, вроде все нормально работает. Но когда сохраняю проект, *.exe при нажатии на выполнение операции не выводит график. Не знаю что это(
+ выложил задачу саму. |