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