Представление чисел словами

@RomaRi0 · Регистрация: 14.01.2016

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

Здравствуйте. Требуется написать следующую программу.Я ввожу ей число, а программа возвращает строку в которой написано это число. Например ввожу "45" и мне возвращает "сорок пять". Вообще не понимаю как это сделать ну т.е конечно же идеи есть, но мне кажется , что они вообще не рациональны, т.к код будет очень большим. Благодарю за помощь)

@JuriiMW · 18.03.2016, 11:20

Для начала, выпишем несколько числительных:
45 — сорок пять
11 — одиннадцать
6 — шесть
33 — тридцать три
15 — пятнадцать
. . .

Какие можно сделать выводы?
Вот такие:
— числа от 11 до 19 представлены особенным образом – одно слово
— числа до 10 представлены одним словом, а после 20 – двумя, но первое слово означает десятки, а второе (означающее единицы) такое же, как если бы число было меньше 10

Для реализации потребуется несколько массивов:

Code
1
2
3
4
const
  ones : array [1..9] of String = ('один','два','три','четыре','пять','шесть','семь','восемь','девять');
  tens : array [1..9] of String = ('десять','двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят','восемдесят','девяносто');
  elve : array [11..19] of String = ('одиннадцать','двенадцать','тринадцать','четырнадцать','пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать');

@Puporev · 18.03.2016, 11:21

И какой диапазон чисел?

@JuriiMW · 18.03.2016, 11:29

То, что мы сделали описание для чисел только от 1 до 99 включительно, это понятно.
Теперь нужно реализовать получение строкового представления.
Для этого выделим четыре набора чисел:
— десятки — tens
— единицы — ones
— больше 20 — tens + пробел + ones
ну и остаются числа от 11 до 19.

Code
1
2
3
4
5
6
7
8
  if n mod 10 = 0 then
    s := tens[n div 10]
  else if n < 10 then
    s := ones[n]
  else if n > 20 then
    s := tens[n div 10] + ' ' + ones[n mod 10]
  else
    s := elve[n];

Добавлено через 51 секунду
P.S. Дальше, думаю, не сложно будет добавить сотни, тысячи и т.д.

@RomaRi0 · 18.03.2016, 15:44 **[ТС]**

Puporev, ну хотя бы двухзначные

Добавлено через 1 минуту
JuriiMW, спасибо помог))

Добавлено через 3 часа 56 минут
Эй потомки, если вдруг попадете на эту тему вот код)))
Для новичков специально ввел в функцию 2 переменных для лучшего понимания))))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
const
  ones: array[1..9] of string = ('один', 'два', 'три', 'четыре', 'пять', 'шесть', 'сем', 'восемь', 'девять');
  elve: array[11..19] of string = ('одиннадцать', 'двенадцать', 'тринадцать', 'четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать');
  tenes: array[1..9] of string = ('десять', 'двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемдесят', 'девяносто');
 
function take(n: integer): string;
var
  d, e: integer;{d-десятки, e-еденицы}
begin
  
  if n = 0 then take := 'нуль';
  
  if n in [1..9] then take := ones[n];
  
  if n in [11..19] then take := elve[n];
  
  
  
  if n in [10, 20..99] then begin
    if n mod 10 = 0 then take := tenes[n div 10] {если оканчивается на нуль, то отщипляем от числа цифру десятков}
    else begin
      e := n mod 10; {еденицы}
      d := n div 10; {десятки}
      take := tenes[d] + ' ' + ones[e];
    end;
  end;
end;
 
{------------------------------------------}
 
var
  i: integer;
 
begin
  
  repeat
    writeln('Введите число');readln(i);
    
    writeln(take(i));
    
  until false;
end.

P.S возможно алгоритм весьма не логичен, но надеюсь я вам помог)))

Добавлено через 16 минут
Орографических ошибок море((((( P.S я белорус))

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@RomaRi0 2 / 2 / 4 Регистрация: 14.01.2016 Сообщений: 58

	Представление чисел словами 18.03.2016, 11:04. Показов 1193. Ответов 4 Метки нет (Все метки) Здравствуйте. Требуется написать следующую программу.Я ввожу ей число, а программа возвращает строку в которой написано это число. Например ввожу "45" и мне возвращает "сорок пять". Вообще не понимаю как это сделать ну т.е конечно же идеи есть, но мне кажется , что они вообще не рациональны, т.к код будет очень большим. Благодарю за помощь) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.03.2016, 11:21
	И какой диапазон чисел? 0