|
Post by bluatigro on Oct 16, 2018 12:23:08 GMT
this function translates a number$ into Esperanto only numbers 0 - 999999
in next weekend i have Esperanto lessons hence this exersize
dim digit$( 9 ) for i = 0 to 9 read d$ digit$( i ) = d$ next i data "nul" , "unu" , "du" , "tri" , "kvar" data "kvin" , "ses" , "sep" , "ok" , "nau"
print esperanto.numero$( "0" ) print esperanto.numero$( "1" ) print esperanto.numero$( "3" ) print esperanto.numero$( "10" ) print esperanto.numero$( "13" ) print esperanto.numero$( "23" ) print esperanto.numero$( "100" ) print esperanto.numero$( "234" ) print esperanto.numero$( "1000" ) print esperanto.numero$( "2345" ) print esperanto.numero$( "10000" ) print esperanto.numero$( "23456" ) print esperanto.numero$( "100000" ) print esperanto.numero$( "234567" )
end function esperanto.numero$( in$ ) uit$ = "" size = len( in$ ) if size > 6 then esperanto.numero$ = "ERARO !!" for d = 1 to size q = val( mid$( in$ , size + 1 - d , 1 ) ) if ( d = 2 or d = 5 ) and q <> 0 then uit$ = "dek " + uit$ end if if ( d = 3 or d = 6 ) and q <> 0 then uit$ = "cent " + uit$ end if if d = 4 then uit$ = "mil " + uit$ if q <> 0 then uit$ = " " + uit$ end if select case q case 0 if size = 1 then uit$ = "nul" case 1 if d = 1 then uit$ = "unu" case else uit$ = digit$( q ) + uit$ end select next d esperanto.numero$ = uit$ end function
|
|