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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.11.2011, 17:31   #1
Rebelition
Пользователь
 
Аватар для Rebelition
 
Регистрация: 03.06.2011
Сообщений: 33
Сообщение Задача из олимпиады 11 класса

Из олимпиады не смог решить задачу, может кто поможет?
Вкратце: пользователь вводит строку из шести символов состоящая из букв латинского алфавита и цифр. Если строка представляет вид номерного знака машины (типа А123ВС или В432АХ и тд.) то вывести "YES".
Если (АВ12СС, В2345С и т.д.) то "NO".
Rebelition вне форума Ответить с цитированием
Старый 02.11.2011, 17:35   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Дык а в чем сложность?
Самое тупое (в лоб) решение:
Код:
if (s[1] in ['A'..'Z']) and (s[2] in ['1'..'9']) and (s[3] in ['1'..'9']) 
     and (s[4] in ['1'..'9']) and (s[5] in ['A'..'Z']) and (s[6] in ['A'..'Z']) 
then yes
else no
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 02.11.2011, 17:40   #3
Rebelition
Пользователь
 
Аватар для Rebelition
 
Регистрация: 03.06.2011
Сообщений: 33
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
Дык а в чем сложность?
Самое тупое (в лоб) решение:
Код:
if (s[1] in ['A'..'Z']) and (s[2] in ['1'..'9']) and (s[3] in ['1'..'9']) 
     and (s[4] in ['1'..'9']) and (s[5] in ['A'..'Z']) and (s[6] in ['A'..'Z']) 
then yes
else no
Блин, спасибо. Я два дня мозг ломал, а про вот это "in ['1'..'9']" не подумал. Держи плюс)
Rebelition вне форума Ответить с цитированием
Старый 02.11.2011, 17:48   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

А еще если по каким-то причинам не нравится ['1'..'9'], то в Паскале есть процедура val для преобразования строки в число.

Цитата:
Держи плюс)
Нельзя изменять репутацию пока у самого репутация меньше 30 или 40)
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 02.11.2011, 17:52   #5
Rebelition
Пользователь
 
Аватар для Rebelition
 
Регистрация: 03.06.2011
Сообщений: 33
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
Нельзя изменять репутацию пока у самого репутация меньше 30 или 40)
Ну тогда жди, пока наберу)
Rebelition вне форума Ответить с цитированием
Старый 02.11.2011, 19:44   #6
Naive
Раздолбайских Дел
Старожил
 
Аватар для Naive
 
Регистрация: 22.05.2009
Сообщений: 3,828
По умолчанию

А буквы могут ли маленькими быть? и считается ли номерным знаком "Q007WZ"? я таких не встречал пока=)
Alar, верни репу!
Naive вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача для 8 класса Анастасия_ns Паскаль, Turbo Pascal, PascalABC.NET 1 20.05.2011 04:33
Задача Областной олимпиады!! Помогите) pascal1994 Помощь студентам 4 09.02.2009 18:12
Задача с олимпиады Xardas Помощь студентам 4 29.02.2008 19:00
Задача с олимпиады Xardas Помощь студентам 5 27.02.2008 23:38
Паскаль. задача с олимпиады SoulFlyMF Помощь студентам 2 13.11.2007 20:52