Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
mrrustaksu
0 / 0 / 0
Регистрация: 17.11.2017
Сообщений: 11
1

Запрет на использование букв

17.11.2017, 16:26. Просмотров 809. Ответов 6

Надо чтобы в операторе "ReadLn" запрещалось ввод букв.

Код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Calculator;
uses crt;
label a1;
var
   a:real;
   b:real;
   c:char;
begin
a1:
readln(a);
readln(c);
readln(b);
case c of
'+':a:=a+b;
'-':a:=a-b;
'/':a:=a/b;
':':a:=a/b;
'*':a:=a*b;
end;
writeln('Результат: ',a);
goto a1;
end.
P.S.
Если не сложно скиньте ссылку на Turbo Pascal
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2017, 16:26
Ответы с готовыми решениями:

Запрет на ввод букв
Подскажите как запретить ввод букв, а разрешить только цифр?

Как поставить запрет на ввод букв в форме textBox?
Есть процедура. Что в ней написать, чтобы сделать запрет на ввод букв к...

Найти все группы букв, содержащие наименьшее количество согласных английских букв
В поиске нашёл такую же задачу, только на Delphi Помогите решить задачу: ...

Запрет на использование реестром
Здравствуйте! В реестре прописал запрет на работу с диском С, дальше прописал...

Запрет на использование скриптов
В общем мне нужно для определенных групп пользователей заблокировать...

6
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26151 / 17527 / 6951
Регистрация: 22.10.2011
Сообщений: 30,868
Записей в блоге: 6
17.11.2017, 16:29 2
Лучший ответ Сообщение было отмечено mrrustaksu как решение

Решение

Это невозможно
3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3886 / 2866 / 3641
Регистрация: 05.06.2014
Сообщений: 14,101
17.11.2017, 16:54 3
Цитата Сообщение от mrrustaksu Посмотреть сообщение
ссылку на Turbo Pascal
http://pascal.sources.ru/museum/bp7.htm
1
mrrustaksu
0 / 0 / 0
Регистрация: 17.11.2017
Сообщений: 11
16.07.2018, 12:15  [ТС] 4
Тема закрыта
0
Соколиный глаз
C#
222 / 163 / 112
Регистрация: 25.07.2014
Сообщений: 2,983
Записей в блоге: 10
Завершенные тесты: 2
16.07.2018, 15:29 5
mrrustaksu, Readln - процедура, а не оператор. Если хотите, напишите свой Readln с такой возможностью.
0
alex5code
Aimez-vous les baguettes?
189 / 23 / 26
Регистрация: 25.10.2017
Сообщений: 156
16.07.2018, 19:09 6
Если уже человек делает с CRT, можно считывать нажатие каждой клавиши, и если это не буква, добавлять к строке в консоли. При нажатии enter завершать процедуру.

Добавлено через 1 минуту
А и того лучше, блок try / catch для данного случая, но, судя по стилю кода, это отменяется.
0
Joy
Эксперт Pascal/Delphi
2164 / 1195 / 1434
Регистрация: 29.08.2014
Сообщений: 4,376
17.07.2018, 11:31 7
как вариант:
readln(a); заменить на
Pascal
1
while not TryRead(a) do writeln('Неверный ввод. Должно быть число.');
0
17.07.2018, 11:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.07.2018, 11:31

Запрет ввода букв
Всем доброго вечера. Есть программа, как можно запретить ввод букв или как...

Запрет ввода букв
Доброго времени суток, столкнулся с такой проблемой: есть форма, в этой форме...

Запрет ввод букв
Всем доброго времени суток,нужно в инпут ввести цену на зерно,как можно...


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

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

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