Автор: Пользователь скрыл имя, 11 Декабря 2011 в 15:49, курсовая работа
Цель работы: Построить семейство графиков 5 функций, заданных аналитически и определенных на известном интервале изменения аргумента [a,b] для декартовой и полярной систем координат.
Задачи работы:
1. Изучить теоретический материал по теме работы и особенности применения на практике полученных теоретических знаний.
2. Решить прикладную задачу из конкретной предметной области, создав программный продукт в одной из объектно-ориентированных инструментальных сред.
3. Описать основные приёмы работы с созданным программным средством (сеанс работы).
ВВЕДЕНИЕ…………………………………………………………………………..3
Глава 1.ТЕОРЕТИЧЕСКИЙ МАТЕРИАЛ……………………………………….....5
1.1 Декартовая система координат………………………………………......9
1.2 Полярная система координат…………..………………………………..11
1.3 Связь между полярной и декартовой системами координат………….21
Глава 2. СТРУКТУРНОЕ ОПИСАНИЕ РАЗРАБОТКИ………………………….23
Глава 3. ФУНКЦИОНАЛЬНОЕ ОПИСАНИЕ…………….………………………32
Глава 4. ОПИСАНИЕ ПРИЕМОВ РАБОТЫ С ПРОГРАММОЙ………………..36
ЗАКЛЮЧЕНИЕ……………………………………………………………………..40
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ………………………………..41
ПРИЛОЖЕНИЕ………………………………………………………………….......42
4:logo(a,b);
else
messagedlg('Функция не выбрана',mterror,[mbok],1);
end;
//osi();
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a,b:integer;
r,alfa,h:real;
begin
a:=spinedit3.Value;
b:=spinedit4.Value;
try
alfa:=strtofloat(edit1.text);
except
messagedlg('Ошибка ввода параметра Alfa',mterror,[mbok],1);
exit;
end;
case combobox2.ItemIndex of
0:topolar(a,b,alfa,0);
1:topolar(a,b,alfa,3);
2:topolar(a,b,alfa,4);
3:begin
if alfa=0 then
begin
messagedlg('Параметр Alfa должен быть больше нуля!',mterror,[mbok],1);
end;
topolar(a,b,alfa,5);
end;
4:topolar(a,b,alfa,6);
else
messagedlg('Функция не выбрана',mterror,[mbok],1);
end;
procedure
TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for i:1 to 6 do
Form1.Chart1.Series[i].Clear;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
osi(chart1.LeftAxis.Maximum,
end;
procedure TForm1.Button4Click(Sender:
TObject);
begin
osi(chart1.LeftAxis.Maximum,
end;
Информация о работе Построение семейства графиков функций вида Y=F(X)