Помогите пожалуйста с задачей в Delphi

[Lyoha_78]

Добрый день,Решил спросить у вас совета или помощи.Делаю информатику к сессии.Три задачи вроде решил,на четвёртой засел.Нам нужно составить алгоритм и программу.Запутался с циклами,можно ли вставлять цикл в цикл?У меня не получилось.Нужно чтобы программа перебрала все варианты с "X" и "Y".В приложении выслал условие задачи и то,что у меня получилось.Надеюсь поможете, или хоть подскажите по циклам.И по шестой задаче не пойму что надо сделать.

[Daramant]

Конечно можно вкладывать цикл в цикл, на это нет ограничений).

var
  z, a, b, x0, y0, k, dx, dy, n: Real;
  i, j: Word;
begin
  a := 1.65;
  b := 2.77;
  k := 1;  
  x0 := 1.5;
  y0 := 0.5;
  dx := 0.35;
  dy := 0.25;
  m := 5;
  n := 7;

  for i := 0 to m do begin
    for j := 0 to n do begin
      z := (a/b) * cos(x0 + i*dx) + (b / (y0 + j*dy) + k);
      wrile('  ', z:5:2);
    end;
    writeln;
  end;

end.

Я сделал вывод найденных значений на экран в виде матрицы.

6-я задача тоже простая:
идешь по массиву
for i := 1 to ArrayLength-1 do
и находишь модуль суммы i и i+1 элементов.
Наименьший и будет ответом.

Удачи.

[Lyoha_78]

А ты мою прогу не смотрел?В чём я ошибся то?

[Daramant]

Вместо этого:

j:=1;x:=x0;
  repeat
   y:=y0; e:=0;
   z:=(a/b)*cos(x)+(b/y+k); // это не надо
   otvet.Cells[0,j]:=floattostr(x);
   otvet.Cells[1,j]:=floattostr(y);
   otvet.Cells[2,j]:=floattostr(z);
   j:=j+1; otvet.RowCount:=j+1;
   repeat
   y:=y+dy;
   z:=(a/b)*cos(x)+(b/y+k);
   otvet.Cells[0,j]:=floattostr(x);
   otvet.Cells[1,j]:=floattostr(y);
   otvet.Cells[2,j]:=floattostr(z);
    otvet.RowCount:=j+1;e:=e+1;   until e>=n;

     x:=x+dx;
    until j>=m; // здесь неверно, выполнение заканчивается 
                   // как только j>=m, а должно быть m * n итераций

Сделай так:

...
var 
j, e, v: integer;

...

 j := 1;
 v := 0;
 x := x0;
   repeat
     y := y0;
     e := 0;
       repeat
         y := y + dy;
         z := (a/b)*cos(x)+(b/y+k);

         otvet.Cells[0,j] := floattostr(x);
         otvet.Cells[1,j] := floattostr(y);
         otvet.Cells[2,j] := floattostr(z);

         j := j + 1;
         otvet.RowCount := j;
         e := e + 1;
       until e > n;
     x := x + dx;
     v := v + 1;
    until v > m;

P.S.
Перед присваиванием значений:
a:=strtofloat(zn_a.Text);
проверь, что в zn_a.Text корректные данные.
Это можно сделать функцией TryStrToFloat().