Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Все двузначные числа

Автор: Rofar 7.3.2010, 17:08

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

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

Код


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)

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

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

Автор: DarkProg 7.3.2010, 17:19

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

Код


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

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

Автор: Rrader 7.3.2010, 17:31

Код


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

Автор: Rofar 7.3.2010, 17:33

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