Переделать функцию из Delphi в C++ Builder

@Дикутенз · Регистрация: 25.01.2013

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

Delphi

function TForm1.NK(i,j:integer; Sender:TObject):integer;
var kol:integer;
begin
  kol:=0;
  repeat
      inc(kol);
  until(kol=53)or((Pole[kol].i=i)and(Pole[kol].j=j));
  NK:=kol;
end;

@BRcr · 11.06.2014, 23:11

C++

int __fastcall TForm1::NK( int i, int j, TObject * Sender )
{
    int kol( 0 );
    for( ; ( kol < 53 ) || ( ( Pole[ kol ].i == i ) && ( Pole[ kol ].j == j ) ); ++kol );
    return kol;
}

@Дикутенз · 12.06.2014, 19:24 **[ТС]**

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

( kol < 53 ) || ( ( Pole[ kol ].i == i ) && ( Pole[ kol ].j == j ) )

при таком условии цикл всегда будет доходить до числа 52, т к условие kol<53 выполняется для любых чисел от 0 до 52. Мне нужно найти в массиве Pole из 53 элементов такое чтобы Pole[kol].i=i. Так же с j. Получается, что условие где i и j сравниваются вообще никогда не участвует

@volvo · 12.06.2014, 19:31

C++

1
2
3

    int kol(0);
    for (; (kol != 53) && !((Pole[kol].i == i) && (Pole[kol].j == j)); ++kol);
    return kol;

Как только kol станет равным 53, цикл завершится. Как только при каком-то определенном значении kol содержимое Pole станет удовлетворять условиям - цикл завершится. Это полный аналог паскалевского цикла с repeat/until...

@BRcr · 12.06.2014, 21:19

Че-то фигню я сморозил с этим or...

@Дикутенз 92 / 92 / 99 Регистрация: 25.01.2013 Сообщений: 326
	12.06.2014, 19:24 [ТС]	3
	Сообщение от BRcr ( kol < 53 ) \|\| ( ( Pole[ kol ].i == i ) && ( Pole[ kol ].j == j ) ) при таком условии цикл всегда будет доходить до числа 52, т к условие kol<53 выполняется для любых чисел от 0 до 52. Мне нужно найти в массиве Pole из 53 элементов такое чтобы Pole[kol].i=i. Так же с j. Получается, что условие где i и j сравниваются вообще никогда не участвует 0

@BRcr 4043 / 2332 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	12.06.2014, 21:19	5
	Че-то фигню я сморозил с этим or... 0