[Aidar4ig]

Здрасте!! помогите пожалуйста с задачкой!

Даны действительные числа А1,...,А25, B1,...,B25. Члены последовательности C1,...,C25 связаны с членами данных последователей соотношениями С25=0, С25-i=A25-i/B25-i - C25-i + 1 (i=1,..,24). Получить C1,...,C25.

я тут создал три StringGrid. в двух забиваю случайные числа, а в одном хочу вывести правильный ответ!
так вот..... подскажите пожалуйста как решить эту задачку? у ня чё то не получается... я пока смог забить тока случайные числа! а дальше??

[lmikle]

Ну так и считай.

Код:

var
  I : Integer;
  A, B, C : Array [1..25] Of Integer;
begin
  C[25] := 0;
  For I := 24 DownTo 1 Do
    C[25-I] := A[25-I]/B[25-I] - C[25-I+1];
end;

Ну а потом из массива C выводишь в 3й стринггрид.

[Aidar4ig]

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
  A,B:Byte;
   mas:array[1..25,1..25] of SmallInt;
   C : Array [1..25] Of Integer;
     i : Integer;
          begin
  Randomize;           //генератор чисел
  for A:=1 to 25 do
    for B:=1 to 25 do
         begin
   mas[A,B]:=random(100); //забиваем массив случайными числами
   StringGrid1.Cells[0,A-1]:=IntToStr(mas[A,1]); //выводим на экран
    StringGrid1.Cells[1,B-1]:=IntToStr(mas[B,2]); //выводим на экран
         begin
  C[25] := 0;
  For i := 24 DownTo 1 Do
  C[25-i] :=A[25-i]/B[25-i]- C[25-i+1];    
 end;
     StringGrid1.Cells[2,C[25-i]]:=IntToStr (C[25-i]);
 end;
 end;
 end.

ошибка выходит когда в стрингид С забиваю! =( исправьте пожалуйста! а еще программка тож вроде не оч правильно работает! там везде 0 выходит вроде!

[Konrad]

1. C[25-i] :=A[25-i]/B[25-i]- C[25-i+1];
не вяжеться с A,B:Byte;
2. C[25-i] :=A[25-i]/B[25-i]
не вяжеться с C : Array [1..25] Of Integer;

[Aidar4ig]

А как связать?? =)