В чем причина ошибки

@Mr_Undexpented · Регистрация: 22.12.2018

Я решил написать математическую программу (график функции) Создал 2 компонента Image (1 для формулы, 2 для координатной плоскости) 2 компонента Edit (Для ввода коэффициентов a и b) и 2 компонента Label напротив Edit, также кнопку "BitBtn1" (для создания графика). Код программы:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
const
mash=100;
var
a,b : integer;
x0,y0: integer;
x,y: Real;
begin
//Очистить рисунок
Image2.Canvas.Pen.Color:=clWhite;
image2.Canvas.Rectangle(0,0,ClientWidth,ClientHeight);
//Считываем коэффициенты
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
//находим центр
x0:=Image2.Width div 2;
y0:=image2.Height div 2;
//рисуем оси
image2.Canvas.Pen.Color:=clGreen;
image2.Canvas.Pen.Width:=2
image2.Canvas.MoveTo(x0,0);
image2.Canvas.LineTo(x0,ClientHeight);
image2.Canvas.MoveTo(0,y0);
image2.Canvas.LineTo(ClientWidth,y0);
 
//рисуем график
image2.Canvas.Pen.Color:=clRed;
image2.Canvas.Pen.Width:=1;
x:=-10;
y:=1/(a*sqr(x)+a*x+b);
image2.Canvas.MoveTo(Trunc(x),Trunc(y));
repeat
x:=x+0.1;
try y=-1/(a*sqr(x)+a*x+b) except y:=0.1 end;
image2.Canvas.LineTo(Trunc(x*mash)+x0,Trunc(y*mash)+y0);
unti1 x>=10;
end;
 
end.

Прошу прислать измененный (правильный код) если возможно

@Алекcей · 05.02.2019, 13:20

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

Добавлено через 6 минут
попробуйте так:

Delphi

//рисуем график
image2.Canvas.Pen.Color:=clRed;
image2.Canvas.Pen.Width:=1;
x:=-10;
y:=1/(a*sqr(x)+a*x+b);
image2.Canvas.MoveTo(Trunc(x),Trunc(y));
repeat
x:=x+0.1;
try y=-1/(a*sqr(x)+a*x+b) except y:=0.1 end;
image2.Canvas.LineTo(Trunc(x*mash)+x0,Trunc(y*mash)+y0);
until x>=10;
end;

@Mr_Undexpented · 05.02.2019, 13:22 **[ТС]**

Я подумал что через Image будет проще, но как оказалось нет. Над этим проектом я работал 4 дня и как то уже обидно будет забрасывать

Добавлено через 2 минуты
Ошибку выдает в этой строке

Delphi

//рисуем оси
image2.Canvas.Pen.Color:=clGreen;
image2.Canvas.Pen.Width:=2
image2.Canvas.MoveTo(x0,0);
image2.Canvas.LineTo(x0,ClientHeight);
image2.Canvas.MoveTo(0,y0);
image2.Canvas.LineTo(ClientWidth,y0);

а именно

Delphi

1	image2.Canvas.MoveTo(x0,0);

@Puporev · 05.02.2019, 13:34

Сообщение от Mr_Undexpented

Ошибку выдает в этой строке

Какую ошибку? Синтаксически вроде все нормально.

@Алекcей · 05.02.2019, 13:56

у ТС не должен скомпилироваться проект т.к. в строке 67 вместо until написано unti1

Добавлено через 18 минут
нашел в чем дело

строка 51 должна быть

Delphi

1	image2.Canvas.Pen.Width:=2;

нет точки с запятой в конце

@Puporev · 05.02.2019, 14:00

Сообщение от Mr_Undexpented

Я подумал что через Image будет проще

Зря так думали. Наоборот проще.
Зайдите в Edit Сhart(нажать правой кнопкой мыши на TChart), выберите серию (LineSeries) уберите 3D

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,y:double;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit1.Text);
x:=-10;
Chart1.Title.Text.Strings[0]:='y=-1/(a*sqr(x)+a*x+b';
Chart1.Legend.Visible:=false;
while x<=10 do
 begin
  y:=-1/(a*sqr(x)+a*x+b);
  series1.AddXY(x,y);
  x:=x+0.01;
 end;
end;

Получите такой график.

@Puporev Модератор 62548 / 46719 / 32201 Регистрация: 18.05.2008 Сообщений: 113,074
	05.02.2019, 13:34	4
	Сообщение от Mr_Undexpented Ошибку выдает в этой строке Какую ошибку? Синтаксически вроде все нормально. 0

Опции темы