Задача о движении снаряда (стр. 2 из 2)

Блок-схема

Результат работы программы

Заключение

Целью данной курсовой работы было написание программы, которая моделировала движение снаряда.

Результатом работы стали следующие параметры:

· Путь

· Максимальная высота (координаты)

· Время полета

· Уравнение траектории

При выполнении курсовой работы были выполнены основные этапы разработки модели:

· постановка задачи и определение целей моделирования;

· анализ методов построения модели;

· разработка алгоритма модели;

· написание и отладка программы;

Таким образом, в результате выполнения курсовой работы была получена модель, полностью удовлетворяющая потребностям поставленной задаче.

Список литературы

1. Мальханов С.Е. Общая физика (конспект лекций). – СПб.: СПбГТУ, 2001. – 438 с.

2. Смирнов М.С. Курс лекций по информатике – СПб., 1999 – 2002.

3. Мышкис А.Д. Лекции по высшей математике – М., 2000.

4. Панов Ю.Д., Егоров Р.Ф. Математическая физика. Методы решения задач. Учеб. пособие. – Екатеринбург, 2005. – 150 с.

5. Турчак Л.И., Плотников П.В. Основы численных методов: Учеб. пособие – 2-е изд., перераб. и доп. – М.: ФИЗМАТЛИТ, 2003. – 304 с.

6. Понамарев В.А. Visual Basic.NET. Экспресс курс. – СПб.: БХВ-Петербург, 2003.

7. Исаков В.Б. Элементы численных методов: Учебное пособие для студентов, обучающихся по специальности Математика группы Педагогические специал. – М.: Академия, 2003. – 192 с.

8. http://mathem.by.ru

Приложения

Листинг программы

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils,

Math,

InOut;

var

alpha,a,S,v,tg,tg2,t,h,h2:extended;

Key: Char;

Fok: Boolean;

const

g=10;

begin

Repeat

WriteLn(RusWD('Введите начальную скорость в м/с'));

ReadLn(v);

WriteLn(RusWD('Введите наклон траектории в градусах 0<a<90'));

ReadLn(a);

alpha:=Pi*a/180;

S:=sqr(v)*sin(2*alpha)/g;

tg:=tan(alpha);

tg2:=(2*sqr(v)*sqr(cos(alpha)))/g;

t:=2*v*sin(alpha)/g;

h:=sqr(v)*sqr(sin(alpha))/(2*g);

h2:=S/2;

Writeln('y=x*',tg:2:1,'-x^2/',tg2:2:1);

Writeln(RusWD('Путь: '),S:2:1);

Writeln(RusWD('Максимальная высота: '),h:3:3,' ',RusWD('Координаты: ['),h2:2:1,';',h:2:1,']');

Writeln(RusWD('Время полета: '),t:3:3);

Readln;

WriteLn(RusWD('Ввести данные повторно("Да"-[y]; "Нет"-Любая клавиша)?'));

ReadLn(Key);

until(Key<>'y') and (Key<>'Y');

WriteLn(RusWD('Для выхода нажмите - [Enter].'));

ReadLn;

end.