Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/30: Рейтинг темы: голосов - 30, средняя оценка - 4.80
5 / 5 / 1
Регистрация: 07.10.2009
Сообщений: 59
1

Как запретить ввод любых символов кроме русских букв и пробела.

07.10.2009, 22:28. Показов 5693. Ответов 4
Метки нет (Все метки)

Здравствуйте, уважаемые форумчане.
Подскажите, пожалуйста, как запретить ввод любых символов кроме русских букв и пробела в строке символов на Паскале ?
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.10.2009, 22:28
Ответы с готовыми решениями:

Как запретить ввод в строку всех символов, кроме 0, 1 и пробела?
как запретить ввод в строку всех символов, кроме 0, 1 и пробела

Как запретить ввод букв и других символов кроме цифр в поле ввода (Entry)
Всем доброго времени суток. Нужна помощь!!! Пишу программу и она должна проводить математические...

Как запретить ввод любых данных кроме цифр?
Необходимо ввести значения нескольких переменных типа (float). Какой командой можно запретить ввод...

Как запретить ввод пробела и букв?
Собственно тут если вводятся буквы, то программа творит что то страшное... Да и через пробел...

__________________
4
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
08.10.2009, 01:51 2
Например вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses
  crt;
var
  c: char;
  simb: set of char;
begin
  clrscr;
  simb := ['А'..'Я','а'..'я',' '];
  write('wwedite simwoly: ');
  while not keypressed do
  begin
    c:=readkey;
    if c in simb then
      write(c);
  end;
end.
1
Модератор
63331 / 47043 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
08.10.2009, 10:16 3
Немного дополню, чтоб был смысл, например ввод и создание строки, а также признак окончания ввода, иначе из предложенной программы не выйти.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses
  crt;
var
  c: char;
  s:string;
  simb: set of char;
begin
  clrscr;
  simb := ['А'..'п','р'..'ё',' '];
  writeln('wwedite simwoly, okonchanie Enter: ');
  s:='';
  repeat
  if keypressed then
   begin
    c:=readkey;
    if c in simb then
     begin
      write(c);
      s:=s+c;
     end;
   end;
  until c=#13;
  writeln;
  write(s);
  readln
end.
1
5 / 5 / 1
Регистрация: 07.10.2009
Сообщений: 59
08.10.2009, 22:35  [ТС] 4
Спасибо за ответ. Но как эту проверку выполнить если пользователь вводит строку символов ?
s:string
0
Модератор
63331 / 47043 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
08.10.2009, 22:39 5
А у меня что вводят, не строку что ли?
s:=s+c; это и есть строка. А состоит строка из отдельных символов. Строка есть массив символов. Строка складывается из символов кодов клавиш, которые вы нажимаете, это символы. Или Вы умеете вводить строку одним нажатием? Тогда я не могу запретить ввод отдельных символов. Хоть что-то читайте, думайте, не позорьтесь со своей безграмотностью.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2009, 22:39

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как в delphi в Edit запретить ввод именно русских символов?
Как в delphi в Edit запретить ввод именно русских символов?

Как запретить ввод всех символов кроме чисел?
Допустим есть программа: var x:integer; begin writeln('Введите число'); readln(x); x:=x*x;...

Как в javaFX запретить ввод в TextField символов кроме цифр и точки?
в javaFX сделать запрет на ввод символов кроме цифр и точки пишу такой код: ...

Организовать ввод в TextBox только русских букв, и максимум 3 пробела
Как реализовать ввод в textbox только русских букв и максимум 3 пробела?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.