для чисел от1 до 100 организовать вывод их словесного эквивалента C++

[Fackey]

Доброго времени суток )) На с++ нужна программа " для чисел от1 до 100 организовать вывод их словесного эквивалента " может у когонибудь из вас есть рабочий код программы ?) Думаю что тема будет полезна для многих посетителей , которые ищут решение данной проблемы , тут такого в поиске не нашел . Буду благодарен за помощь .

[Stilet]

Не совсем универсально, но работает помаленьку:

#include "stdafx.h"
#include <locale>
char Один[10][20]={"Один","два","три","четыре","пять","шесть","семь","восемь","девять","десять"};
char deca[20]="надцать";
char Десять[10][30]={"двадцать","тридцать","сорок","пятьдесят","шестьдесят","семьдесят","восемдесят","девяносто"};

int _tmain(int argc, _TCHAR* argv[])
{
	int Число=71,k=0;
	char Res[255]="";
	int Десяток=Число/10-2,Единичность=Число%10-1;
	if(Десяток!=-2){	for(int l=0;Десять[Десяток][l];l++) Res[k++]=Десять[Десяток][l];Res[k++]=' ';}
	if(Число>10&&Число<20) k=0; 
	for(int l=0;Один[Единичность][l];l++) Res[k++]=Один[Единичность][l];
	if(Число>10&&Число<20) 
		for(int l=0;deca[l];l++) Res[k++]=deca[l];

	Res[k++]=0;
	setlocale(LC_ALL,"Russian");
	printf("%s",Res);getchar();
	return 0;
}

[Stepler]

В самом простом случае

var dig :array[1..100] of string;
n :integer;
begin
dig[1] := 'one';
dig[2] := 'two';
.
.
.
dig[100] := 'one hundred';
Writeln('Enter n - ');
read(n);
writeln(n,' - ',dig[n]);
end.

Можно немного оптимизировать,занести в массив 1..9,10-20,30,40..100 все недостающие "клеить" из имеющихся.

Упс не заметил что на с++, пусть будет еще и на паскале решение)

[Д_М]

Не совсем универсально...

Для 10 <= N < 20 уж совсем коряво получается.
Надо еще один массив строк заводить.

[Fackey]

Спасибо за помощь )