Презентация по теме Построение и исследование физических моделей на языке Делфи.
Основные этапы разработки и исследования моделей на компьютере
Основные этапы разработки и исследования моделей на компьютере
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Math; const G=9.81; Pi=3.14; var V0:real;{начальная скорость} A:real;{угол бросания} S:real; {расстояние до стенки} H:real; {высота стенки }
Создадим программный код событийной процедурыprocedure TForm1.Button1Click(Sender: TObject);varL:real;{высота мячика в момент попадания в стенку}beginV0:=StrToFloat(EditV0.Text);A:=StrToFloat(EditA.Text);S:=StrToFloat(EditS.Text);H:=StrToFloat(EditH.Text);L:=S*Tan(A*Pi/180)-G*Sqr(S)/(2*Sqr(V0*Cos(A*Pi/180)));Label1.Caption:=FloatToStr(L);if L<0 then Label2.Caption:='Недолет'else if L>H then Label2.Caption:='Перелет'else Label2.Caption:='Попал'end;end.
Визуализация формальной модели
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Math, StdCtrls ; const G=9.81; pi=3.14; var V0:real; A:integer; S:real; H:real; L:real;type TForm1 = class(TForm) EditV0: TEdit;
Создать код событийной процедуры
Компьютерный эксперимент