По введённому числу напечатать все натуральные числа X русскими буквами

@demis_mckay · Регистрация: 28.01.2015

Author24 — интернет-сервис помощи студентам

Данную программу я уже больше месяца пытаюсь написать, но ничего не понимаю. В общем, по введённому числу N (1-100) программа должна напечатать все натуральные числа X русскими буквами. Например, для числа 4 программа должна напечатать "один", так как в слове "один" четыре буквы, для числа 9 - "сорок пять". Программа должна быть написанной на циклах. Надеюсь на вашу поддержку, а то эти циклы уже бесят.

@JuriiMW · 23.04.2015, 07:49

Условие запутанное и не полное.
Какое ограничение должно быть для чисел X?
Если до 100, то это одно… А для 1000 уже совсем другое!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Предположим, что для X действует то же ограничение, что и для N.
Тогда давай напишем такую программу вместе.

Во-первых: Необходимо создать 3 массива, которые будут отвечать за числительные.
Первый массив — для формирования единиц.
Второй — для формирования десятков.
И ещё один для числительных от 11 до 19, т.к. эти числительные пишутся одним словом.

Получилось вот так:

Pascal

const
  E : array [1..9] of String = ('один', 'два', 'три', 'четыре', 'пять', 'шесть',
                                'семь', 'восемь', 'девять');
  D : array [1..10] of String = ('десять', 'двадцать', 'тридцать', 'сорок',
                                 'пятьдесят', 'шестьдесят', 'семьдесят',
  O : array [11..19] of String = ('одинадцать', 'двенадцать', 'тринадцать',
                                  'четырнадцать', 'пятнадцать', 'шестнадцать',
                                  'семнадцать', 'восемнадцать', 'девятадцать');
                                 'восемьдесят', 'девяносто', 'сто');

Во-вторых: Создадим функцию, которая будет возвращать строковое представление числа.
Для значений от 1 до 9 и от 11 до 19 всё ясно и так — значения будем просто брать из соответствующих массивов.
А вот для 10 и 20…100 сделаем так:
— выделим десятки и возьмём соответствующее значение из массива;
— выделим единицы и если будут не равны нулю, то добавим к результату пробел и их строковое представление.
Для удобства и простоты восприятия я использую недокументированную конструкцию <Условие> ? <Тогда> : <Иначе>

Pascal

function Num2string(N : Byte) : String;
begin
  case N of
     1..9  : Result := E[N];
    11..19 : Result := O[N];
  else
    Result := D[N div 10] + (N mod 10 > 0 ? ' ' + E[N mod 10] : '');
  end;
end;

В-третьих: Нам потребуется функция, возвращающая число букв в строковом представлении числа без учёта пробелов.

Pascal

function CountLetters(N : Byte) : Byte;
begin
  Result := Num2string(N).Replace(#32, '').Length;
end;

Осталось написать основной модуль программы:

Pascal

begin
  var N := ReadInteger('Введите число (1…100) :');
  var Count := 0;
  for var i := 1 to 100 do
    if CountLetters(i) = N then
      begin
        Count += 1;
        Print(Num2string(i), ' ');
      end;
  if Count = 0 then
    WriteLn('Нет таких чисел от 1 до 100.');
end.

P.S. И ни чего страшного в этих циклах… Тем более таких простых!

@demis_mckay 0 / 0 / 0 Регистрация: 28.01.2015 Сообщений: 5
		1
	По введённому числу напечатать все натуральные числа X русскими буквами 22.04.2015, 22:01. Показов 1869. Ответов 1 Метки нет (Все метки) Данную программу я уже больше месяца пытаюсь написать, но ничего не понимаю. В общем, по введённому числу N (1-100) программа должна напечатать все натуральные числа X русскими буквами. Например, для числа 4 программа должна напечатать "один", так как в слове "один" четыре буквы, для числа 9 - "сорок пять". Программа должна быть написанной на циклах. Надеюсь на вашу поддержку, а то эти циклы уже бесят. 0

	23.04.2015, 07:49

По введённому числу напечатать все натуральные числа X русскими буквами

Решение