Запись количественного числа в заданном падеже

[Ксения1206]

Программа записи количественного числа(до 1000) в заданном падеже.
Помогите сделать((

[Stilet]

в заданном падеже.

Чего? Число прописью что ли?

[Ксения1206]

Сообщение от Stilet

Чего? Число прописью что ли?

да,т.е. вводим например число 54 и родительный падеж,он выводит-пятидесяти четырех

[Stilet]

Выкладывал или нет, не помню, ну да ладно:

Function TellMoney(d:Double):String;
const
 	v:array[1..3,1..9] of String=(
	  ('один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять')
	 ,('десять', 'двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто')
	 ,('сто', 'двести', 'триста', 'четыреста', 'пятьсот', 'шестьсот', 'семьсот', 'восемьсот', 'девятьсот')
	);
	tsv:array[1..9] of String = ('тысяча', 'тысячи', 'тысячи', 'тысячи', 'тысяч', 'тысяч', 'тысяч', 'тысяч', 'тысяч');

var s,intt:String;pt,it,imln,imlrd,k,i,m:integer;
begin
 FormatSettings.DecimalSeparator:='.';
 s:=trim(Format('%10.2f',[d]));
 pt:=pos('.',s);
 k:=StrToIntDef(copy(s,1,pt-1),0);
 Result:='';
 if (k>10) and (k<20) then begin
   if(k<>4) then Result:=v[1][k mod 10]+'надцать' else Result:='четырнадцать';
 end else begin
		it:=1; i:=1; imln:=1; imlrd:=1;
		while( k > 0) do begin
     m:= k mod 10;
     if m<>0 then begin

        if imlrd=10 then begin
         i:=1;
         case m of
          1:intt:='миллиард';
          2..4:intt:='миллиарда';
          5..9:intt:='миллиардов';
         end;
         Result:=v[i][m] +' '+ intt + ' ' + Result;
       end else

        if imln=7 then begin
         i:=1;
         case m of
          1:intt:='миллион';
          2,3:intt:='миллиона';
          4..9:intt:='миллионов';
         end;
         Result:=v[i][m] +' '+ intt + ' ' + Result;
       end else

       if it=4 then begin
         i:=1;
         if m<>1 then begin
           Result:=v[i][m] +' '+ tsv[m] + ' ' + Result;
         end else begin
           Result:='одна '+ tsv[m] + ' ' + Result;
         end;
       end else begin
         Result := v[i][m] + ' ' + Result;
       end;

     end;
     k:=k div 10;
     inc(i); inc(it); inc(imln); inc(imlrd);
    end
 end;
 if Result<>'' then Result:=AnsiUpperCase(Result[1])+Copy(Result,2,Length(Result));
 Result:=Result+' грн.';
 if pt<>0 then
  Result:=Result+' '+copy(s,pt+1,Length(s))+' коп.';
end;

Годится?

P.S. Родительность сама оформи.

[Ксения1206]

А по легче есть программа?По-проще я бы так выразилась..

[s-andriano]

Я что-то не углядел в тексте строк типа "одиннадцать", "двенадцать"...
Да и тысячи с миллионами и миллиардами как-то эклектично перемежаются. В принципе, конечно, если программу рассматривать как иллюстрацию возможностей, то - да, в ней показано более одного варианта реализации.

[Ксения1206]

Сообщение от s-andriano

Я что-то не углядел в тексте строк типа "одиннадцать", "двенадцать"...
Да и тысячи с миллионами и миллиардами как-то эклектично перемежаются. В принципе, конечно, если программу рассматривать как иллюстрацию возможностей, то - да, в ней показано более одного варианта реализации.

я написала программу где выводит количественные,но я не знаю как сделать с падежом,оформить((у меня вот 2 варианта..

[Stilet]

Я что-то не углядел в тексте строк типа "одиннадцать", "двенадцать"...

Здесь:

if(k<>4) then Result:=v[1][k mod 10]+'надцать'

Не претендую на овации - мои задачи функция решает.

А по легче есть программа?

Ну извини... Кроме промышленного нет ниче.

Да и тысячи с миллионами и миллиардами как-то эклектично перемежаются.

Нормально там все и с тысячами и с миллионами. А кому надо - подкорректирует как нужно.

если программу рассматривать как иллюстрацию возможностей

Функа промышленная, пока не лажала.

[s-andriano]

>12
дванадцать грн.
>13
тринадцать грн.
>14
четыренадцать грн.
>15
пятьнадцать грн.
>17
семьнадцать грн.
>18
восемьнадцать грн.
>19
девятьнадцать грн.

[Ксения1206]

ребятки помогите пожааааааааааааааааааалуйста((