Автор работы: Пользователь скрыл имя, 21 Мая 2015 в 16:45, курсовая работа
В современной механике момент инерции является одной из наиболее важных величин и имеет огромное практическое значение. С помощью различных экспериментов определяют моменты инерции мельчайших деталей часовых механизмов, гигантских роторов турбин на гидроэлектростанциях, магнитных стрелок, реле и даже конечностей человеческого тела (для исследования гимнастических упражнений и определения подготовленности спортсменов).
Введение………………………………………………………………........3
Глава 1. Описание экспериментальной установки и основные теоретические положения……………………………………………………………………4
1.1 Описание установки…………………………………………………….4
1.2 Основные теоретические положения………………………………….5
Глава 2. Программная реализация виртуального эксперимента……….8
2.1 Выбор метода реализации эксперимента……………………………..8
2.2.Общий алгоритм решения……………………………………………...9
2.2.1. Словесный алгоритм программы………………………………….9
2.3. Описание работы программы………………………………………….10
2.3.1. Входные и выходные данные…………………………………......10
2.3.2. Условия выполнения программы………………………………...10
2.3.3. Инструкция пользователю………………………………………...10
2.3.4. Интерфейс…………………………………………………………..11
2.4.Тестирование……………………………………………………………12
Заключение…………………………………………………………….........13
Список литературы…………………
//Jp - момент инерции пустой платформы
//Jpe - момент инерции платформы с телом простой формы
//Jt - момент инерции тела
implementation
{$R *.lfm}
{ TForm2 }
procedure TForm2.Button1Click(Sender: TObject);
begin
if (length(vm.Text)>0) and (length(vm1.Text)>0) and (length(vR.Text)>0) and (length(vrr.Text)>0) and (length(vT.Text)>0) and (length(vL.Text)>0) then
begin
//контанты ПИ(pi) и ускорение свободного падения (g) объявлены на уровне класса формы
//преобразование к вещественному типу исходных данных с текстовых полей
m:=StrToFloat(vm.Text);
m1:=StrToFloat(vm1.Text);
R:=StrToFloat(vR.Text);
rr:=StrToFloat(vrr.Text);
T:=StrToFloat(vT.Text);
L:=StrToFloat(vL.Text);
//выполнение расчетов
Jp:=(m*g*R*rr*sqr(T))/*4*sqr(
Jpe:=((m+m1)*g*R*rr*sqr(T))/4*
Jt:=Jpe-Jp; //момент инерции тела
//вывод результатов
self.LJp.Caption:=FloatToStr(
self.LJpe.Caption:=FloatToStr(
self.LJt.Caption:=FloatToStr(
end
else
showmessage('Не все исходные данные были указаны, ошибка при расчете...');
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
self.close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
end;
end.
Информация о работе Разработка лабораторного комплекса: «Трифилярный подвес»