Версия для печати темы

Автор: Uriah 19.11.2006 3:37

дана строка в которую записаны через пробел вещественные числа. необходимо вывести первое и последнее число строки. если есть ошибки в записи чисел, то необходимо вывести сообщение об ошибке в записи.
Подскажите пожалуйста хоть идею.

Автор: volvo 19.11.2006 4:27

Идею? Пожалуйста... Все, что ДО первого пробела - это первое число, значит, Copy(s, 1, Pos(' ', s) - 1) будет хранить строковое представление первого числа... Пытаешься преобразовать его в число через Val... Если будет ошибка (третий параметр НЕнулевой) - значит, выведешь сообщение...

Что касается последнего числа... Тут немного сложнее, придется пробежать по строке (лучше всего - с конца к началу), найти последний пробел, и проделать с остатком строки ПОСЛЕ него то же самое...

Автор: Uriah 19.11.2006 4:41

я так и подразумевал, большое спасибо. Если например первым и последним элементом строки окажется пробел, то можно же и использовать функцию, которая удаляет лишние пробелы, а потом уже выполнять уже написанные вами действия?

Автор: мисс_граффити 19.11.2006 16:07

trim
или свою напиши.