Оглавление
Введение. 2
ГЛАВА 1 ТЕОРЕТИЧЕСКАЯ ЧАСТЬ. 3
1.1 Колебания математического маятника 3
1.2 Обзор программных средств 9
1.3 Постановка задачи 11
1.4 Математическая модель решения задачи 12
1.5 Алгоритм моделирования колебаний математического маятника. 13
1.6 Блок-схема программы.. 14
ГЛАВА 2. ПРАКТИЧЕСКАЯ ЧАСТЬ. 16
Решение поставленной задачи в среде Delphi 16
2.1 Описание интерфейса программы в среде Delphi 16
2.2 Текст основного модуля и вид формы приложения 17
2.3 Графическое представление результатов 19
2.4 Анализ полученных результатов 20
Заключение. 21
Литература.. 22
Приложение. 23
2.1 Описание интерфейса программы в среде Delphi
Рассмотрим интерфейс программы моделирования колебаний математического маятника. Значение начального угла колебаний будем вводить в компонент Edit1. Начальную скорость будем вводить в компонент Edit2. Частоту колебаний – в Edit3. Метки от Label1 до Label9 используются для оформления формы и подсказок. Компонент Image1 выводит на форму анимацию колебаний маятника. Кнопка Button1 запускает процедуру моделирования, а Button2 - останавливает моделирование. Компонент Chart1 позволяет построить график..
Рисунок 4 Интерфейс программы моделирования математического маятника
2.2 Текст основного модуля и вид формы приложения
procedure TForm1.startClick(Sender: TObject);
var i:integer;
begin
for i:=0 to 2 do //очистка (для нескольких испытаний)
graf.Series[i].Clear;
t:=0;
Phi:=StrToFloatDef(angle.Text,90)/180*pi;//угол
phidot:=strtofloatdef(speed.Text,5);//скорость
delta:=strtofloatdef(zatyxparam.Text,1)/5;//параметр затухания
omega:=strtofloatdef(chastota.Text,5);//частота
f:=strtofloatdef(vinsil.Text,0);//сила
chastF:=StrToFloatdef(chastvinsil.Text,6);//частота вынужд. силы
r:=min(Img.Width,img.Height) div 3;//за радиус принимаем 1/3
timer.Enabled:=true;//включаем таймер
end;
procedure TForm1.stopClick(Sender: TObject);
begin
timer.Enabled:=false;
end;
procedure TForm1.TimerTimer(Sender: TObject);
var xx,yy,i:integer;
begin
Список использованной литературы:
Гофман, В.Э. Delphi 5 / В.Э. Гофман, А.Д. Хомоненко – СПб.: БХВ – Санкт-Петербург, 2000. – 800 с. Культин, Н.Б. Программирование в Turbo Pascal 7.0 и Delphi / Н.Б. Культин. – СПб.: BHV, 1998. – 240 с. Фаронов, В.В. Delphi. Программирование на языке высокого уровня: учебник для ВУЗов / В.В. Фаронов. – СПб.: Питер, 2005. – 640 с. Бухгольц Н.Н. Основной курс теоретической механики. М.: Наука. 1969. Боровой А., Херувимов А. Колебания и маятники. Ж. Квант. № 8, 1981.
