[es] - Pretvaranje broja u tekst ???

_BloB_
Slobodan Pavkov
www.aspdotnetfaq.com
Kula, Serbia

Član broj: 35144
Poruke: 107
*.nspoint.net.

Sajt: www.aspdotnetfaq.com

Profil

Pretvaranje broja u tekst ???

^{24.05.2005. u 08:59}

Da li se neko bavio vec ovom problematikom ?

recimo za uneti broj: 32512
rutina treba da vrati string:
TridesetDveHiljadePetStotinaDvanaest

ja sam nesto pokusao i to sasvim fino radi ali neki detalji me nerviraju
recimo umesto tridesetdvehiljade
program ispise tridesetdvehiljada...

u pitanju je rekurzivna funkcija pa ima neka ogranicenja koja nisam
uspeo prevazici...

ako nekog zanima sors rado cu ga postovati, mada i nije neka nauka...

cisto me interesuju vasa iskustva sa tim problemom koji se cesto javlja u svakodnevnim aplikacijama posebno za formulare i dokumente...

.. ???

http://www.aspdotnetfaq.com

^{24.05.2005. u 08:59}

bancika
Branislav Stojkovic
Nis, New York

Član broj: 24844
Poruke: 620
213.244.208.*

ICQ: 84215453
Sajt: www.storm-software.co.yu/..

Profil

Re: Pretvaranje broja u tekst ???

^{24.05.2005. u 11:40}

procackaj malo po forumu, bilo je reci o tome

Ride the rainbow, crack the sky

^{24.05.2005. u 11:40}

Bojan Kopanja
Web Developer, Nivalon
Stara Pazova

Član broj: 6155
Poruke: 487
80.93.231.*

ICQ: 346697685
Sajt: www.master-develop.com

Profil

Re: Pretvaranje broja u tekst ???

^{24.05.2005. u 15:59}

Ja sam postavio isto pitanje nedavno i dobio sam ne samo odgovor, vec i ceo kod, koji smo svi po malo doterali i sada imamo fantasticno ne pogresivu funkciju za to sto ti treba... Potrazi to u searchu, bilo je pre mozda mesec dana, posto mene mrzi da trazim ( ako tebe sanog mrzi, zasto bi meni bilo drugacije za tvoje potrebe

)...

ex Strog

http://www.neverne-bebe.com/

^{24.05.2005. u 15:59}

peromalosutra
Ivan Rajkovic
Banjaluka

Član broj: 54774
Poruke: 372
*.dialup.blic.net.

Jabber: peromalosutra@elitesecurity.org
Sajt: computer-stuff.freehostia..

Profil

Re: Pretvaranje broja u tekst ???

^{24.05.2005. u 21:12}

Evo, nasao sam neki svoj stari program, radi samo sa dvocifrenim brojevima, ali lako ces ga dograditi i za cetverocifrene.
I izbjegni onu goto naredbu, ja sam je koristio jer u vrijeme kad sam pisao program nisam ni znao za procedure :)

Code:

Program Trocifreni_brojevi;
Uses WinCrt;
Label 1,2,3;
Var a,d,j:integer;
Begin

1:
Writeln;
Writeln ('Unesi neki dvocifren broj.');
Readln (a);
Write ('Uneseni broj je ');
d:= a div 10;
j:= a mod 10;

If d=1 then goto 2 else goto 3;

2:
If a=11 then write ('Jedanaest.');
If a=12 then write ('Dvanaest.');
If a=13 then write ('Trinaest.');
If a=14 then write ('Cetrnaest.');
If a=15 then write ('Petnaest.');
If a=16 then write ('Sesnaest.');
If a=17 then write ('Sedamnaest.');
If a=18 then write ('Osamnaest.');
If a=19 then write ('Devetnaest.');
Goto 1;

3:
If d=2 then write ('Dvadeset');
If d=3 then write ('Trideset');
If d=4 then write ('Cetrdeset');
If d=5 then write ('Pedeset');
If d=6 then write ('Sesdeset');
If d=7 then write ('Sedamdeset');
If d=8 then write ('Osadeset');
If d=9 then write ('Devedeset');

If j=1 then write ('jedan.');
If j=2 then write ('dva.');
If j=3 then write ('tri.');
If j=4 then write ('cetiri.');
If j=5 then write ('pet');
If j=6 then write ('sest.');
If j=7 then write ('sedam');
If j=8 then write ('osam.');
If j=9 then write ('devet.');
Goto 1;

End.

ivan@ivan-desktop:~$ ./encrypt.run
*** stack smashing detected ***: ./encrypt.run terminated
Aborted (core dumped)

^{24.05.2005. u 21:12}

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 128
*.neobee.net.

Sajt: lovric.narod.ru

Profil

Re: Pretvaranje broja u tekst ???

^{24.05.2005. u 23:04}

Citat:

Strog: Ja sam postavio isto pitanje nedavno i dobio sam ne samo odgovor, vec i ceo kod, koji smo svi po malo doterali

Evo, posto sam ja postavio taj prvobitni kod, da i odgovorim coveku:

http://www.elitesecurity.org/poruka/644085

Ovo je link, ali procitaj sve, nemoj iskoristiti kod na koji prvo naletis, posto ima dosta ispravki do kraja teme.

^{24.05.2005. u 23:04}

_BloB_
Slobodan Pavkov
www.aspdotnetfaq.com
Kula, Serbia

Član broj: 35144
Poruke: 107
*.nspoint.net.

Sajt: www.aspdotnetfaq.com

Profil

Re: Pretvaranje broja u tekst ???

^{25.05.2005. u 06:44}

Dobro, priznajem da nisam prvo pretrazio forum...

Kod do kojeg ste vi dosli je elegantan nema sta... moje cestitke...
moje resenje nije ni upola elegantano... mada nije bas ni brute force...

ali ja sam cepidlaka i nervira me ono
tristasedamdesetdvehiljada...
treba da pise tristasedamdesetdvehiljadE.

ni ja to nisam uspeo lepo da resim... u pitanju je zamrsenost naseg jezika...
cini mi se da bih FloatToCurency za engleski jezik napravio za 5 minuta...

hvala Vuku na tome..

nego, interesuje me ima li neko resenje za taj problem... znaci
da hiljade menja kako je ispravno, da nekada stavi HILJADA a nekad HILJADE ???

poz

http://www.aspdotnetfaq.com

^{25.05.2005. u 06:44}

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 128
*.dial.InfoSky.Net.

Sajt: lovric.narod.ru

Profil

Re: Pretvaranje broja u tekst ???

^{25.05.2005. u 17:53}

Upravu si, ovde postoji jos jedan bug. Probaj da uradis ovo, pa javi rezultate tastiranja:

Code:

     If StrToInt (Trojka [2] + Trojka[3]) <= 5 Then
                Temp := Temp + Prilozi [x, -1] + Prilozi [x, StrToInt (Trojka[2] + Trojka[3])]
              Else
                Temp := Temp + Prilozi [x, -1] + Prilozi [x, 5];

zameni sa

Code:

              If (StrToInt (Trojka [2] + Trojka[3]) <= 5) Or  (StrToInt (Trojka [2] + Trojka[3]) > 20) Then
                Begin
                  If StrToInt (Trojka[3]) <= 5 Then
                    Temp := Temp + Prilozi [x, -1] + Prilozi [x, StrToInt (Trojka[3])]
                  Else
                    Temp := Temp + Prilozi [x, -1] + Prilozi [x, 5];
                End
              Else
                Temp := Temp + Prilozi [x, -1] + Prilozi [x, 5];

Nadam se da je ovo zadnji bug :)

^{25.05.2005. u 17:53}

_BloB_
Slobodan Pavkov
www.aspdotnetfaq.com
Kula, Serbia

Član broj: 35144
Poruke: 107
*.nspoint.net.

Sajt: www.aspdotnetfaq.com

Profil

Re: Pretvaranje broja u tekst ???

^{27.05.2005. u 07:11}

Ljudi svaka cas na pomoci, a posebno tebi Iglo !!!

rutina radi perfektno...

Ofaj forum je zakon !

poz

http://www.aspdotnetfaq.com

^{27.05.2005. u 07:11}