IPB
ЛогинПароль:

> простейшая задача на условный оператор, что-то я недопонемаю или запутался:(
compiler
сообщение 9.04.2007 15:34
Сообщение #1


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Добрый день!
как-то немогу решить простейшую задачу...
нужна функция которая возвращает 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;

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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
compiler   простейшая задача на условный оператор   9.04.2007 15:34
volvo   function ReadAns():boolean; var ans: string; beg...   9.04.2007 15:45
compiler   result это аналог return в C? у меня компилятору н...   9.04.2007 16:12
Malice   Вот так можно: ReadAns:=pos ('@'+ans+...   9.04.2007 15:58
volvo   Malice, решение не соответствует заданию: readL...   9.04.2007 16:02
мисс_граффити   result - это переменная, ассоциированная с именем ...   9.04.2007 16:58
volvo   Не может быть... В TP компилятору бы не понравилос...   9.04.2007 17:03
compiler   Не может быть... В TP компилятору бы не понравило...   9.04.2007 17:33
arhimag   result:=(pos('@'+ans+'@...   9.04.2007 17:08
мисс_граффити   arhimag, убедительная просьба проверять код до вык...   9.04.2007 17:25
volvo   Интересно, правда? Какая у тебя совместимость вы...   9.04.2007 17:44
compiler   Интересно, правда? [quote name='volvo' post='9712...   9.04.2007 17:53
volvo   Самой первой строкой программы добавь {$mode ...   9.04.2007 17:59
compiler   Самой первой строкой программы добавь {$mode ...   9.04.2007 18:02
volvo   Это значит, что ты написал программу с использован...   9.04.2007 18:05
мисс_граффити   В связи с изменением направления дискуссии тема пе...   9.04.2007 18:12


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 8.08.2025 4:30
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"