VPF::[Delphi]Программа, демонстрирующая движение тела

Sannyore

Дата 17.3.2011, 00:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 9.3.2010

Репутация: нет
Всего: нет

Код


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 при нажатии на выполнение операции не выводит график. Не знаю что это(
+ выложил задачу саму.

Это сообщение отредактировал(а) Sannyore - 18.3.2011, 12:58

Присоединённый файл ( Кол-во скачиваний: 22 )

_____________________.rar 181,69 Kb

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »