Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2013, 16:57   #1
Jalgas-xan
Пользователь
 
Регистрация: 16.01.2013
Сообщений: 12
Печаль Организация процедур: определить, является ли число четырехзначным

дано натуральное число. верно ли, что это число четырехзначное???
please Help Me!!!
Jalgas-xan вне форума Ответить с цитированием
Старый 18.01.2013, 17:00   #2
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

а погуглить не судьба?

http://www.cyberforum.ru/pascal/thread15106.html
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 18.01.2013, 17:44   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

if число>999 then верно else неверно.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.01.2013, 19:08   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
а погуглить не судьба?
в приведенной Вами ссылке не заметил решения проблемы ТС
Цитата:
if число>999 then верно else неверно.
Данный алгоритм скажет что число 10000 является 4-ех значным, что неверно..


UPD Добавил нолик, спасибо!

Точняк.. Косякнул..

Последний раз редактировалось Poma][a; 18.01.2013 в 19:12.
Poma][a вне форума Ответить с цитированием
Старый 18.01.2013, 19:11   #5
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Poma][a, 1000 является 4-значным числом
Множества в паскале только для байта (от 0 до 255).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 18.01.2013, 21:37   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Данный алгоритм скажет что число 10000 является 4-ех значным
Ну если его потом хакнуть то да. Скажет еще как
И даже докажет наличие зеленых человечков в правительстве.

По-моему тема - кросспост...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.01.2013, 22:04   #7
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Да можно и без строк вроде:

Код:
n:=num div 1000;
if (n>0) and (n<10) then WriteLn('Четырехзначное') else ('Не четырехзначное');
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 18.01.2013, 22:15   #8
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Да и делить незачем
Код:
if (num>999) and (num<10000) then WriteLn('Четырехзначное') else writeln('Не четырехзначное');
eoln вне форума Ответить с цитированием
Старый 18.01.2013, 22:20   #9
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Да и делить незачем
Да захотелось мне чей-то соригинальничать...
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 18.01.2013, 22:24   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
захотелось мне чей-то соригинальничать...
Ах вот оно что
Код:
if num in [1000..9999] then WriteLn('Четырехзначное') else writeln('Не четырехзначное');
Freepascal по крайней мере пропускает.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввести число. Определить является ли оно степенью 2. Roman1295 Паскаль, Turbo Pascal, PascalABC.NET 3 23.12.2012 11:50
Определить , является ли заданное число степенью тройки dimanfanat Помощь студентам 9 21.12.2012 16:10
С++ : Определить является ли число простым harvey Помощь студентам 1 02.10.2012 16:40
Определить, является ли число палиндромом Princesse JavaScript, Ajax 9 02.10.2009 00:23
Определить является ли данное число совершенным.. Паскаль. Karabas Помощь студентам 6 23.12.2008 21:53