Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Richik123
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
#1

Построение графика! - Delphi

12.12.2012, 19:16. Просмотров 248. Ответов 0
Метки нет (Все метки)

Вот код подскажите что не так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls;
 
type
  TForm1 = class(TForm)
    button2: TButton;
    button3: TButton;
    button4: TButton;
    button5: TButton;
    button6: TButton;
    pic1: TPaintBox;
    procedure button2Click(Sender: TObject);
    procedure button3Click(Sender: TObject);
    procedure button4Click(Sender: TObject);
    procedure button5Click(Sender: TObject);
    procedure button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.button2Click(Sender: TObject);
var xg,yg,xgmax,xgmin,ygmax,ygmin:Integer;
  x,h,y,xmax,ymax,xmin,ymin:real;
  i:Integer;
begin
xmin:=-4;
xmax:=4;
ymin:=-4;
ymax:=4;
xgmin:=0;
xgmax:=250;
ygmin:=180;
ygmax:=0;
h:=0.1;
x:=0.1;
y:=(x*x)-x+1;
xg:=xgmin+TRUNC((xgmax-xgmin)*(x-xmin)/(xmax-xmin));
xg:=ygmin+TRUNC((ygmax-ygmin)*(y-ymin)/(ymax-ymin));
pic1.Canvas.MoveTo(xg,yg);
while x<=xmax do begin
  x:=x+h;
  y:=(x*x)-x+1;
xg:=xgmin+TRUNC((xgmax-xgmin)*(x-xmin)/(xmax-xmin));
yg:=ygmin+TRUNC((ygmax-ygmin)*(y-ymin)/(ymax-ymin));
pic1.Canvas.LineTo(xg,yg);
  end;
end;
 
procedure TForm1.button3Click(Sender: TObject);
var xg,yg,xgmax,xgmin,ygmax,ygmin:Integer;
  x,h,y,xmax,ymax,xmin,ymin:real;
  i:Integer;
begin
xmin:=-4;
xmax:=4;
ymin:=-4;
ymax:=4;
xgmin:=0;
xgmax:=250;
ygmin:=180;
ygmax:=0;
h:=0.1;
x:=0.1;
y:=2*x-1;
xg:=xgmin+TRUNC((xgmax-xgmin)*(x-xmin)/(xmax-xmin));
yg:=ygmin+TRUNC((ygmax-ygmin)*(y-ymin)/(ymax-ymin));
pic1.Canvas.MoveTo(xg,yg);
while x<=xmax do begin
  x:=x+h;
  y:=2*x-1;
  xg:=xgmin+TRUNC((xgmax-xgmin)*(x-xmin)/(xmax-xmin));
yg:=ygmin+TRUNC((ygmax-ygmin)*(y-ymin)/(ymax-ymin));
pic1.Canvas.LineTo(xg,yg);
end;
end;
procedure TForm1.button4Click(Sender: TObject);
var xg,yg,xgmax,xgmin,ygmax,ygmin:Integer;
  x,h,y,xmax,ymax,xmin,ymin:real;
  i:Integer;
begin
xmin:=-4;
xmax:=4;
ymin:=-4;
ymax:=4;
xgmin:=0;
xgmax:=250;
ygmin:=180;
ygmax:=0;
h:=0.1;
x:=0.1;
y:=1/((x*x)-x+1);
xg:=xgmin+TRUNC((xgmax-xgmin)*(x-xmin)/(xmax-xmin));
yg:=ygmin+TRUNC((ygmax-ygmin)*(y-ymin)/(ymax-ymin));
pic1.Canvas.MoveTo(xg,yg);
while x<=xmax do begin
  x:=x+h;
  y:=1/((x*x)-x+1);
  xg:=xgmin+TRUNC((xgmax-xgmin)*(x-xmin)/(xmax-xmin));
yg:=ygmin+TRUNC((ygmax-ygmin)*(y-ymin)/(ymax-ymin));
pic1.Canvas.LineTo(xg,yg);
end;
end;
 
procedure TForm1.button5Click(Sender: TObject);
begin
pic1.Color:=clWindow;
pic1.Color:=clGreen;
end;
 
procedure TForm1.button6Click(Sender: TObject);
begin
pic1.Canvas.Pen.Color:=clBlack;
pic1.Canvas.MoveTo(1,1);
pic1.Canvas.LineTo(1,250);
pic1.Canvas.MoveTo(0,190);
pic1.Canvas.LineTo(250,190);
pic1.Canvas.Pen.Color:=clred;
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2012, 19:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построение графика! (Delphi):

Построение графика - Delphi
Всем доброго времени суток. Есть программа, считающая определенные значения и записывающая их в текстовый файл, а мне необходимо...

Построение графика - Delphi
Фрагмент задания. Построить график экспорта заданного товара по годам. Допустим я могу нарисовать сетку для графика в случае, когда годы...

Построение графика - Delphi
Нужно нарисовать график вот по этой формуле: w=A*cos(ipx/L-(1+(-1)^i)p/4)*cos(jpy/C-(1+(-1)^j)p/4) В делфи я очень начинающий, поэтому...

Построение графика - Delphi
Доброго времени суток,уважаемые форумчане! Пытаюсь нарисовать график по следующей формуле: \frac{n*{(n+1)}^{2}*exp}{{(n+exp)}^{2}} ,где...

Построение графика - Delphi
Ребята, нужна помощь, есть программный код который рисует график функции, но он начинается Х и Y, мне нужно изменить на Х и Y. Вот код: ...

Построение графика - Delphi
Всем здравствуйте,мне нужна помощь в построение графика.Нужно так чтобы данные из таблицы(StringGrid) переносились на график(Chart).В...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2012, 19:16
Привет! Вот еще темы с ответами:

построение графика - Delphi
для построение графика используется вся область формы. причем если изменить размер окна то график должен быть перерисован заново с учетом...

Построение графика - Delphi
нужно построить график по двум столбцам из базы: DATAPRIH и SUMMA. Данные находятся в IBQuery. записи в таблице выглядят примерно так: ...

Построение графика... - Delphi
:-[Помогите построить графический редактор, который будет строить элементарные функции,типа cosx,sinx,e...приэтом пользователь должен...

Построение графика - Delphi
Неправильно строиться график, вместо синусоиды строиться линия. В чем причина? unit Unit1; interface uses Windows,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru