Проверить что введено число

@DmitryM5 · Регистрация: 27.08.2013

Добрый вечер! Как проверить в lazarus, что мы ввели именно число, а не произвольные символы?

@Puporev · 04.05.2018, 16:23

Например так.

Pascal

var s:string;
     a,k:integer;
begin
write('Введите число a=');
readln(s);
val(s,a,k);
if k<>0 thwn writeln('Это не целое число');

Так же с вещественным числом.

@D1973 · 05.05.2018, 06:56

@DmitryM5 Консультант Витте 106 / 86 / 45 Регистрация: 27.08.2013 Сообщений: 1,354 Записей в блоге: 1
		1
	Проверить что введено число 04.05.2018, 16:01. Показов 3639. Ответов 2 Метки нет (Все метки) Добрый вечер! Как проверить в lazarus, что мы ввели именно число, а не произвольные символы? 0

@D1973 Модератор 9048 / 5847 / 2333 Регистрация: 21.01.2014 Сообщений: 25,010 Записей в блоге: 3
	05.05.2018, 06:56	3
	TryStrToInt() TryStrToFloat() 1

Опции темы