Avatar billede happysmile Nybegynder
07. april 2006 - 08:00 Der er 1 kommentar

Integral regning program >Hjælp ! Eksamensprojekt

Hej, jeg har lavet et program, som udregner arealet imellem en parabel.

Giver lige et eksempel for dig ! formlen ser således ud i matematik. y(x)=ax^2+bx+c og så har jeg 2 punkter, nemlig x1 og x2 hvor den skal beregne arealet mellem de 2 punkter og parablen!
Mit problem er så hvordan jeg får en graf frem !

Dette er min kode indtil videre:

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.

Nogle som kan hjælpe med at sige hvordan man får en graf frem, som markerer det område sort, som man har beregnet? Tak !!
Avatar billede friiiiis Novice
10. april 2006 - 10:38 #1
hej...

har du fundet ud af det?? ellers kan jeg godt komme med et par ideer...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester