[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

01.03.2009, 21:34

Djezul

Познающий

Регистрация: 08.12.2008

Сообщений: 58

Провел на форуме:
153361

Репутация: 10

Ребят спасибо , сейчас буду разбираться!

Цитата:

Человек просил на Паскале, а не в делфи

Я уж думал никто не заметил этих слов)))

Цитата:

repeat readln(mystr); Val(mystr, num_int, errorflag); if errorflag = 0 then writeln('not a number'); until (errorflag <> 0);

Попробовал сделать , этот код выводит что не число если вводишь число , и только 2 раз можно сделать ввод кода, потом вылетает(((

Можешь написать пожалуйста код маленькой проги , которая будет проверять является ли введёная строка цифрами или буквами, и если не сложно мож ещё написать код функции для использования её в программах. Хотелось бы так что пишеться name_of_function(name_of_x);
имя функции , а в ней имя переменной которой нужно считать. ТОесть эта функция должна заменять стандартный read но с проверкой! Если от меня чтото понадоиться чем смогу помогу, заранее благодарен!

Последний раз редактировалось Djezul; 01.03.2009 в 21:52..