Hejsa, jeg er igang med et eksamensprojekt og hvis i kan hjælpe mig med dette har i gjort en utrolig god gerning i dag =)
Det handler om at jeg skal lave en graf, som viser den funktion jeg har lavet.
Selve min funktion er en parabel eller linæer funktion.
y= ax^2+bx+c sådan ser den ud.
Jeg har lavet selve programmeringsdelen, men jeg skal bare fx. lave en button, hvor der står "Vis graf" når man trykker på den skal enten et nyt vindue poppe up hvor der kommer en graf frem.... jeg har lavet selve integral regning i dette, dvs. at den skal markere på grafen det område som den har regnet arealet ud på.... og det trænger jeg meget hjælp til !
Selve min kodning ser således ud:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
Edit4: TEdit;
Edit5: TEdit;
Label7: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x, y, tal, start, startdel, slut, a, b, c, N, Areal :real;
i: integer;
begin
Areal:= 0;
start:=StrToFloat(Edit4.Text);
slut:=StrToFloat(Edit5.Text);
N:=(slut-start)/100;
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
For i:=1 to 100 do begin
startdel := start + n*i - n/2;
Y:= a*sqr(startdel) + b*startdel + c;
Areal:= Areal + Y * N;
end;
Label7.caption:= FloatToStr(Areal);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
--------------------
Så er spørgssmålet bare hvordan man laver en popup, hvor der kommer en graf frem af funktionen, hvor arealet som er regnet ud, er markeret med sort! MANGE tak hvis i kan hjælpe mig det betyder meget for mig ! Og skriv det ret pædagogisk hvordan i koder denne graf. Tak !
