Problemer med udregning

glem den øverste "For"

skal du ikke have en begin end i stedet for next ?

og der mangler ; til sidst

og man bruger ikke end if i Delpho

sum := 1;
    For I := 1 To StrToInt(Edit1.Text) Do Begin
        If (I Mod 2) = 0 Then
            sum := sum + 1 / (2 * i + 1)
        Else
            sum := sum - 1 / (2 * i + 1);
    End;
    pi = 4 * sum;

eller sådan noget

problemet er at den giver mig en Integer og Extende fejl... man må åbenbart ikke sige sum := sum i delphi... men hvaaaaaad måååå man så ? :D

hvilken data type har du erklæret sum som ?

integer

det skal nok ændres til double !

har ændret til double, men den giver stadig samme fejl med interger og extend

er pi også double ?

må vi se hele koden ?

unit DDD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
Var sum:double;
Var pi:integer;

begin
sum := 1;
    For i := 1 To StrToInt(Edit1.Text) Do
    Begin
        If i Mod 2 = 0 Then
            sum := sum + 1 / (2 * i + 1)
        Else
            sum := sum - 1 / (2 * i + 1)
    End;
    pi := 4 * sum;
Next

Memo1.Text := IntToStr(pi)

end;

end.

pi skal også være double

unit DDD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
Var sum:double;
Var pi:double;

begin
sum := 1;
    For i := 1 To StrToInt(Edit1.Text) Do
    Begin
        If i Mod 2 = 0 Then
            sum := sum + 1 / (2 * i + 1)
        Else
            sum := sum - 1 / (2 * i + 1)
    End;
    pi := 4 * sum;


Memo1.Text := pi;

end;


end.

fejlen kommer i Memo1.Text ...
den kan ikke være string og double siger den

Den skal konverteres fra double to string

Memo1.Text := FloatToStr(pi);

drop svar

kommer her

guut :D tusind tak for hjælpen :D