Ну, к примеру, имеем TImage или TPaintBox, пару TEdit, TButton. На контроле для рисования (TImage, TPaintBox) рисуем пушку, в Edit-ы вводим: угол наклона ствола, мощность заряда (можно и дополнительные условия придумать, как то плотность атмосферы, гравитация), жмём кнопку и любуемся полётом снаряда. Аогоритс весьма известный, в сети примеров много.
|