5 / 0 / 0
Регистрация: 09.05.2013
Сообщений: 18
1

Как создать ограничение? Надо создать ограничение ввода букв, а то программа виснет!

06.09.2013, 17:47. Показов 7627. Ответов 5
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:integer;
 
begin
 
    repeat;
    
    writeln ('Введите число не равное еденице');
    
    readln (a);
 
    until a<>1;
 
readln;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.09.2013, 17:47
Ответы с готовыми решениями:

Ограничение ввода(цифр, букв и символов)
Здравствуйте ! Мне нужно сделать ограничение ввода. Я его прописал, для ввода длины и количества...

Ограничение ввода.(цифр, букв и символов)
Мне нужно сделать ограничение ввода. Условие: 1) ввод 1, 2 или 3, если больше, то сообщение об...

Создать форму,Проверить ограничение
Создать форму(см. картинку) Ограничение для поля &quot;Текст&quot; : текст должен состоять только из одного...

Создать ограничение выделения-копирования
Здравствуйте, Существуют ли возможность написания макроса, который будет ограничивать количесво...

5
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
06.09.2013, 17:54 2
В принципе ввод букв приведет к ошибке, так как readLn приводит введенную строку к типу переменной. Тогда вопрос: как именно она виснет?
0
5 / 0 / 0
Регистрация: 09.05.2013
Сообщений: 18
06.09.2013, 18:11  [ТС] 3
ВАСИЛЕВС, просто висит и ничего не делает
0
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
06.09.2013, 18:24 4
Цитата Сообщение от igroman Посмотреть сообщение
просто висит и ничего не делает
А что ей делать? При вводе она ожидает нажатие Enter. Цикл работает пока не будет введено любое число кроме 1. А дальше опять ждет нажатие Enter.
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
06.09.2013, 18:49 5
Настоящий Фрее не знаю, потому по паскалевски..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b:integer;
    c:char;
    s:string;
begin
clrscr;
repeat
writeln('Введите целое число не равное единице, окончание ввода Enter');
s:='';
repeat
c:=readkey;
if((c='-')and(s=''))or(c in ['0'..'9'])then
 begin
  write(c);
  s:=s+c
 end;
if c=#13 then writeln;
until c=#13;
val(s,a,b);
until a<>1;
write('a=',a);
readln
end.
0
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
07.09.2013, 14:56 6
Проверить соответствие ввода типу real
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.09.2013, 14:56
Помогаю со студенческими работами здесь

Ограничение ввода русских букв в Edit. Всплывающая подсказка над Edit'ом
Добрый день, обращаюсь за помощью по следующим двум вопросам. 1) В Edit нужно чтобы вводились...

Создать ограничение на вводимое символьное значение
Здравствуйте! Я хочу с помощью CHECK создать такое ограничение: в столбце Car_mark первая буква...

Функция: создать ограничение, запрещающее продавать товары если их нет на складе
Нужно создать ограничение, запрещающее продавать товары если их нет на складе Этот код вроде бы...

Как добавить ограничение ввода в метод Add класса BindingSource<string>?
Под ограничением подразумеваю, то же, что и в СУБД. То есть необходимо, чтобы добавление строки...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru