Массив(непарный и парный)

[vovjkee]

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

procedure TForm1.Button3Click(Sender: TObject);
Var
  proizv : Real;
  IsFound : Boolean;
  IsTwin : Boolean;
begin
for j := 1 to 5 do
  Begin
    proizv := 1;
    IsFound := false;
    for i := 1 to 4 do
    Begin
      if (SG1[i, j] > 0) then
      Begin
        if not IsFound then IsFound := true;
        //ищем пару для элемента
        IsTwin := false;
        for k := 1 to 4 do
        Begin
          if (SG1[i, j] = SG1[k, j]) and (k <> i) then  //если значения равны, то
          Begin
            IsTwin := true; //элемент ппарный
            break
          End;
        End;
        if (isTwin) then
          proizv := proizv * (6.4 - SG1[i , j])
        else
          proizv := proizv * (3.2 + SG1[i, j])
      End;
    End;
    if IsFound then
      StringGrid2.Cells[0, j-1] := FloatToStr(proizv);
  End;
end;

опять не показывает, возможно у меня проблемы с Delphi, сейчас переустановлю и отпишусь.

[GetMax]

имхо, на украинском, слова "парный" / "непарный" означают исключительно "чётный" / "нечётный".

Исходя из кода поста #1

if k <> index then
        begin
          if SG1[i, k] = SG1[i, index] then
            p := 1 {элемент парный}
          else
            p := 0; {элемент непарный}
        end;
      end;

Я все же решил, что речь идет именно о равенстве элементов

[vovjkee]

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

Исходя из кода поста #1

if k <> index then
        begin
          if SG1[i, k] = SG1[i, index] then
            p := 1 {элемент парный}
          else
            p := 0; {элемент непарный}
        end;
      end;

Я все же решил, что речь идет именно о равенстве элементов

Я не спорю, все верно, просто у меня траблы с Delphi, не хочет запускать... вылазить ошибка http://i.piccy.info/i7/b98d9930bf416...zymiannyi9.png

http://i.piccy.info/i7/b4c0f84821de3...ynVhKiMCC4.jpg я вот сомневаюсь, что оно считает правильно, допустим пример: допустим первый ряд SG1 числа: 1 2 3 -2 -5
то в ответ должна идти производная положительных чисел тоесть 1*2*3=6

[GetMax]

1 2 3 -2 -5
то в ответ должна идти производная положительных чисел тоесть 1*2*3=6

Считаем что эти числа "непарные", тогда исходя из ваших же условий

 if p = 1 then
        res := 3.2 + SG1[i, j] { непарный 3.2+i }
      else
......
if res > 0 then
      begin
        SG2[i] := SG2[i] * res;
      end;

Результат равный 6 у вас не получится. Или я чего то не понимаю.

[vovjkee]

Результат равный 6 у вас не получится. Или я чего то не понимаю.

Верно, = 6 не выйдет.
Задание звучит так: значения элементов одномерного массива состоят из произведения положительных значений элементов столбцов двумерного массива, тогда пример:
5 9 27 1 -7
2 3 6 -8 -4
7 -5 9 -3 -2
1 3 4 -10 2 , если из произведения положительных значений элементов столбцов двумерного массива,
тогда : 5*2*7*1=70
9*3*3=81
27*6*9*4=5832
1=1
2=2
Должно считать так, если я правильно понял...

[vovjkee]

а можно как-то привязать SG1 к SG2, что бы результат показывало в SG2???

[GetMax]

SG2[0, j-1] := FloatToStr(proizv);

[vovjkee]

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

я, конечно, приношу свои извинения, но,
на мой взгляд, тут типичное языковое взаимонепонимание.

имхо, на украинском, слова "парный" / "непарный" означают исключительно "чётный" / "нечётный".
Никакую пару, на мой взгляд, в данной задаче искать не нужно!

Правильно, пару искать не нужно, нужно сделать, что бы давала ответ - Значения элементов одномерного массива состоят из произведения положительных значений элементов столбцов двумерного массива.

[vovjkee]

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

SG2[0, j-1] := FloatToStr(proizv);

Запустилась, переустановил Делфи и все заработало.