[Pascal] Jak w Pascalu zapisać wczytaną liczbę całkowitą słownie?

Question

Czy może ktoś pomóc mi w kwestii programowania w Pascalu?? Chodzi o słowny zapis wczytanej liczb(y) całkowitej Zamykam. - arnoldziq

gregoryi · Answer

Witam.
Możesz poprzez funkcję IF np.

If (wczytana_cyfra == 5) to przedstawienie_cyfry := pięć

i tak dalej, jeżeli nie będziesz używał liczebników porządkowych to jest wszystko ok. Jeżeli cyfra jest dwu lub więcej znakowa np 33. musisz rozbić ją na dwie 3 i 3. Jedna trójka to trzydzieści a druga to trzy.

Powodzenia.

Falco76 · Answer

Do ilu cyfr masz to zrobić?

Grzesiek1972 · Answer

Nie ma ograniczenia, mają to być liczby całkowite

scotch · Answer

Gory (bez obrazy) lecz z ifami to troszeczkę przesada .Wyobraź sobie program który dla liczby z np 50 zerami robi to poprzez if . Po pierwsze zauważmy że np 2 todwa a 2000 to dwa=tysiące . do tego dochodzą dwadzieścia ,dwieście itp oraz miliony ,tryliony lecz to też są np. dwa miliony Automatycznie liczba ifów nam spada . Pozostaje nam tylko zapakować to do listy lub dzewa (oczywiście dynamicznego ) dodanie procedury wyszukującej - a jest ich też troszeczkę + opakowanie programu i jazda

Grzesiek1972 · Answer

Zapętliłem się na dobre, nie wiem jak dołożyć do tablicy drugi wymiar czyli zapis słowny jedności do następnej tablicy dziesiątek itd. W załączeniu kawałek tego programu

Grzesiek1972 · Answer

Program Konwertuj; {Program konwertuje wprowadzonĄ liczb© cakowitĄ na
zapis sowny}
uses crt;
Var

T1 : array [0..9] of string;
T2 : array [0..9] of string;
T3 : array [0..9] of string;
T4 : array [0..9] of string;
T5 : array [0..5] of string;

Liczba : longint ; {Liczba wczytana do konwersji }
Licznik : byte ; {Ile razy zostaa wykonana p©tla }
Zmienna : longint ; {Warto† "liczby" po dzieleniu DIV }
Koncowka: byte ; {Warto† "Zmiennej" po dzieleniu MOD}
Wynik : byte ; {Dop˘ki bez tekstu to byte}

begin
clrscr;
Write('Podaj liczb© cakowitĄ: ');
Readln(liczba);

If Liczba >0 then
begin
koncowka := liczba mod 10;
liczba := liczba div 10;
end;
Write('liczba / koncowka= ',liczba,' / ', koncowka);

readkey
end.

Falco76 · Answer

Nie trzeba drugiego wymiaru tablicy. Powpisuj w tablice odpowiedzniki słowne JEDNOŚCI, DZIESIĄTEK, SETEK, TYSIĘCY ...:

'zdefiniowanie tablic zawierających wartości słowne odpowiadające
'elementom wartości
varSETKI = Array("", "sto ", "dwieście ", "trzysta ", "czterysta ", _
"pięćset ", "sześćset ", "siedemset ", "osiemset ", "dziewięćset ")

varDZIESIATKI = Array("", "dziesięć ", "dwadzieścia ", "trzydzieści ", _
"czterdzieści ", "pięćdziesiąt ", "sześćdziesiąt ", "siedemdziesiąt ", _
"osiemdziesiąt ", "dziewięćdziesiąt ")

varNASTKI = Array("", "jedenaście ", "dwanaście ", "trzynaście ", _
"czternaście ", "piętnaście ", "szesnaście ", "siedemnaście ", _
"osiemnaście ", "dziewiętnaście ")

varJEDNOSTKI = Array("", "jeden ", "dwa ", "trzy ", "cztery ", _
"pięć ", "sześć ", "siedem ", "osiem ", "dziewięć ")

varTYSIACE = Array("", "tysiąc ", "tysiące ", "tysięcy ")

U ciebie to będzie Var T1=....., Var T2=....... itd.

Promuję tematy:
23.06.2015 Najdłuższy czas lotu dronów typu quadcopter do 2000 zł?

Grzesiek1972 · Answer

dzięki wielkie za pomoc

[Pascal] Jak w Pascalu zapisać wczytaną liczbę całkowitą słownie?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Podsumowanie tematu