Вычислить значение выражения (циклы). Delphi. Проверить код программы

[Дмитрий132]

procedure TForm1.Button1Click(Sender: TObject);
var A:array [ 1..5] of integer; B:array [1..15] of integer;
i, j, a1, b1 : integer;   l,y,z:real;
BEGIN
a1:=strtoint(edit1.text);
b1:=strtoint(edit1.text);
randomize;
y:=1;
l:=0;
z:=((i*a1*a1-j*b1)/(a1+b1));
for i := 1 to 5 do begin
A [ i] := Random(100);
StringGrid2.Cells[1,i]:=inttostr(A[i]);
end;
 for j := 1 to 15 do begin
B [j] := Random(100);
StringGrid1.Cells[1,j]:=inttostr(B[j]);
end;
j:=1;
     for j := 1 to 15 do begin
         for i:=1 to 5 do begin
              y:=y*z;
              end;
              l:=l+y;
              end;
Label4.Caption:=floattostr(z);

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

неверно.
Вам не нужны массивы A и B
нужны скалярные переменные a и b (они у Вас есть).

я вижу решение примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var 
  i, j : integer;
  z, a, b, p : real;
BEGIN
 Label4.Caption := '';
 try
   a := StrToFloat(edit1.text);
 except
   a := 0;
 end;
 try
   b := StrToFloat(edit2.text);
 except
   b := 0;
 end;
 
 if (a+b) = 0 then
     Application.MessageBox('сумма переменных a+b должна быть не равна нулю!',
      'Ошибка ввода', MB_OK or MB_ICONERROR)
 else begin
  z := 0;
  for i:=1 to 15 do begin
    p := 1.0;
    for j:=1 to 5 do
      p := p * ((i*sqr(a)-j*b)/(a+b));
    z := z + p;
  end;
  Label4.Caption := FloatToStr(z);
 end;
end;

[Дмитрий132]

нет просто там необходимо все организовать именно с помощью массивов...

[Дмитрий132]

и обязательно организовать их вывод в стрингрид.

[Аватар]

В вашем коде полная чепуха, там и проверять не чего. Чуть цикл Сержа подправил, что бы в стринггрид вывести. В гриде сделайте 5 колонок и 15 строк (p1: real)

  for i:=1 to 15 do begin
    p := 1.0;
    for j:=1 to 5 do begin
      p1:=((i*sqr(a)-j*b)/(a+b));
      StringGrid1.Cells[j-1,i-1]:=FloatToStr(p1);
      p := p * p1;
    end;
    z := z + p;
  end;