Процедура в RAD 2010 Delphi

@vao_ · Регистрация: 11.04.2018

Author24 — интернет-сервис помощи студентам

Эта процедура выводит результаты правильно только в первую ячейку, подскажите где ошибка? Где нужно исправить, чтобы во всех ячейках считала правильно?

Delphi

procedure TForm3.FormCreate(Sender: TObject);
Var i,x1,x2,y1,y2:integer;
S:real;
 b:array[1..18] of real;
begin
stringgrid2.Cells[0,0]:= 'period';
stringgrid2.Cells[0,1]:= 'znach';
for I := 1 to 18 do
stringgrid2.Cells[i,0]:=inttostr(i-1);
for I := 1 to 18 do
  begin
  x1:=strtoint(form1.StringGrid1.Cells[i,0]);
  x2:=strtoint(form1.StringGrid1.Cells[i+1,0]);
  y1:=strtoint(form1.StringGrid1.Cells[1,1]);
  y2:=strtoint(form1.StringGrid1.Cells[i+1,1]);
  S:= (y2-y1)/(x2-x1);
  b[i]:= S;
  end;
  for I := 1 to 18 do
  form3.StringGrid2.Cells[i,1]:=formatfloat('0.0',b[i]);
 
end;

@northener · 11.04.2018, 16:20

Посмотрите внимательно на индексы в 14 строке

@Puporev · 11.04.2018, 16:22

y1:=strtoint(form1.StringGrid1.Cells[i,1]);

@vao_ · 11.04.2018, 16:28 **[ТС]**

Спасибо!!!!!

@northener пофигист широкого профиля 4753 / 3188 / 861 Регистрация: 15.07.2013 Сообщений: 18,448
	11.04.2018, 16:20	2
	Посмотрите внимательно на индексы в 14 строке 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.04.2018, 16:22	3
	Сообщение было отмечено ZX Spectrum-128 как решение Решение y1:=strtoint(form1.StringGrid1.Cells[i,1]); 0

@vao_ 0 / 0 / 0 Регистрация: 11.04.2018 Сообщений: 7
	11.04.2018, 16:28 [ТС]	4
	Спасибо!!!!! 0

Процедура в RAD 2010 Delphi

Решение