🚀 go-pugleaf

Pawel J. Maczewski <pjmacz@slcj.uw.edu.pl> pisze:

>   Pisze bo jestem leniwy ;) Moze ktos juz ma napisana funkcje
> przerabiajaca liczbe na stringa zawierajacego (po polsku) tę liczbe w
> formie "slownie"... ;) np. "sto dwadziescia trzy miliony osiemset
> jedenascie tysiecy sto czternascie". bez czesci ulamkowych moze byc ;) Jak
> nikt nie ma, to przyjdzie samodzielnie pomyslec, ale w taki mroz... lepiej
> mi idzie skladanie kodu z kawalkow ;) 

Jeżeli nie przeraża Cię tłumaczenie z Pascala, to na stronie
http://delphi.cartall.com.pl znajdziesz unit w tym języku.

-- 
Jarek Zgoda
http://www.zgoda.biz/
jabber:jarek@jabberpl.org|ICQ:178306476|GG:3422968|Tlen:jzgoda

Użytkownik "Pawel J. Maczewski" <pjmacz@slcj.uw.edu.pl> napisał:

>  Pisze bo jestem leniwy ;)

Tez jestem, wiec pisze

> Moze ktos juz ma napisana funkcje
> przerabiajaca liczbe na stringa zawierajacego (po polsku) tę liczbe w
> formie "slownie"... ;)

http://www.adares.alpha.pl:10080/Adares/slownie

Hm... Ze niby nie w Pythonie ?
No nic, zaczekam na na "przeklad" z powodow  w/w ;)

--
Adam Karpierz

Użytkownik "Pawel J. Maczewski" <pjmacz@slcj.uw.edu.pl> napisał w wiadomości
news:Pine.OSF.4.21.0301081137540.1528-100000@jasio.slcj.uw.edu.pl...
>WItam,
>  Pisze bo jestem leniwy ;) Moze ktos juz ma napisana funkcje
>przerabiajaca liczbe na stringa zawierajacego (po polsku) tę liczbe w
>formie "slownie"... ;) np. "sto dwadziescia trzy miliony osiemset
>jedenascie tysiecy sto czternascie". bez czesci ulamkowych moze byc ;)

nudzilo mi sie...
--
marcin andrzejewski
m.andrzejewski@dmz.com.pl
keson@post.pl

def strnum(num):
    word= {'0':'',
        '1':'jeden ',
        '2':'dwa ',
        '3':'trzy ',
        '4':'cztery ',
        '5':'pięć ',
        '6':'sześć ',
        '7':'siedem ',
        '8':'osiem ',
        '9':'dziewięć ',
        '10':'dziesięć ',
        '11':'jedenaście ',
        '12':'dwanaście ',
        '13':'trzynaście ',
        '14':'czternaście ',
        '15':'piętnaście ',
        '16':'szesnaście ',
        '17':'siedemnaście ',
        '18':'osiemnaście ',
        '19':'dziewiętnaście ',
        '20':'dwadzieścia ',
        '30':'trzydzieści ',
        '40':'czterdzieści ',
        '50':'pięćdziesiąt ',
        '60':'sześćdziesiąt ',
        '70':'siedemdziesiąt ',
        '80':'osiemdziesiąt ',
        '90':'dziewięćdziesiąt ',
        '100':'sto ',
        '200':'dwieście ',
        '300':'trzysta ',
        '400':'czterysta ',
        '500':'pięćset ',
        '600':'sześćset ',
        '700':'siedemset ',
        '800':'osiemset ',
        '900':'dziewięćset '
    }
    tys=(('','',''),
            ('tysiąc ','tysiące ','tysięcy '),
            ('milion ','miliony ','milionów '),
             ('miliard ','miliardy ','miliardów '))

    wynik=''
    ind1=0
    while (num<>0):
        s=num%1000
        sto=(s/100)
        dzi=((s-sto*100)/10)
        jed=s-sto*100-dzi*10
        if (jed==1 and dzi==0 and sto==0): ind2=0
        elif (jed>1 and jed <5): ind2=1
        else: ind2=2
        wynik=tys[ind1][ind2] + wynik
        if (dzi==1): wynik=word[str(sto*100)]+word[str(dzi*10+jed)]+wynik
        else:
wynik=word[str(sto*100)]+word[str(dzi*10)]+word[str(jed)]+wynik
        num=(num-s)/1000
        ind1=ind1+1
    return wynik

- elif (jed>1 and jed <5): ind2=1
+ elif (jed>1 and jed <5 and dzi==0 and sto==0): ind2=1

--
marcin andrzejewski
m.andrzejewski@dmz.com.pl
keson@post.pl

On Thu, 9 Jan 2003, marcin andrzejewski wrote:

> 
> nudzilo mi sie...

dzieki :-) 
pozdrawiam,
  Kender

-- 
   Pawel J. Maczewski @ HIL
    reg.linux user #281878