hola a todos, tengo un ejercicio en la facultad el cual es hacer un programa que grafique las funciones aqui pongo una que dio el docente las demas funciones no se como hacerlas me ayudan porfavor
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
cx,cy:integer;
x,y :integer;
procedure Dibujapunto(x,y:real);
end;
var
Form1: TForm1;
implementation
procedure TForm1.Button2Click(Sender: TObject);
begin
dibujapunto(3,4);
end;
procedure TForm1.Button3Click(Sender: TObject);
var a,b:real;
begin
a:= -3;
b:= +3;
x:= trunc(a);
while xdo begin
y:= x;
Dibujapunto(x,y);
x:=x+1;
end;
end;
procedure Tform1.Dibujapunto(x: Real; y: Real);
var rx, ry : integer;
begin
rx:= cx+(trunc(x)*10);
ry:= cy-(trunc(y)*10);
canvas.Pixels[rx,ry]:= clred;
end;
procedure TForm1.Label4Click(Sender: TObject);
begin
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
cx:= strtoint(edit1.Text) ;
cy:= strtoint(edit2.Text) ;
canvas.moveto(cx,0);
canvas.LineTo(cx,1000);
canvas.MoveTo(0,cy);
canvas.LineTo(1000,cy);
end;
end.