 проверка типа переменной |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| BRS |
 12.09.2004 18:32
Сообщение
#1
|
|
Гость  |
Вобщем то только начинаю общаться с паскалем и никак не могу найти решение подобной простой задачи... Опишу на примере:
Пользователь вводит что либо, записываем в А (какого типа должо быть А?) Далее если пользователь ввел цело число - B := A (B - integer)... Как это сделать? |
 
|
|
  |
Ответов
| Бродяжник |
13.09.2004 10:01
Сообщение
#2
|
|
Бывалый  Группа: Пользователи Сообщений: 206 Пол: Мужской Репутация:  3  |
Если задача стоит так - ввести с клавиатуры целое число от 1 до 20, и не дать ввести ничего другого, то:
Для ввода использовать строковую переменную. Затем после ввода перебрать в цикле все символы введенной строки. Если среди них встретилось что-то, кроме цифр 0-9, значит, повторить ввод. Если ничего левого нет, тогда преобразуем строку в целое число с помощью процедуры Val (параметры наизусть не помню). Полученное целое число проверяем на диапазон 1-20. Если не попадает, значит, повторяем ввод. И так до упора. Сообщение отредактировано: Бродяжник - 13.09.2004 16:32 |
   |
|
Сообщений в этой теме
BRS проверка типа переменной 12.09.2004 18:32
Altair Ну пользователь может ввести любой тип, например:
... 12.09.2004 18:39 BRS Задача какраз в том чтобы проверить что вводит пол... 12.09.2004 20:13 Ozzя Вводишь как строку, анализируешь её на предмет нед... 13.09.2004 6:40 BRS что то я плохо понял
например пользователь вводит... 13.09.2004 7:05 Ozzя
Нет это ошибка
Тебе же проще надо! НЕ провер... 13.09.2004 7:47 APAL И зачем такие сложности?
Не проще ли сразу попытат... 13.09.2004 10:20 Бродяжник APAL
всегда приятно узнать что-нибудь полезное... ... 13.09.2004 11:24 Guest 2 Оззя
+ чтоб это было целое число
2 Апал
а попод... 13.09.2004 13:15 APAL Оказалось, что все даже проще чем я думал :)
IORe... 13.09.2004 13:22 Guest А можно ли как нибудь отключить на клавиатуре клав... 13.09.2004 14:02 Ozzя Примерно так
k:=readkey;
if (k>chr... 13.09.2004 14:17 Guest а как зделать чтоб процедура работала всю программ... 13.09.2004 14:32 APAL
Глобальный подход к задаче... :D 13.09.2004 14:33 Guest Ага ) все - пошел регистрироваться ) а то не дело ... 13.09.2004 14:35 BRS зарегился :rolleyes: :) :D 13.09.2004 14:37 APAL
Единственный способ вижу - сделать резидента (на ... 13.09.2004 14:46 BRS тоесть перед началом работы основных процедур впис... 13.09.2004 15:26 Altair
Ну это сложный резидент писать надо, так что тебе... 13.09.2004 16:42 BRS а можно всетаки про функцию подробнее?
че то не по... 13.09.2004 16:54 BRS Function GetKey : Char;
Var Ch : Ch... 13.09.2004 17:13 Altair Послушай, BRS, эта функция никакого не дает преиму... 13.09.2004 17:20 BRS я просто думал что подобное ограничение ввода - то... 13.09.2004 17:25 BRS Раскажите мне кто нибудь подробнее про работу со с... 13.09.2004 17:34 Altair А ФАК я для кого писал????
(ООО, прошу прощения, F... 13.09.2004 17:37 BRS Понял ) исправлюсъ, куда послали туда и отпавлюсь ... 13.09.2004 17:39 APAL Тот пример функции, который я привел для примера -... 13.09.2004 17:42 BRS Блин я запутался
может кто нить мне пример прог... 13.09.2004 18:19 APAL Function CheckNum(St : String) : B... 13.09.2004 18:24 BRS Всем агромное спасибо ) теперь знаю немного больше... 13.09.2004 18:54 APAL спасиба - не булькает :D 13.09.2004 19:12 BRS О! У мня еще вопрос по функции Val появился
Va... 13.09.2004 20:29 GoodWind А не проще ли
var str:string;
... 13.09.2004 20:33 BRS даже насколько я понял несколько больше - еще если... 14.09.2004 6:17 Altair
Именно! :p5:
А хороший у тебя аватар, далеко... 14.09.2004 6:47 Werwolf86
А смысл? Не проще сделать контроль ввода кейсом? ... 14.09.2004 7:20 Werwolf86 например контроль ввода real:
procedure Inputreal... 14.09.2004 7:50 GoodWind function getinteger(min,max:integer)... 14.09.2004 8:18 BlackShadow
Нашёл чем удивить :) 14.09.2004 19:44 Altair ну давай, покажи. 14.09.2004 20:06 GoodWind
Присоединяюсь - оч хочется научиться !
---
Зн... 14.09.2004 21:52 BRS гы ) рульная кошка ) 15.09.2004 14:30 BlackShadow BRS, не в тему, но кошка действительно рулез :D ... 15.09.2004 20:46 Altair
Гыыыыы....
:D
ПОД DOS! 15.09.2004 21:52 GoodWind Под DOS 16.09.2004 22:01 BlackShadow Не, ну народ, это не серьёзно. Под DOS, как два ба... 17.09.2004 21:09 Altair ты код дай... тогда поговорим ... Учти ТОЛЬКО блок... 17.09.2004 21:22 BlackShadow Олег, ты и мёртвого достанешь. Код примерно такой ... 20.09.2004 20:05 Altair Отлично, Черная тень!
Но я знаю как лучше сдел... 21.09.2004 7:03 Romtek var a: integer;
begin
repeat
... 21.09.2004 18:18
Altair Да уж, бред!! :)
Я просто не смотрел.
Зак... 21.09.2004 18:25 |
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 31.07.2025 22:08 |