|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.10.2013, 14:41 | #1 |
Регистрация: 01.10.2013
Сообщений: 3
|
Непростая задача на строки. Turbo Pascal
Зада фрагмент текста. Отредактировать его, заменяя изображения чисел последовательностью числовых триад и пробелов так, чтобы в дробной части числа распологались полные триады (Например, 22452,5276 должно представиться как 22 452,527 600) Буду очень признателен за помощь!
|
01.10.2013, 15:21 | #2 | |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Цитата:
|
|
01.10.2013, 15:26 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
01.10.2013, 15:47 | #4 |
Регистрация: 01.10.2013
Сообщений: 3
|
Вроде всё работает спасибо, кроме Str(n:10:8,Result), подскажите, если не трудно, для чего служит эта функция, если её убрать то в конце нули не ставятся, как можно обойтись без неё?
Последний раз редактировалось alexkolbasnikov; 01.10.2013 в 16:09. |
01.10.2013, 16:01 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
01.10.2013, 18:04 | #6 |
Регистрация: 04.09.2013
Сообщений: 9
|
без форматтера может оказаться трабла при больших числах когда оно представится через Е.
Либо использовать форматер и добивать нужные нули, либо писать собственную функцию представления числа в строку. Либо представлять целую часть с пробелами. потом дробную часть умножить на 10 в нужной степени и опять целую часть представить строкой но уже без пробелов, тогда нужное количество нулей будет. Хотя проще добить до нужного количества нулей ручками в уже существующем коде
Контактные данные: ICQ - 642431158 e-mail - Hedgehog@ukr.net
Чтобы хорошо писать программы - нужно, как минимум, писать программы |
01.10.2013, 19:19 | #7 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Мой вариант.. Код:
|
|
01.10.2013, 21:02 | #8 | |
Регистрация: 04.09.2013
Сообщений: 9
|
Цитата:
Блиииииин а нафига вообще преобразовывать текст в число, когда достаточно просто анализировать текст. Идем по тексту до первой цифры продолжаем пока идут цифры если перед цифрами не стояло запятой или точки то разбиваем на триады если же стояла то копируем как есть. При разбитии на триады надо будет возвращаться от конца последовательности цифр к началу вот и все. И пофиг насколько эти цифры большие и т.д.
Контактные данные: ICQ - 642431158 e-mail - Hedgehog@ukr.net
Чтобы хорошо писать программы - нужно, как минимум, писать программы |
|
01.10.2013, 21:10 | #9 |
Регистрация: 04.09.2013
Сообщений: 9
|
Poma][a у вас все та-же проблема вы разбиваете цифры на триады и после зяпятой. Более того триды у вас разбиваются от начала числа и без учета букв. насколько я понимаю фразу "Стоимость 10000,1 у.е" разобьет "Стоимость 1 000 0,1 у.е0"
Однако не совсем то что надо по заданию П.С. Если ошибся сорри - компилил в голове
Контактные данные: ICQ - 642431158 e-mail - Hedgehog@ukr.net
Чтобы хорошо писать программы - нужно, как минимум, писать программы |
01.10.2013, 21:13 | #10 | |||
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Цитата:
Цитата:
|
|||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal | ExCiTeC | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.01.2013 20:36 |
Turbo Pascal записи, строки | lvl | Помощь студентам | 1 | 21.11.2012 11:47 |
Строки Turbo Pascal | lvl | Помощь студентам | 5 | 13.11.2012 17:11 |
Turbo pascal.Строки. | Avatonk | Помощь студентам | 6 | 24.10.2011 00:16 |
Turbo Pascal 7.0 Строки (String) | Lerank | Помощь студентам | 11 | 16.12.2008 20:27 |