Вроде на первый взгляд всЁ просто...... - Помощь студентам

Solny6ko YasnoE · 15.09.2007, 21:34

Казалось бы..... что здесь сложного??? Сказали написать прогу на Паскале сумма двух действительных чисел.... В этом нет ничего сложного.... Однако, когда начинаешь вводить буквы она выдает ошибочку!!! Как мне сделать так, чтобы она либо выдавала сообщение "Введите числовой формат!!!", либо просто блокировала все буквы.......
Пожалуйста помогите!!!!!!!!! ОЧЕНЬ НАДО!!!!!!

Заранее огромное спасибо........

mutabor · 15.09.2007, 23:59

d e l e t e d

Carbon · 16.09.2007, 18:05

Ввод с консоли?

Tayfun · 16.09.2007, 19:57

Попробуй через
k:=readkey;
Используя таблицу Ascii кодов пропиши коды цифр через case, а на все остальное выводи сообщение типа ошибка ввода!

SERG1980 · 17.09.2007, 08:23

var k:char;
k:=readkey;
if not (k in['0'..'9',#8])then
begin
writeln('Выбранный вами символ не является числом');
halt;
end;

15.09.2007, 21:34	#1
Solny6ko YasnoE Пользователь Регистрация: 05.05.2007 Сообщений: 31	Вроде на первый взгляд всЁ просто...... Казалось бы..... что здесь сложного??? Сказали написать прогу на Паскале сумма двух действительных чисел.... В этом нет ничего сложного.... Однако, когда начинаешь вводить буквы она выдает ошибочку!!! Как мне сделать так, чтобы она либо выдавала сообщение "Введите числовой формат!!!", либо просто блокировала все буквы....... Пожалуйста помогите!!!!!!!!! ОЧЕНЬ НАДО!!!!!! Заранее огромное спасибо........

15.09.2007, 23:59	#2
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	d e l e t e d The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог Последний раз редактировалось mutabor; 16.09.2007 в 00:01.

16.09.2007, 18:05	#3
Carbon JAVA BEAN Участник клуба Регистрация: 22.04.2007 Сообщений: 1,329	Ввод с консоли? http://i.imgur.com/oCA5O.png

16.09.2007, 19:57	#4
Tayfun Форумчанин Регистрация: 24.06.2007 Сообщений: 351	Попробуй через k:=readkey; Используя таблицу Ascii кодов пропиши коды цифр через case, а на все остальное выводи сообщение типа ошибка ввода! Я не маюсь бездельем, я от него тащусь!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Мой первый макрос	valerij	Microsoft Office Excel	102	19.11.2008 10:45
Первый баг (фото)	mutabor	Свободное общение	1	06.05.2008 11:51
Скока парился ни чё не получилось, а вроде всё просто!	Cherni Voron	Общие вопросы Delphi	14	07.08.2007 16:25
а первый взгляд просто..	Аlex	Win Api	7	05.04.2007 18:34

17.09.2007, 08:23	#5
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	var k:char; k:=readkey; if not (k in['0'..'9',#8])then begin writeln('Выбранный вами символ не является числом'); halt; end;