Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 09.02.2013, 12:18   #1
ANTON1994
Пользователь
 
Регистрация: 09.02.2013
Сообщений: 29
Репутация: 10
По умолчанию Задача на множества.Написать программу не позволяющую вводить буквы русского алфавита.(написать подпрограммой используя процедуры

Задача на множества.Написать программу не позволяющую вводить буквы русского алфавита.(написать подпрограммой используя процедуры ввода и вывода).
ANTON1994 вне форума   Ответить с цитированием
Старый 09.02.2013, 13:08   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Код:
function kk:String;
var s:string; i:integer;c:char;
begin
 repeat c:=readkey;
  if c in ['А'..'я'] then continue;
  s:=s+c;
 until c=13; kk:=s;
end;
Подходит?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 09.02.2013, 13:09   #3
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Код:
function kk:String;
var s:string; i:integer;c:char;
begin
 repeat c:=readkey;
  if c in ['А'..'я'] then continue;
  s:=s+c;
 until c=13; kk:=s;
end;
Подходит?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 09.02.2013, 13:53   #4
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Адрес: RF Moscow
Сообщений: 5,411
Репутация: 2502

icq: 438888048
По умолчанию

Обращаю внимание ТС, что заданное множество зависит от выбранной кодировки:
cp1251: ['А'..'я']
cp866: ['А'..'п', 'р'..'ё']
__________________
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Строки (преобразует все большие буквы русского алфавита в малые, и наоборот) Oraner Паскаль 4 29.11.2012 09:41
Массив МхN содержит буквы русского алфавита, расположенные хаотично. Нужна программа проверки, можно ли составить слово S (Delphi) Галенька Помощь студентам 3 20.01.2012 10:18
написать программу с подпрограммой функции marmarmar Паскаль 0 22.05.2011 12:55
задача со сменой букв русского алфавита koresh3 Assembler 3 04.01.2010 16:52
Как с помощью Microsoft Excel написать программу, позволяющую перемещать предмет на плоскости? Vova4kA Microsoft Office Excel 10 28.05.2008 14:18


19:39.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.