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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2009, 13:16   #1
Gelu
Новичок
Джуниор
 
Регистрация: 01.03.2009
Сообщений: 1
По умолчанию Pascal задан текст, проверить на условия

в текст входят только цифры и буквы. удовлетворяет ли текст:
1) текст является десятичной записью числа;
2) текст начинается с некоторой ненулевой цифры, за которой следуют буквы и их кол-во равно числовому значению этой цифры;
3)сумма значений цифр этого текста равна длине текста.

первое условие непонятно и как проверить элемент? буква или цифра
Gelu вне форума Ответить с цитированием
Старый 01.03.2009, 13:31   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Проверка символа ch:
Код:
if ch in ['0'..'9'] then
  {---это цифра---}
Или так:
Код:
if (ch>='0') and (ch<='9') then
 {--это цифра--}
Также и на буквы можно проверить..
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проверить блок-схемы. pascal научите Паскаль, Turbo Pascal, PascalABC.NET 2 29.12.2008 19:10
Pascal задача на проверку условия werser Помощь студентам 1 21.12.2008 00:34
Треугольник задан длинами своих сторон: a, b, c. Найти углы треугольника. задача на С++ Wia Помощь студентам 6 13.12.2008 16:13
Выпуклый четырёхугольник(как проверить) Pascal SARA Помощь студентам 12 23.06.2008 19:20