проверить является ли введенная с клавиатуры строка правильной записью вещественного отрицательного числа - Паскаль, Turbo Pascal, PascalABC.NET - Страница 2

Serge_Bliznykov · 26.10.2019, 15:53

Цитата:

Сообщение от tara-ta-ta

if s[1]='-' then

и прежде чем обращаться к первому элементу строки нужно проверить, что длина строки как минимум больше нуля!

а в вашем случае можно смело проверять длину строки на >=4 ("-Ч.Ч")

digitalis · 26.10.2019, 19:01

У нас в деревне делали так:

Код:

          if (Ord(stro[i]) < $30 ) or (Ord(stro[i]) > $39 ) then  // не годится...

Serge_Bliznykov · 26.10.2019, 19:07

Цитата:

Сообщение от digitalis

У нас в деревне делали так:

Зачем у вас в деревне так издевались над собой и над компилятором?
Паскаль прекрасно умеет сравнивать символьные значения:

Код:

if (stro[i] < '0') or (stro[i] > '9') then  // не годится...

digitalis · 26.10.2019, 21:08

Дык это... для надёжности. Вдруг попадется Паскаль, который не умеет

26.10.2019, 19:01	#12
digitalis Старожил Регистрация: 04.02.2011 Сообщений: 4,546	У нас в деревне делали так: Код: `if (Ord(stro[i]) < $30 ) or (Ord(stro[i]) > $39 ) then // не годится...`

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Стек: Проверить, является ли содержимое текстового файла Т правильной записью формулы заданного вида.	JoYeRsOl	Помощь студентам	1	15.10.2019 16:46
Паскаль: является ли введенная с клавиатуры последовательность символов записью двоичного или шестнадцатеричного числа	Студент ММИ	Помощь студентам	12	14.11.2014 14:22
Написать программу, которая проверяет, является ли введенная с клавиатуры строка дробным числом. (язык C)	Степан Симаков	Помощь студентам	3	01.04.2014 23:10
Является ли заданная строка правильной записью вещественного числа с возможным знаком и десятичной точкой	Banny	Паскаль, Turbo Pascal, PascalABC.NET	7	18.12.2008 22:28
Определить, является ли заданная строка правильной записью вещественного числа	Sergik1977	Паскаль, Turbo Pascal, PascalABC.NET	2	18.10.2007 16:53

26.10.2019, 21:08	#14
digitalis Старожил Регистрация: 04.02.2011 Сообщений: 4,546	Дык это... для надёжности. Вдруг попадется Паскаль, который не умеет