VPF::Все двузначные числа - Форум программистов

Дата 7.3.2010, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 20.10.2009

Репутация: нет
Всего: нет

Помогите написать простейший код для поиска ВСЕХ двузначных чисел...

...просто писать вот так->

Код


if (x>-100) and (x<100) and (x<>-10) and (x<>-9) and ... and (x<>10)

как-то глупо) smile

а хотелось бы что-то типа

Код


if (x>-100) and (x<100) and (x<>-10..10)

а может даже и по-проще как-то можно сделать)

заране спс)))

Дата 7.3.2010, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 4
Всего: 19

Я смотрю у тебя есть и отрицательные числа, так что я думаю вот такой код прокатит

Код


 if Length(inttostr(abs(x)))=2 then showmessage('Двузначные') else showmessage('Не то');

Прости я не помню, но по мойму в uses ещё надо Math добавить.

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

Дата 7.3.2010, 17:31 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Код


if Abs(X) in [10..99] then ShowMessage('Двузначное!');

--------------------

Let's do this quickly!
Rest in peace, Vit!

Дата 7.3.2010, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 20.10.2009

Репутация: нет
Всего: нет

ООО спс))) я про abs вообще забыл))) спасибо что так быстро помагли!!!! тема закрыта!)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »