3 / 1 / 3
Регистрация: 11.10.2012
Сообщений: 7
1

Построить график функции с указанием координатных осей, масштаба в Делфи

05.12.2012, 19:43. Показов 2231. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=\frac{4{x}^{2}+5}{4x+8}
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2012, 19:43
Ответы с готовыми решениями:

При изменении интервала график изменяется, но значения координатных осей нет
Помогите, пожалуйста, график он строит от корня, но значения координатных осей не меняет, но я не...

Построить график функции y с указанием координат экстремумов
Построить график функции y с указанием координат экстремумов: f(x):=12*x*(x^3-1)^2 Преподаватель...

Построить окружность, которая проходит через заданную точку и касается обеих координатных осей
Суть задачи: построить окружность, которая проходит через заданную точку (вводится пользователем) и...

Исследовав область определения и выбрав расположение координатных осей на экране и масштаб, построить графики функций
Всем здравствуйте! Может кто-то знает, как написать такую программу. Помогите пожалуйста, очень...

2
2649 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
05.12.2012, 23:08 2
Ну так строй.
Чего ждешь-то ?
0
3 / 1 / 3
Регистрация: 11.10.2012
Сообщений: 7
08.12.2012, 00:08  [ТС] 3
Лучший ответ Сообщение было отмечено dorosch как решение

Решение

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Math, OleCtnrs;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    OleContainer1: TOleContainer;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 Close
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var       n,i:integer;
          x,y:integer;
          Lx, Ly:integer;
          Mx,My:real;
          Xmin, Xmax, Ymin, Ymax: real;
          a,b,h,d,t:real;
Function func(x:real):real;
begin
    func:= (2*sqr(x)-5)/sqrt(sqr(x)-1) ;
end;
 
begin
   Image1.Canvas.Font.Name:='arial';
   Image1.Canvas.Font.Size:=10;
 
 a:=StrToFloat(Edit1.Text);
 b:=StrToFloat(Edit2.Text);
 h:=StrToFloat(Edit3.Text);
 n:=Trunc((b-a)/h);
 
Xmin:=a;
Xmax:=b;
Ymin:=func(a);
Ymax:=func(b);
  for i:=1 to n-1 do begin
    t:=a+i*h;
    d:=func(t);
    if Ymin>d
          then Ymin:=d;
    if Ymax<d
          then Ymax:=d;
  end;
 
with Image1, Canvas do
begin
     Lx:= Width;
     Ly:= Height;
     Mx:= Lx/(Xmax-Xmin);
     My:= Ly/(Ymax-Ymin);
     Brush.Color:= clwhite;
     FillRect(rect(0,0, Width, Height));
     x:=Round(Mx*(a-Xmin));
     y:=Height-Trunc(My*(func(a)-Ymin));
     MoveTo(x,y);
     pen.Color:=clred;
     for i:=1 to n do
     begin
         t:=Xmin+i*h;
              x:=Round(Mx*(t-Xmin));
              y:=Height-Trunc(My*(func(t)-Ymin));
              LineTo(x,y);
     end;
     pen.Color:=clBlack;
     MoveTo(Trunc(width/2),0);
     LineTo(Trunc(width/2),Trunc(height));
     MoveTo(0,Trunc(height/2));
     LineTo(Trunc(width), Trunc(height/2));
 
     TextOut(Trunc(width/2-10), 0, 'y');
     TextOut(Trunc(width-10),Trunc(height/2+3),'x');
 end;
 
end;
 
end.
Добавлено через 48 секунд
не работает, в чем проблема?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2012, 00:08
Помогаю со студенческими работами здесь

Исследовав область определения и выбрав расположение координатных осей на экране и масштаб, построить графики функций
Здравствуйте! Пожалуйста помогите написать программу Вот условие: Исследовав область определения и...

Изобразить график функции в координатных осях
Помогите, пожалуйста, изобразить это в паскале. Заранее спасибо!

Построить график функций с возможностью задания интервала и масштаба
построить график функций с возможностью задания интервала и масштаба

Массив координатных осей
Ребят , не подскажете ,можно ли в автокаде привязываться при помощи объектной привязки к точкам...

Масштабирование координатных осей
Добрый день. У меня есть форма с PictureBox и файл с данными (во вложении). Обычно использовал...

Направление координатных осей
В правилах математики ось Z направлена вверх....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru