Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Вниз

Обработка текста.   Найти похожие ветки 

 
jamHole   (2005-02-25 04:25) [0]

Вопроса у меня 2... Первый: Прога должна уметь перевести число из десятичной системы исчисления в другое с произвольнам основанием и обратно. Как это реализовать - может компонент какой есть?
И второй вопрос... Мне надо из текста взять и перебрать все слова отделенные между собой пробелами... Поясняю: Берм слово из текста - обрабатываем его - сохраняем, потом 2 слово - обрабатываем... и так далее.
Спасибо заранее...


 
DimonS ©   (2005-02-25 10:47) [1]

По второму вопросу. Подключи библиотеку RxLib, она в инете бесплатная, в ней есть очень много функций по работе с текстом, в том числе и та, которая тебе нужна. Можно и без нее обойтись, но гиммору больше будет.


 
DiamondShark ©   (2005-02-25 10:57) [2]

Домашнее задание -- это то, что надо делать самому.


 
Digitman ©   (2005-02-25 11:05) [3]


> с произвольнам основанием


не слишком ли многого хочешь ?

для этого должны быть установлены определенные соглашения о строковом представлении разрядов числа, изображаемого в конкретной системе счисления

скажем, для основания = 2 - это символы "0" и "1"
для основания = 16  - это символы от "0" до "9" и от "A" до "F"

а если тебе взбрендит выбрать основание, например, = 456 ?
ты сам-то можешь себе представить, как должно выглядеть, например, дес.число 10000000 в 456-ричной системе ?

подумай...


 
TUser ©   (2005-02-25 11:23) [4]

1.
var i, n: integer;
   r: string;
begin
i:={decimal};
n:={new base};
r:="";
while i > 0 do begin
r:=inttostr(i mod n)+r;
i:=i div n;
end;
end;

2.
var i: integer;
   buf: string;
begin
buf:="";
for i:=1 to length(S) do
if S[i] = " " then begin
if buf <> "" then
 NewWorld(buf);
buf:="";
end else buf:=buf+S[i];
end;


 
Инструктор   (2005-02-25 11:24) [5]

> [3] Digitman ©   (25.02.05 11:05)

Ну это только к записи относится. А по сути не важно - число оно и в африке число. В частности 10000000(10) будет иметь 4 знака в 456-ой. А уж как нарисовать - дело пятое.


 
Digitman ©   (2005-02-25 11:28) [6]


> Инструктор   (25.02.05 11:24) [5]


> А уж как нарисовать - дело пятое


угу ... здесь главное - найти такой компонент, который хрен знает как это "пятое дело" будет делать)


 
Инструктор   (2005-02-25 11:33) [7]

> [6] Digitman ©   (25.02.05 11:28)

:) А вывод можно и не организовывать на экран одной строкой. Можно сказать - в таком то разряде леджит то-то. И все. А число не рисовать.

Тут кстати один участник писал переводку и возник у него вопрос - почему виндовый ст. калькулятор не работает с дробями кроме 10-й системы.

А по сути тут в [2] все сказано.


 
Инструктор   (2005-02-25 11:35) [8]

> [6] Digitman ©   (25.02.05 11:28)

Единственно. Что ЛЮБОГО - это сильно. :)


 
pasha_golub ©   (2005-02-25 13:02) [9]

TUser ©   (25.02.05 11:23) [4]
Вот не понимаю я тебя. Ты думаешь, никто не мог привести код? Могли. Но люди хотели заставить человека думать, неужели не понятно?


 
jamHole   (2005-03-06 03:34) [10]


> pasha_golub ©   (25.02.05 13:02) [9]

Да код я бы сам придумал! Мне главное идейку, начало, а дальше - как по маслу.


 
Defunct ©   (2005-03-06 03:50) [11]

> а если тебе взбрендит выбрать основание, например, = 456 ?

Хуже если по основанию 4.56570923



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.083 c
14-1109246916
Тульский
2005-02-24 15:08
2005.03.20
Экономические игры


1-1109846602
Urm
2005-03-03 13:43
2005.03.20
Взаимодействуем с Winamp


1-1109841017
Zhekson
2005-03-03 12:10
2005.03.20
{-I} {+I} {IOResult}


1-1109775906
Anatoliy T.
2005-03-02 18:05
2005.03.20
Word - форматирование абзаца


1-1110189703
Хинт
2005-03-07 13:01
2005.03.20
Преобразование имени файла





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский