Результаты исследований студентов в проекте графика в Delphi - История изменений

Кобылянский Александр: /* Результаты проведённого исследования */

2011-11-22T07:38:15Z

‎Результаты проведённого исследования

Кобылянский Александр: /* Вывод */

2011-11-22T06:47:26Z

‎Вывод

Кобылянский Александр: /* Вывод */

2011-11-22T06:01:28Z

‎Вывод

Кобылянский Александр: /* Результаты проведённого исследования */

2011-11-22T05:42:12Z

‎Результаты проведённого исследования

Кобылянский Александр: /* Результаты проведённого исследования */

2011-11-15T08:30:36Z

‎Результаты проведённого исследования

Кобылянский Александр: /* Результаты проведённого исследования */

2011-11-15T08:08:03Z

‎Результаты проведённого исследования

Кабанов Максим: /* Полезные ресурсы */

2011-11-15T06:08:27Z

‎Полезные ресурсы

Кобылянский Александр: /* =Цели исследования */

2011-11-15T06:07:43Z

‎=Цели исследования

Кобылянский Александр: /* Цели исследования */

2011-11-15T06:07:03Z

‎Цели исследования

Кобылянский Александр: «Результаты исследований студентов в проекте графика в Delhi» переименована в «[[Результаты исследований студентов в проекте графика в Delph

2011-11-15T06:01:03Z

«Результаты исследований студентов в проекте графика в Delhi» переименована в «[[Результаты исследований студентов в проекте графика в Delph

@@ Строка 132: / Строка 132: @@
 end.
-[[Изображение:Кобылянский и Кабанов.JPG]]
+[[Изображение:800px-Кобылянский и Кабанов.JPG]]
 ==Вывод==

@@ Строка 136: / Строка 136: @@
 ==Вывод==
-Для того, чтобы получить верный результат, мы исследовали построение графика функции в Delphi, составили проект и программу.
+Использование языка Delphi обладает широкими графическими возможностями для решения математических задач.Например для построения графика функции.
 ==Полезные ресурсы==

← Предыдущая		Версия 06:01, 22 ноября 2011
Строка 135:		Строка 135:

	==Вывод==		==Вывод==
		+
		+	Для того, чтобы получить верный результат, мы исследовали построение графика функции в Delphi, составили проект и программу.

	==Полезные ресурсы==		==Полезные ресурсы==

← Предыдущая		Версия 05:42, 22 ноября 2011
Строка 20:		Строка 20:

	==Результаты проведённого исследования==		==Результаты проведённого исследования==
		+
		+	Нами была подобрана задача о построении графика функции.
		+
		+	Код программы:
		+
	unit grfunc_;		unit grfunc_;

← Предыдущая		Версия 08:30, 15 ноября 2011
Строка 127:		Строка 127:

	end.		end.
		+	[[Изображение:Кобылянский и Кабанов.JPG]]

	==Вывод==		==Вывод==

← Предыдущая		Версия 08:08, 15 ноября 2011
Строка 20:		Строка 20:

	==Результаты проведённого исследования==		==Результаты проведённого исследования==
		+	unit grfunc_;
		+
		+	interface
		+
		+	uses
		+	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
		+
		+	type
		+	TForm1 = class(TForm)
		+	procedure FormPaint(Sender: TObject);
		+	procedure FormResize(Sender: TObject);
		+	private
		+	{ Private declarations }
		+	public
		+	{ Public declarations }
		+	end;
		+
		+	var
		+	Form1: TForm1;
		+
		+	implementation
		+
		+	{$R *.DFM}
		+
		+	// Функция, график которой надо построить
		+	Function f(x:real):real;
		+	begin
		+	f:=2Sin(x)exp(x/5);
		+	end;
		+
		+	// строит график функции
		+	procedure GrOfFunc;
		+	var
		+	x1,x2:real; // границы изменения аргумента функции
		+	y1,y2:real; // границы изменения значения функции
		+	x:real; // аргумент функции
		+	y:real; // значение функции в точке x
		+	dx:real; // приращение аргумента
		+	l,b:integer; // левый нижний угол области вывода графика
		+	w,h:integer; // ширина и высота области вывода графика
		+	mx,my:real; // масштаб по осям X и Y
		+	x0,y0:integer; // точка - начало координат
		+
		+	begin
		+	// область вывода графика
		+	l:=10; // X - координата левого верхнего угла
		+	b:=Form1.ClientHeight-20; // Y - координата левого верхнего угла
		+	h:=Form1.ClientHeight-40; // высота
		+	w:=Form1.Width-40; // ширина
		+
		+	x1:=0; // нижняя граница диапазона аргумента
		+	x2:=25; // верхняя граница диапазона аргумента
		+	dx:=0.01; // шаг аргумента
		+
		+	// найдем максимальное и минимальное значения
		+	// функции на отрезке [x1,x2]
		+	y1:=f(x1); // минимум
		+	y2:=f(x1); // максимум
		+	x:=x1;
		+	repeat
		+	y := f(x);
		+	if y < y1 then y1:=y;
		+	if y > y2 then y2:=y;
		+	x:=x+dx;
		+	until (x>=x2);
		+
		+	// вычислим масштаб
		+	my:=h/abs(y2-y1); // масштаб по оси Y
		+	mx:=w/abs(x2-x1); // масштаб по оси X
		+
		+	// оси
		+	x0:=l;
		+	y0:=b-Abs(Round(y1*my));
		+
		+	with form1.Canvas do
		+	begin
		+	// оси
		+	MoveTo(l,b);LineTo(l,b-h);
		+	MoveTo(x0,y0);LineTo(x0+w,y0);
		+	TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
		+	TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
		+	// построение графика
		+	x:=x1;
		+	repeat
		+	y:=f(x);
		+	Pixels[x0+Round(xmx),y0-Round(ymy)]:=clRed;
		+	x:=x+dx;
		+	until (x>=x2);
		+	end;
		+	end;
		+
		+
		+	procedure TForm1.FormPaint(Sender: TObject);
		+	begin
		+	GrOfFunc;
		+	end;
		+
		+	// изменился размер окна программы
		+	procedure TForm1.FormResize(Sender: TObject);
		+	begin
		+	// очистить форму
		+	form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
		+	// построить график
		+	GrOfFunc;
		+	end;
		+
		+	end.

	==Вывод==		==Вывод==

← Предыдущая		Версия 06:08, 15 ноября 2011
Строка 24:		Строка 24:

	==Полезные ресурсы==		==Полезные ресурсы==
		+	*[http://udelphi7.gym5cheb.ru/ Учебник по Delphi 7 для начинающих]
		+	*[http://delphi.support.uz/ Иллюстрированный онлайн учебник по Borland Delphi 7 с примерами]

	== Другие документы ==		== Другие документы ==

← Предыдущая		Версия 06:07, 15 ноября 2011
Строка 10:		Строка 10:


−	==Цели исследования=	+	==Цели исследования==
	1.Познакомиться с графическими операторами в Delphi.		1.Познакомиться с графическими операторами в Delphi.

← Предыдущая	Версия 06:01, 15 ноября 2011
(нет различий)