Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 02.04.2010, 15:00   #1
Местный
 
Аватар для tokitofamily
 
Регистрация: 24.12.2009
Сообщений: 171
Сказал Спасибо: 35
Имеет 9 спасибок в 8 сообщенях
tokitofamily пока неопределено
По умолчанию программка

вобшем нужно написать программку
вводиш число (цифрами )
а выводит значения словами
буду рад любому совету

Добавлено через 1 минуту
забыл сказать что язык С++
__________________
адена мне не нужна , поэтому и продаю
Cижу в ванне, ловлю рыбу. иногда доктор заходит...

Последний раз редактировалось tokitofamily, 02.04.2010 в 15:00. Причина: Добавлено сообщение
tokitofamily вне форума   Ответить с цитированием
Старый 02.04.2010, 16:32   #2
Новичок
 
Регистрация: 02.04.2010
Сообщений: 7
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
Developer пока неопределено
По умолчанию

Это как то так?
Ввод: 1
Вывод: один

Ввод: 10
Вывод: десять
Developer вне форума   Ответить с цитированием
Старый 02.04.2010, 17:33   #3
Новичок
 
Регистрация: 10.11.2009
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
NewBorn пока неопределено
По умолчанию

в экселе есть такой скрипт
NewBorn вне форума   Ответить с цитированием
Старый 02.04.2010, 18:13   #4
Местный
 
Аватар для tokitofamily
 
Регистрация: 24.12.2009
Сообщений: 171
Сказал Спасибо: 35
Имеет 9 спасибок в 8 сообщенях
tokitofamily пока неопределено
По умолчанию

Цитата:
Сообщение от Developer Посмотреть сообщение
Это как то так?
Ввод: 1
Вывод: один

Ввод: 10
Вывод: десять
именно так но значения до 3*********
__________________
адена мне не нужна , поэтому и продаю
Cижу в ванне, ловлю рыбу. иногда доктор заходит...
tokitofamily вне форума   Ответить с цитированием
Старый 02.04.2010, 18:28   #5
Местный
 
Аватар для Proto
 
Регистрация: 09.11.2009
Сообщений: 276
Сказал Спасибо: 32
Имеет 44 спасибок в 25 сообщенях
Proto пока неопределено
По умолчанию

где то в инете скачивал для дела програмку для бух учета , попробуй погуглить
Proto вне форума   Ответить с цитированием
За это сообщение Proto нажился спасибкой от:
Старый 02.04.2010, 20:06   #6
Местный
 
Аватар для tokitofamily
 
Регистрация: 24.12.2009
Сообщений: 171
Сказал Спасибо: 35
Имеет 9 спасибок в 8 сообщенях
tokitofamily пока неопределено
По умолчанию

тока как правильно задать параметры поиска

Добавлено через 1 час 24 минуты
не помогает мне гугль
__________________
адена мне не нужна , поэтому и продаю
Cижу в ванне, ловлю рыбу. иногда доктор заходит...

Последний раз редактировалось tokitofamily, 02.04.2010 в 20:06. Причина: Добавлено сообщение
tokitofamily вне форума   Ответить с цитированием
Старый 02.04.2010, 21:34   #7
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

У меня тоже когда то была надобность в таком коде. Пару лет уже прошло, но получилось найти его у себя в записях. Код не мой, но где нашел уже не помню, автора к сожалению указать не могу.
Код легко расширяется под любые диапазоны чисел.
Код:
const
  Mas1: array['0'..'9', 1..3] of string =
  (('', '', ''),
    ('сто ', '', 'один '),
    ('двести ', 'двадцать ', 'два '),
    ('триста ', 'тридцать ', 'три '),
    ('четыреста ', 'сорок ', 'четыре '),
    ('пятьсот ', 'пятьдесят ', 'пять '),
    ('шестьсот ', 'шестьдесят ', 'шесть '),
    ('семьсот ', 'семьдесят ', 'семь '),
    ('восемьсот ', 'восемьдесят ', 'восемь '),
    ('девятьсот ', 'девяносто ', 'девять '));
  Mas2: array['0'..'9'] of string =
  ('десять ', 'одиннадцать ', 'двенадцать ', 'тринадцать ',
    'четырнадцать ', 'пятнадцать ', 'шестнадцать ', 'семнадцать ',
    'восемнадцать ', 'девятнадцать ');
  Mas3: array['1'..'2'] of string = ('одна ', 'две ');
  Mas4: array['0'..'9', 1..4] of string =
  (('', 'тысяч ', 'миллионов ', 'миллиардов '),
    ('', 'тысяча ', 'миллион ', 'миллиард '),
    ('', 'тысячи ', 'миллиона ', 'миллиарда '),
    ('', 'тысячи ', 'миллиона ', 'миллиарда '),
    ('', 'тысячи ', 'миллиона ', 'миллиарда '),
    ('', 'тысяч ', 'миллионов ', 'миллиардов '),
    ('', 'тысяч ', 'миллионов ', 'миллиардов '),
    ('', 'тысяч ', 'миллионов ', 'миллиардов '),
    ('', 'тысяч ', 'миллионов ', 'миллиардов '),
    ('', 'тысяч ', 'миллионов ', 'миллиардов '));

function GetRepresentationInWords(S: string): string;
var
  i: Byte;
  Str: PChar;
begin

  Result := '';
  if S = '' then
    Exit;
  for i := 1 to Length(S) do
    if S[i] <> '0' then
      Break;
  if i = Length(S) + 1 then
  begin
    Result := 'Ноль';
    Exit
  end;
  Str := @S[1];
  while Length(S) mod 3 <> 0 do
    Insert('0', S, 1);
  for i := Length(S) div 3 downto 1 do
  begin
    if (Str[0] = '0') and (Str[1] = '0') and (Str[2] = '0') then
    begin
      Inc(Str, 3);
      Continue;
    end;
    Result := Result + Mas1[Str[0], 1];
    if Str[1] = '1' then
      Result := Result + Mas2[Str[2]] + Mas4['0', i]
    else
    begin
      Result := Result + Mas1[Str[1], 2];
      if (i = 2) and (Str[2] in ['1'..'2']) then
        Result := Result + Mas3[Str[2]]
      else
        Result := Result + Mas1[Str[2], 3];
      Result := Result + Mas4[Str[2], i];
    end;
    Inc(Str, 3)
  end;
  SetLength(Result, Length(Result) - 1)

end;
Ну и пример использования
Код:
Memo1.Lines.Text := GetRepresentationInWords(IntToStr(2006));
зы: на с++ думаю переделать проблемы не составит?)
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber

Последний раз редактировалось J-Fobos, 02.04.2010 в 21:37.
J-Fobos вне форума   Ответить с цитированием
За это сообщение J-Fobos нажился спасибкой от:
Старый 02.04.2010, 23:55   #8
Местный
 
Аватар для tokitofamily
 
Регистрация: 24.12.2009
Сообщений: 171
Сказал Спасибо: 35
Имеет 9 спасибок в 8 сообщенях
tokitofamily пока неопределено
По умолчанию

J-Fobos, спасиб огромное попробую переделать
__________________
адена мне не нужна , поэтому и продаю
Cижу в ванне, ловлю рыбу. иногда доктор заходит...
tokitofamily вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:34.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!