Operator not applicable to this operand type

@салома · Регистрация: 08.09.2011

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

Delphi

 a:array[1..n,1..n] of longint;
  b:array[1..n]of boolean;
  d:array[1..n] of longint;
  q, i, j, m, v: integer;
-----------------------------------------
 if ((a[v,j] <> -1) and (not b[j]) and (d[v]+a[v,j])) //Operator not applicable to this operand type
     then
         d[j] := d[v] + a[v,j];

не могу понять в чем дело?

@MrOnlineCoder · 14.04.2013, 23:52

А на каком месте (символе) компилятор выдает ошибку?

@cotseec · 14.04.2013, 23:59

Сообщение от салома

не могу понять в чем дело?

Delphi

1	(d[v]+a[v,j])

выражение целочисленного типа (longint), чтобы не было ошибки тут должен быть логический тип (BOOL или Boolean), не знаю логики сравнения, предложу следующие варианты:
1 привести к типу BOOL -

Delphi

1	BOOL(d[v]+a[v,j])

2 сравнить с каким-либо значением (константой) -

Delphi

1	((d[v]+a[v,j])>=MaxInt)

@салома · 15.04.2013, 00:06 **[ТС]**

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

А на каком месте (символе) компилятор выдает ошибку?

в каком конце строки, перед then

Добавлено через 1 минуту

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

Delphi

1	(d[v]+a[v,j])

выражение целочисленного типа (longint), чтобы не было ошибки тут должен быть логический тип (BOOL или Boolean), не знаю логики сравнения, предложу следующие варианты:
1 привести к типу BOOL -

Delphi

1	BOOL(d[v]+a[v,j])

2 сравнить с каким-либо значением (константой) -

Delphi

1	((d[v]+a[v,j])>=MaxInt)

появляется след ошибка, еще более не понятная
'j' expected but 'THEN' found

@cotseec · 15.04.2013, 00:07

Сообщение от салома

появляется след ошибка, еще более не понятная
'j' expected but 'THEN' found

какой теперь код? похоже не все скобки закрыл или еще что-нибудь, лучше покажи всю процедуру

@MrOnlineCoder · 15.04.2013, 00:08

Сообщение от салома

в каком конце строки, перед then

Добавлено через 1 минуту

появляется след ошибка, еще более не понятная
'j' expected but 'THEN' found

Попробуй вставить j в строке где ошибка.

@салома · 15.04.2013, 00:17 **[ТС]**

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

какой теперь код? похоже не все скобки закрыл или еще что-нибудь, лучше покажи всю процедуру

поставил коменты в общих местах

@cotseec · 15.04.2013, 00:29

что должно происходить в этой строке

Delphi

1	if ((a[v,j] <> -1) and (not b[j]) and (d[v]+a[v,j]))

, а именно что необходимо ограничить этим (d[v]+a[v,j])? (разбираться лениво, простое закомментирование {(d[v]+a[v,j])} ошибок не дало, про правильность результата - не знаю)
напиши словами, что проверяется в указанном условии?

@ZfoxAK · 15.04.2013, 11:41

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

(d[v]+a[v,j]))

Здесь происходит сложение двух величин например 100 + 120, а сравнивать то счем? или вместо знака '+' должен быть знака сравнения?

@cotseec · 15.04.2013, 16:28

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

а сравнивать то счем? или вместо знака '+' должен быть знака сравнения?

на это вопрос может ответить тот, кто писал данную программу, для чего-то ведь в сравнения это включено.....

@MrOnlineCoder Всегда онлайн 1084 / 788 / 295 Регистрация: 07.04.2013 Сообщений: 2,703
	14.04.2013, 23:52	2
	А на каком месте (символе) компилятор выдает ошибку? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	15.04.2013, 00:07	5
	Сообщение от салома появляется след ошибка, еще более не понятная 'j' expected but 'THEN' found какой теперь код? похоже не все скобки закрыл или еще что-нибудь, лучше покажи всю процедуру 0

@MrOnlineCoder Всегда онлайн 1084 / 788 / 295 Регистрация: 07.04.2013 Сообщений: 2,703
	15.04.2013, 00:08	6
	Сообщение от салома в каком конце строки, перед then Добавлено через 1 минуту появляется след ошибка, еще более не понятная 'j' expected but 'THEN' found Попробуй вставить j в строке где ошибка. 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	15.04.2013, 11:41	9
	Сообщение от cotseec (d[v]+a[v,j])) Здесь происходит сложение двух величин например 100 + 120, а сравнивать то счем? или вместо знака '+' должен быть знака сравнения? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	15.04.2013, 16:28	10
	Сообщение от ZfoxAK а сравнивать то счем? или вместо знака '+' должен быть знака сравнения? на это вопрос может ответить тот, кто писал данную программу, для чего-то ведь в сравнения это включено..... 0