help.Паскаль 7.0.Принадлежность A к B:ошибка в while надо 2 оператора

[koir]

ЗАДАНИЕ:
По предлагаемому алгоритму, написать программу.
На Вход подаются: Два упорядоченных множества A и B (массивы).
Нужно проверить, принадлежит A к B или нет. Если да, то 1, нет, то 0.
Выход: да или нет (1 или 0, true или false).

ОПИСАНИЕ АЛГОРИТМА (по нему программу составит нужно):
i:=1; j:=1; // указатели на начало множеств
пока i№ |A|+1 и j№ |B|+1 цикл
если A[i] < B[j] то вернуть 0 и выход // элемент A отсутствует в B
иначе если A[i] > B[j] то j:=j+1 // переход к след. элементу B
иначе // элементы совпали – перейти к следующим
i:=i+1; j:=j+1;
конец если
конец цикла
если i=|A|+1 то вернуть 1 иначе вернуть 0.<


ЧТО Я ДЕЛУЮ:

uses crt; 
const n=5; 
var a: array [1..n] of integer; 
var b: array [1..n] of integer;
var i,j,x,y: integer; 
begin 
clrscr; 
writeln('a[i]'); 

for i:=1 to n do 
begin write('Eneter ',i,' Element : '); 
readln(x); a[i]:=x; 
end; 

writeln; writeln('b[i]'); 

for i:=1 to n do begin write('Eneter ',i,' Element : '); 
readln(y); b[i]:=y; 
end; 

i:=1; j:=1; 
while (a[i]+1) and (b[i]+1) do 
begin 
if a[i] < a[i]+1 then return 0; 
else 
begin 
if a[i] > b[i] then j:=j+1; 
else i:=i+1; j:=j+1; 
end; 
end;
if i:=a[i]+1 then return 1; else return 0; 

readkey; 
end.

пишет ошибку ((( 40-ю boolean expression expected и скорее, всего по устранению этой ошибки, там будут ещё ошибки. Я новичок, но стараюсь.

СКАЖИТЕ, ЧТО ДЕЛАЮ НЕ ТАК:

Пожалуйста, ответьте, горит.

From Stilet: Что бы ты не делал но пост свой оформляй читабельно - если вставляешь код то оформляй его в специальные теги кода.

[B_N]

А какое выражение Вам нужно в условии цикла? Объединять их можно как угодно с помощью логических операций AND, OR, NOT и скобок, но это должны быть булевы выражения, а не "|A|+1". Пока не совсем ясно, что нужно, посмотрите скажем на поиск подстроки в строке: http://programmersforum.ru/showpost....9&postcount=13 - тоже, своего рода, поиск подмножества.

По второму вопросу

Что такое упорядоченный массив (множество) (не точно знаю)?

Ну как что. Массив, который как-либо упорядочен - по возрастанию, убыванию, чётности и т.п.

[koir]

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

А какое выражение Вам нужно в условии цикла?

ну ведь там указано на вход подаются два множества (массивы). допустим одномерные.

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

Объединять их можно как угодно с помощью логических операций AND, OR, NOT и скобок, но это должны быть булевы выражения, а не "|A|+1". Пока не совсем ясно, что нужно, посмотрите скажем на поиск подстроки в строке: http://programmersforum.ru/showpost....9&postcount=13 - тоже, своего рода, поиск подмножества.

while ( a[i]+1 ) and ( b[i]+1 ) do
все равно пишет ошибку 40-ую . ниже приведу весь код, который написал.

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

По второму вопросу
Ну как что. Массив, который как-либо упорядочен - по возрастанию, убыванию, чётности и т.п.

спасибо, буду теперь точно знать. сомнения были.


Вот, что я делаю:
код переместил в первое сообщение.

[Snoopy]

while ( a[i]+1 ) and ( b[i]+1 ) do
все равно пишет ошибку 40-ую .

Вам же B_N написал что в условиях цикла должно быть логическое выражение
К примеру

while ((a[i]+1)<0) and ((b[i]+1)>0) do