Разработка Windows-приложения «Склонение числительных» средствами Borland Delphi

   tt := 'Ста тысячами ';

   pt := 'Ста тысячах  ';

  end

else

  begin

   p := length(s);  // Считаем  длину принятого "числа"

   pp := p;

   if p > 1 then  // Число  не 1 значное

    if (s[p - 1] = '1') and (s[p] >= '0') then  // Проверяем, заканчивается  ли число на 10...19 (пример: 10, 110, 211)

     begin

      t := b[strtoint(s[p])];

      rt:= rb[strtoint(s[p])];

      dt:= db[strtoint(s[p])];

      tt:= tb[strtoint(s[p])];

      pt:= pb[strtoint(s[p])];

      pp := pp - 2;

     end;

    i := pp;

    while i > 0 do  // Делим число на отдельные  цифры для определения, нужно  ли будет выводить «тысячи»

     begin

      if (i = p - 3) and (p > 4) then  // Отделяем тысячи

       if s[p - 4] = '1' then  // Склоняем тысячи

        begin

         t := b[strtoint(s[p - 3])] + 'тысяч ' + t;

         rt := rb[strtoint(s[p - 3])] + 'тысяч ' + rt;

         dt := db[strtoint(s[p - 3])] + 'тысячам ' + dt;

         tt := tb[strtoint(s[p - 3])] + 'тысячами ' + tt;

         pt := pb[strtoint(s[p - 3])] + 'тысячах ' + pt;

         i := i - 2;

        end;

       if i > 0 then  // Выявляем конкретное значение  разряда числа

        begin

         k := strtoint(s[i]);

         t := a[p - i, k] + t;

         rt := ra[p - i, k] + rt;

         dt := da[p - i, k] + dt;

         tt := ta[p - i, k] + tt;

         pt := pa[p - i, k] + pt;

         i := i - 1;

        end;

     end;

  end;

// Выводим число в  разных падежах

if padej=0 then

  result := 'И.П.' + #$9 + t;

if padej=1 then

  result := 'Р.П.' + #$9 + rt;

if padej=2 then

  result := 'Д.П.' + #$9 + dt;

if padej=3 then

  result := 'В.П.' + #$9 + t;

if padej=4 then

  result := 'Т.П.' + #$9 + tt;

if padej=5 then

  result := 'П.П.' + #$9 + pt;

end;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Система тестов

 

Открываем файл NumToStr.exe

 

Рис.1

Заходим в меню «Главное», выбираем «Ввести значение».

 

 

Рис.2

Вводим значение.

 

Рис.3

И нажимаем кнопку «Ввести».Смотрим  результат.

 

Рис.4

Для сохранения результата в файл снова заходим в меню «Главное» и нажимаем «Сохранить в файл»

 

Рис.5

Выбираем файл и сохраняем.

 

Рис.6

Смотрим результат в  файле

 

 

Проверка на ввод 0

Рис.7

Рис.8

 

Проверка на ввод числа  больше 100000

Рис.9

Рис.10