Program numbertostrnig; function numtostr(inn: longint): string; { константы для формирования числительных } const arr100 : array[0..9] of string = ('','сто ','двести ','триста ','четыреста ','пятьсот ', 'шестьсот ','семьсот ','восемьсот ','девятьсот '); arr011 : array[0..10] of string = ('','десять ','одиннадцать ','двенадцать ','тринадцать ', 'четырнадцать ','пятнадцать ','шестнадцать ','семнадцать ', 'восемнадцать ','девятнадцать '); arr010 : array[0..9] of string = ('','десять ','двадцать ','тридцать ','сорок ','пятьдесят ', 'шестьдесят ','семьдесят ','восемьдесят ','девяносто '); arr001 : array[0..9] of string = ('','','','три ','четыре ','пять ','шесть ','семь ','восемь ','девять '); arr000 : array[1..2,0..2] of string = (('','один ','два '), ('','одна ','две ')); { массив единиц, зависящих о рода } arrname : array[0..3] of string = ('тысяч','миллион','миллиард'); var sn, ssign, triad, tmps, result : string; triadcount, i, j, err, idx : integer; n, n10, n01, ngender : integer; begin str(abs(inn), sn); { преобразуем число в строку } if inn < 0 then ssign : = '(минус) ' else ssign : = ''; triadcount : = (length(sn)+2) div 3; { количество триад в числе } sn : = copy('000', 1, triadcount*3-length(sn)) + sn; { дополним до полных триад } result : = ''; { обработка триад } for i: =1 to triadcount do begin triad : = copy(sn, 3*i-2, 3); { очередная триада } val (triad[2], n10, err); { десятки } val (triad[3], n01, err); { единицы } for j: =1 to 3 do begin { сканируем цифры триады } val(triad[j], n, err); { очередная цифра триады } case j of 1: result : = result + arr100[n]; { формируем сотни } 2: if n10 = 1 then result : = result + arr011[n01 + 1] { 10..19 } else result : = result + arr010[n]; { 20..90 } 3: if n10 < > 1 then begin ngender : = 1; { род мужской } if i=triadcount-1 then ngender : = 2; { род женский } if n > 2 then result : = result + arr001[n] else result : = result + arr000[ngender, n]; end; end; end; { добавление названий триад } if (n01 = 0) or (n01 > 4) or (n10 = 1) then idx : = 3 else if (n01 > 1) and (n01 < 5) then idx : = 2 else idx : = 1; { idx - для 1, 2 или 5} val(triad, n, err); tmps : = arrname[triadcount-1-i]; { название триады } case triadcount-i of { настроим окончания } 1 : if n < > 0 then begin if idx = 3 then tmps : = tmps + ' ' else if idx = 2 then tmps : = tmps + 'и ' else tmps : = tmps + 'а '; end; 2..6 : if n < > 0 then begin if idx = 3 then tmps : = tmps + 'ов ' else if idx = 2 then tmps : = tmps + 'а ' else tmps : = tmps + ' '; end; else tmps : = ''; end; result : = result + tmps; end; if result = '' then result : = 'ноль'; numtostr : = ssign + result; end; var ns : longint; begin readln(ns); writeln(ns, ' - ', numtostr(ns)); readln; end. должно работать
Спасибо
Популярные вопросы