массив и работа с ним

[lichking]

я написал код для сложения массива и вывод его на экран но все равно выдает ошибку:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
  TForm3 = class(TForm)
    StaticText1: TStaticText;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
s,s2,s3: array [0..1] of string;
e1,e2,e3: array [0..1] of Extended;
i:integer;
begin
s2[0]:=Edit1.Text;
s2[1]:=Edit2.Text;
s3[0]:=Edit3.Text;
s3[1]:=Edit4.Text;
e2[i]:=strtofloat(s2[i]);
e3[i]:=strtofloat(s3[i]);
e1[i]:=e2[i]+e3[i];
for I := 0 to 1 do
form3.StaticText1.Caption:=StaticText1.Caption+floattostr(e1[i]);
end;

end.

[newerow1989]

e2[i]:=strtofloat(s2[i]);

Чему равна переменная i ?

[lichking]

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

e2[i]:=strtofloat(s2[i]);

Чему равна переменная i ?

i- index massiv
подправленная программа:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms,math, Vcl.Dialogs, Vcl.StdCtrls;
type
  TForm3 = class(TForm)
    StaticText1: TStaticText;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  i:integer;
implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
s,s2,s3: array [0..1] of string;
e1,e2,e3: array [0..1] of Extended;

begin
s2[0]:=Edit1.Text;
s2[1]:=Edit2.Text;
s3[0]:=Edit3.Text;
s3[1]:=Edit4.Text;
e2[i]:=strtofloat(s2[i]);
e3[i]:=strtofloat(s3[i]);
e1[i]:=e2[i]+e3[i];
for I := 0 to 1 do
form3.StaticText1.Caption:=StaticText1.Caption+floattostr(e1[i]);
end;

end.

Код нужно правильно оформлять. См. кнопка #
Модератор

[lichking]

что-то не робит поможете?

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
  type
   TComplex = class(TObject)
            private
              { private declarations }
            protected
              { protected declarations }
            public
              { public declarations }

            published
            function slojenie(var A,B :array  of string):string;
              { published declarations }
            end;




type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    StaticText1: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  IM:TComplex;
   i:integer;
s,s2,s3: array [0..1] of string;


implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
s2[0]:=Edit1.Text;
s2[1]:=Edit2.Text;
s3[0]:=Edit3.Text;
s3[1]:=Edit4.Text;


for I := 0 to I do
StaticText1.Caption:=StaticText1.Caption+ Im.slojenie( S2, S3);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin

I:=1;
end;

{ TComplex }

function TComplex.slojenie(var A, B: array of string): string;
var
e1,e2,e3: array [0..1] of Extended;
begin
 for I := 0 to I do
begin
e2[i]:=strtofloat(s2[i]);
e3[i]:=strtofloat(s3[i]);
end;
for I := 0 to I do
e1[i]:=e2[i]+e3[i];
end;
Result:= floattostr(e1);
end.

[Heneken87]

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

for I := 0 to I do
StaticText1.Caption:=StaticText1.Ca ption+ Im.slojenie( S2, S3);
end;

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

for I := 0 to I do
begin
e2[i]:=strtofloat(s2[i]);
e3[i]:=strtofloat(s3[i]);
end;
for I := 0 to I do
e1[i]:=e2[i]+e3[i];
end;

Цикл оформлен неверно.
Вы говорите компилятору начни цикл от i=0 до самой себя// нельзя увеличивать кол-во итераций
Верно будет так: for I := 0 to length(e1)-1 do //Что в переводе на русский, начни цикл от i=0 до длины массива e1 с поправкой на 1 (поправка нужна поскольку длина массива e1 у вас 1, а ячейка начинается с 0)
Или совсем по топорному, длину массива заранее знаем равна 1, соответственно цикл for I := 0 to 0 do

[Serge_Bliznykov]

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

Цикл оформлен неверно.

Это в данном случае безусловно! Причём напрямую I нигде не присваивается, поэтому там может быть не только ноль, а вообще всё что угодно.
Такие "рандомные" циклы от нуля, до неизвестно чего.


но, хотел бы заметить. FYI.

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

начни цикл от i=0 до самой себя//

как ни парадоксально это выглядит, но цикл FOR где и переменная цикла используется в условии начала или окончания цикла - это абсолютно корректно и будет правильно работать.

попробуйте, например.

var n : integer;
begin
   ReadLn(n);
   for n:=1 to n do Write(n,' ');
end.

"секрет" в том, что для цикла FOR сначала вычисляются начальное и конечное выражение, а уже потом идёт присвоение полученного выражения переменной цикла и её инкремент. При этом границы цикла уже зафиксированы не пересчитываются!

p.s. Вас же не смущается запись n:= 2*n+22; тут и слева n и справа n