Lazarus исправте код! - Паскаль, Turbo Pascal, PascalABC.NET

kolian2000 · 30.11.2012, 18:01

Помогите исправить ошыбку в коде!

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  i,j:=Smallint;
  x,y:real;
  a,b,xc,yc,t:real;
  xe,ye,Mx,My:Smallint;
  maxX,maxY,minx,miny:real;

implementation

{$R *.lfm}
Begin
Mx:=800;
My:=640;
t:=0;
i:=detect;initgraph(i,j,);
maxX:=9;
maxY:=9;
minX:=-9;
minY:=-9;
Repeat
x:=2.0*cos(t);
y:=3.0*sin(t);
xe:=round((x-minx)/(maxx-minx)*Mx);
ye:=round(My-(y-miny)/(maxy-miny)*My);
Image.Canvas.Pixels[xe][ye]:=255;
t:=t+0,01;
until
t>2;
end.

grandmixer · 30.11.2012, 18:29

i,j:=Smallint; => i,j:Smallint
пока 1 ошибка

grandmixer · 30.11.2012, 18:30

да что вообще должен делать этот код и что он не делает

kolian2000 · 30.11.2012, 18:46

Когда комплетирую вот ето подчеркивает!
i:=detect;initgraph(i,j,);

grandmixer · 30.11.2012, 19:14

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Graph;

type

{ TForm1 }

TForm1 = class(TForm)
Image: TImage;
procedure FormCreate(Sender: TObject);
procedure ImageClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
i,j:smallint;
x,y:real;
a,b,xc,yc,t:real;
xe,ye,Mx,My:Smallint;
maxX,maxY,minx,miny:real;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ImageClick(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Mx:=800;
My:=640;
t:=0;
i:=detect;
initgraph(i,j,'');
maxX:=9;
maxY:=9;
minX:=-9;
minY:=-9;
Repeat
begin
x:=2.0*cos(t);
y:=3.0*sin(t);
xe:=round((x-minx)/(maxx-minx)*Mx);
ye:=round(My-(y-miny)/(maxy-miny)*My);
Image.Canvas.Pixels[xe][ye]:=255;
t:=t+0.01;
end;
until t>2;
end;

end.

grandmixer · 30.11.2012, 19:18

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Graph;

type

{ TForm1 }

TForm1 = class(TForm)
  Image: TImage;
  procedure FormCreate(Sender: TObject);
  procedure ImageClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
i,j:smallint;
x,y:real;
a,b,xc,yc,t:real;
xe,ye,Mx,My:Smallint;
maxX,maxY,minx,miny:real;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ImageClick(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Mx:=800;
  My:=640;
  t:=0;
  i:=detect;
  initgraph(i,j,'');
  maxX:=9;
  maxY:=9;
  minX:=-9;
  minY:=-9;
  Repeat
        begin
        x:=2.0*cos(t);
        y:=3.0*sin(t);
        xe:=round((x-minx)/(maxx-minx)*Mx);
        ye:=round(My-(y-miny)/(maxy-miny)*My);
        Image.Canvas.Pixels[xe,ye]:=255;
        t:=t+0.01;
        end;
  until t>2;
end;

end.

grandmixer · 30.11.2012, 19:19

рисует красную полудугу какуето =)

kolian2000 · 30.11.2012, 19:39

Ето задание было!

kolian2000 · 30.11.2012, 19:44

З етой строкой что то не то!Из-за етих скобок('') пустое окно!
initgraph(i,j,'');

grandmixer · 30.11.2012, 20:08

Цитата:

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

З етой строкой что то не то!Из-за етих скобок('') пустое окно!
initgraph(i,j,'');

нашел в гугле это:
Procedure InitGraph (Var GraphDriver : Integer; Var GraphMode : Integer;
PathToDriver : String);

скачал лазурас и переписал твой код и у меня все рисует

попробуй так

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Graph;

type

{ TForm1 }

TForm1 = class(TForm)
  Image: TImage;
  procedure FormCreate(Sender: TObject);
  procedure ImageClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
i,j:smallint;
x,y:real;
a,b,xc,yc,t:real;
xe,ye,Mx,My:Smallint;
maxX,maxY,minx,miny:real;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Mx:=800;
  My:=640;
  t:=0;
  i:=detect;
  initgraph(i,j,'');
  maxX:=9;
  maxY:=9;
  minX:=-9;
  minY:=-9;
  Repeat
        x:=2.0*cos(t);
        y:=3.0*sin(t);
        xe:=round((x-minx)/(maxx-minx)*Mx);
        ye:=round(My-(y-miny)/(maxy-miny)*My);
        Image.Canvas.Pixels[xe,ye]:=255;
        t:=t+0.01;
  until t>2;
end;

procedure TForm1.ImageClick(Sender: TObject);
begin

end;


end.

30.11.2012, 19:14	#5
grandmixer Пользователь Регистрация: 30.10.2012 Сообщений: 31	unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, Graph; type { TForm1 } TForm1 = class(TForm) Image: TImage; procedure FormCreate(Sender: TObject); procedure ImageClick(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; i,j:smallint; x,y:real; a,b,xc,yc,t:real; xe,ye,Mx,My:Smallint; maxX,maxY,minx,miny:real; implementation {$R .lfm} { TForm1 } procedure TForm1.ImageClick(Sender: TObject); begin end; procedure TForm1.FormCreate(Sender: TObject); begin Mx:=800; My:=640; t:=0; i:=detect; initgraph(i,j,''); maxX:=9; maxY:=9; minX:=-9; minY:=-9; Repeat begin x:=2.0cos(t); y:=3.0sin(t); xe:=round((x-minx)/(maxx-minx)Mx); ye:=round(My-(y-miny)/(maxy-miny)My); Image.Canvas.Pixels[xe][ye]:=255; t:=t+0.01; end; until t>2; end; end. Последний раз редактировалось grandmixer; 30.11.2012 в 19:19.*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
исправте код	Screame	Microsoft Office Excel	16	11.02.2016 23:30
Исправте код C#	NickJons	Общие вопросы .NET	0	02.11.2012 17:54
Робота с файлами. Исправте код.	aerosm	Помощь студентам	2	02.03.2011 18:05
исправте код(	basav1k	Помощь студентам	1	20.05.2010 12:16

30.11.2012, 18:29	#2
grandmixer Пользователь Регистрация: 30.10.2012 Сообщений: 31	i,j:=Smallint; => i,j:Smallint пока 1 ошибка

30.11.2012, 18:30	#3
grandmixer Пользователь Регистрация: 30.10.2012 Сообщений: 31	да что вообще должен делать этот код и что он не делает

30.11.2012, 18:46	#4
kolian2000 Регистрация: 30.11.2012 Сообщений: 8	Когда комплетирую вот ето подчеркивает! i:=detect;initgraph(i,j,);

30.11.2012, 19:19	#7
grandmixer Пользователь Регистрация: 30.10.2012 Сообщений: 31	рисует красную полудугу какуето =)

30.11.2012, 19:39	#8
kolian2000 Регистрация: 30.11.2012 Сообщений: 8	Ето задание было!

30.11.2012, 19:44	#9
kolian2000 Регистрация: 30.11.2012 Сообщений: 8	З етой строкой что то не то!Из-за етих скобок('') пустое окно! initgraph(i,j,'');