Напечатать число русскими словами - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

дано натуральное число n(n<=1000). напечатать это число русскими словами.(например: двести сорок один)

Решение задачи: «Напечатать число русскими словами»

textual
Листинг программы
  1.   uses TpCrt;
  2.   type
  3.     nazw = array[0..9] of String[15];
  4.   const
  5.     ed : nazw = ('ноль','один','два','три','четыре','пять','шесть','семь','восемь','девять');
  6.     des: nazw = ('','десять','двадцать','тридцать','сорок','пятьдесят',
  7.                        'шестьдесят','семьдесят','восемьдесят','девяносто');
  8.     sot: nazw = ('','сто','двести','триста','четыреста','пятьсот','шестьсот','семьсот','восемьсот','девятьсот');
  9.     dd : nazw = ('','одинадцать','двенадцать','тринадцать','четырнадцать','пятнадцать',
  10.                        'шестнадцать','семнадцать','восемьнадцать','девятнадцать');
  11.   var
  12.     s,d,e,x : Integer;
  13.     st      : String;
  14.   Begin
  15.     Write('Введите число [0..1000] :'); Readln(x);
  16.    if x=1000 then st:='тысяча' else begin
  17.     s:= x div 100; x:=x mod 100; st:=sot[s];
  18.     d:= x div 10; e:=x mod 10;
  19.     if (d=1) and (e<>0) then st:=st+dd[e]
  20.                         else st:=st+des[d]+ed[e];
  21.    end;
  22.     writeln(st);
  23.     readln;
  24.   End.

Объяснение кода листинга программы

  1. В начале кода объявляются необходимые переменные и типы данных.
  2. Затем идет использование переменной x для чтения числа от пользователя.
  3. Далее происходит проверка, если введенное число равно 1000, то переменной st присваивается значение тысяча. В противном случае, происходит деление числа на 100 и его остаток на 100, после чего присваивается значения переменным s и d.
  4. Затем происходит деление числа на 10 и его остаток на 10, после чего присваивается значения переменным e и d.
  5. Если остаток от деления на 10 равен 1, а остаток от деления на 100 не равен 0, то к переменной st добавляется значение из массива dd с помощью индекса e.
  6. В противном случае, к переменной st добавляются значения из массивов sot, des и ed с использованием соответствующих индексов s, d и e.
  7. Наконец, выводится значение переменной st, которая содержит результат преобразования числа в слова на русском языке.
  8. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы