[DedAlex]

Snake750,
b:=1=1; то же, что и b:=true;
b:=1=2; => b:=false;
это boolean переменная, и такое присваивание синтаксически вполне корректно.

[Snake750]

я вот перевел эту процедуру,но у меня она не работает из за вот этих ошибок:
1.Error 1 error C2109: subscript requires array or pointer type
2.Error 2 error C2061: syntax error : identifier 'b'
3.Error 4 error C2181: illegal else without matching if
4.Error 5 error C2659: '=' : function as left operand
вот мой код.подскажите что не так

Код:

int kkk(unsigned char ki,unsigned char kj)
{int i,j;
int k,k_min;
bool b;
b=1;
for (i=1;i<=Na;i++)
for (j=1;i<=Nb;j++)
if (p[i,j]==-1)
{k=c[i,j]-alfa[i]-b[j];
if b
{b=0;
ki=i;
kj=j;
k_min=k;
} else if (k<k_min) 
{k_min=k;
ki=k;
kj=j;
}}
kkk=k_min;
}

[Drongo]

А что должна программа делать?

вот мой код.подскажите что не так »

Код:

int kkk(unsigned char ki,unsigned char kj)
{
  int i, j;
  int k, k_min;
  bool b;
  b = 1;

  for(i = 1; i <= Na; i++) // Переменные 'Na' не объявлены
    for(j = 1; i <= Nb; j++)  // Переменные 'Na' не объявлены
       if(p[i,j] == -1){ // Запись массива должна быть такой 'p[i][j]', необъявлены. 
          k = c[i,j] - alfa[i] - b[j]; // Запись массива должна быть такой 'c[i][j]', необъявлены.
          if b{  // // Что с чем сравнивается? Должно быть правильное условие.
            b = 0;
            ki = i;
            kj = j;
            k_min = k;
           }
          else if (k < k_min){
            k_min = k;
            ki = k;
            kj = j;
           }
        }
  kkk = k_min;  // Непонятное присваивание
  // Функция должна вернуть какое-то значение, результат работы. 'return _Возвращаемое_Значение'
}

[Snake750]

if b{ // // Что с чем сравнивается? Должно быть правильное условие. а почему на паскале такое условие катит???

[Drongo]

а почему на паскале такое условие катит??? »

Я ж не создатель языка? Синтаксис такой. Подождите, может знатоки языка подтянутся, подскажут, как правильно перевести эту строчку.

[Snake750]

а ты можешь полностью перевести эту процедуру???

[Drongo]

а ты можешь полностью перевести эту процедуру??? »

К сожалению нет, рад был бы помощь, но не знаю Pascal.

[ganselo]

if b{ // // Что с чем сравнивается? Должно быть правильное условие. а почему на паскале такое условие катит??? »

b булевский тип.
записи

Код:

...
if(b)
{
}...

и

Код:

...
if(b == true)
{
}
...

одинаковы.

[Snake750]

СПАСИБО ОГРОМНОЕ ТОВАРИЩИ.ПРОЦЕДУРКА РАБОТАЕТ.ВЫЛОЖУ КОД МОЖЕТ КОМУ НАДА.ТЕМУ ПОКА НЕ ЗАКРЫВАЙТЕ ПЛЗ

Код:

nt kkk(unsigned char ki,unsigned char kj)
{int i,j;
int k,k_min;
bool b;
b=1;
for (i=1;i<=Na;i++)
for (j=1;i<=Nb;j++)
if (p[i][j]==-1)
{k=(c[i][j]-alfa[i]-betta[j]);
if (b==true)
{b=false;
ki=i;
kj=j;
k_min=k;
} else if (k<k_min) 
{k_min=k;
ki=k;
kj=j;
}}
return k_min;
}

есть ли аналог вот этой функции на си

Код:

inc(f,c[i,j]*p[i,j]);

эта же функция используется с одним аргументом inc(i);
как такое написать на си???