Федеральное агентство по образованию

Федеральное агентство по образованию

ГОУ ВПО "Тульский государственный университет"

Технологический факультет

Кафедра "Автоматизированные станочные системы"

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к курсовой работе по курсу

"Информатика"

Вариант ХХ

Выполнил студент гр. ХХХХХ ХХХХХ Х.Х.

Проверили

доц. ХХХХХХ Х.Х. _________ Предварительная оценка: ___________

Рецензент _______________ Оценка рецензента ________________

Окончательная оценка _____ Подпись руководителя КР ___________

Тула 20ХХ

Содержание

1)Тутульный лист

2)Содержание

3)Текст задания.

4)Описание входных и выходных параметров.

5)Блок схема

7)Распечатка программы

10)Распечатка результатов работы.

11)Рецензия

Текст задания.

Точка начала двигаться по окружности радиусом R с тангенциальным ускорением a.Чему равен угол между векторами полного и нормального ускорения через t секунд после начала движения?

Построить анимационную модель движения тела.

Контрольный пример: R=0.6 м,a=0.1 м/с ²

t=3c.

Описание входных и выходных параметров.

Вводится время вращения.

Вводится расстояние от оси вращения.

Вводится тангенциальное ускорение.

На выходи имеем анимационную модель и угол.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls,ball, XPMan;

type

TForm1 = class(TForm)

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Image1: TImage;

StaticText1: TStaticText;

Button1: TButton;

lbledt1: TLabeledEdit;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Show;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

r:tball;

implementation

{$R *.dfm}

//Белый фон

procedure begin_paint;

begin

With Form1.image1.Canvas do begin

brush.Color:=clwhite;

FillRect(form1.Image1.ClientRect);

end;

end;

//рисуем вращение

procedure Vector(a, l: integer);

{а — угол между осью х и вектором

l — длина вектора}

const

GRAD = 0.0174532; { коэффициент пересчета угла из градусов в радианы}

var

zx,zy: integer; { координаты конца вектора}

begin

begin_paint;

With form1.image1.canvas do

begin

//цвета и толщина линии

pen.color:=clblue;

pen.Width:=2;

brush.color:=clblue;

//линия

MoveTo(form1.Image1.Width DIV 2,form1. Image1.Height DIV 2);

zx:= Round(form1.Image1.Width DIV 2 + l*cos(a*GRAD));

zy:= Round(form1. Image1.Height DIV 2 - l*sin(a*GRAD));

LineTo(zx,zy);

//точка

Ellipse(zx+1,zy+1,zx-1,zy-1)

end;

end;

//процедурка какую используем в работе с объектом

procedure TForm1.Show;

begin

vector(round(r.f),(round(r.L*500)));

application.ProcessMessages;

sleep(10);

vector(round(r.f),(round(r.L*500)));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//конструктор

r:=tball.create(show);

begin_paint;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

try

//вносим значения переменных со стандартной затычкой

r.time:=strtofloat(labelededit1.text);

r.L:=strtofloat(labelededit2.Text);

r.at:=StrToFloat(lbledt1.text);

except

MessageDlg('Ошибка ввода! Введите числовые значения!',mterror,[mbok],0);

exit

end;

begin_paint;

//выведем искомое

statictext1.Caption:='Угол между ат и ан: '+floattostrF(r.Find_A,ffgeneral,3,2);

//пуск

r.start;

end;

end.

РЕЦЕНЗИЯ

на курсовую работу по информатике студента ХХХХХХХ гр. ХХХХХХХ.

Курсовая работа выполнена в полном объеме в соответствии с заданием и может быть оценена следующим образом:

1. Обоснование разработки _____________

2. Графическая часть _____________

3. Пояснительная записка _____________

4. Соблюдение требований ЕСКД _____________

5. Оптимальность решения ___________________

Общая оценка________________

Рецензент __________________ "__" ___________ 20___

Дата добавления: 2015-08-28