простейшая задача на условный оператор, что-то я недопонемаю или запутался:( Опции

[compiler]

Добрый день!
как-то немогу решить простейшую задачу...
нужна функция которая возвращает true если пользователь ввел 1 or true or take or t or yes or y (варианты можете дополнеть самостоятельно..) или false в противном случае...
мой код

function ReadAns():boolean;
	var
		ans:string;
	begin
		readLn(ans);
		if (ans= (( ( ('1') or ('true') ) or  ('take') ) or ( ('t') or (('yes')  or ('y')) ) )) //<==ошибка тут
			then ReadAns:=true
		else ReadAns:=false;
	end;	

заранее благодарен!

[arhimag]

Код

result:=(pos('@'+ans+'@','@1@true@take@t@yes@y@')>0) and (pos('@',ans)=0);

Вот исправленное решение Malice
Объясню, как работает. мы в строке "@1@true@take@t@yes@y@" ищем нашу введеную строку с добавленными к началу и концу символами "@". Если нашли, то этот ответ есть в списке верных, а если нет, то нет. Но для того, что бы не работал пример Volvo, мы проверяем на наличие символа "@" в введенный строке(ни в одном правельном ответе нет символа @)

Пардон. Ошибся, когда перепечатывал.

Сообщение отредактировано: arhimag - 9.04.2007 17:50