Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Richik123
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
1

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

12.12.2012, 19:16. Просмотров 256. Ответов 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
Ответы с готовыми решениями:

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

Построение графика
Необходимо построить график по полученным значениям по оси Х /// Входящей...

Построение графика
Неправильно строиться график, вместо синусоиды строиться линия. В чем причина?...

Построение графика
Нужно нарисовать график вот по этой формуле: ...

Построение графика
Ребята, нужна помощь, есть программный код который рисует график функции, но он...

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

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

Построение графика
День добрый. Нужно построить график интеграла: (sqrt((x*x*x)-exp(-x)))/6*x Но...

Построение графика...
:-[Помогите построить графический редактор, который будет строить элементарные...


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

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

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