Символьные типы данных

[...Оленька...]

помогите пожалуйста решить задачу и составить блок схему!
Дано натуральное n(n<=1000). Записать это число русскими словами (семнадцать, двести пятьдесят три, тысяча и т. д.)

[Sasha_Smirnov]

С Новым годом...
1. Открываете любой документ Word.
2. Жмёте сочетание клавиш контрол-F9 (это вставка поля).
3. Между возникшими { } вводите, например, =111 \* cardtext
4. Жмёте F9, затем альт-F9.

Если всё правильно (а любая опечатка сведёт все труды на нет — так что пример лучше не набирать, а копиравать прямо отсюда), в документе увидите:
сто одиннадцать
либо
one hundred eleven
либо
Hundertelf
либо
сто одинадцять

Словом, прочтение числа 111 словами того языка, который в вашем редакторе Wоrd стоит по умолчанию.

P/s: конечно, я помог "так себе", но, надеюсь, был полезен (для текста вашей программы)

[Serge_Bliznykov]

Sasha_Smirnov, -1
какое отношение то, что Вы написали имеет отношение к решению задачи на Паскаль?!!!

___________________________________ __________________
...Оленька...
Тема то избитая... на всех языках можно исходники найти... Вы пробовали поискать?
вот, поиск на Гугле

ну, за пятнадцать минут набросал...
Специально для Вас (т.е. обрабатываются только числа до 1000)

Const
 Sotni    : Array[0..9] Of String[20]=('','сто','двести','триста','четыреста',
           'пятьсот','шестьсот','семьсот','восемьсот','девятьсот');
 Digit21  : Array[0..9] Of String[20]=('десять','одиннадцать','двенадцать',
           'тринадцать','четырнадцать','пятнадцать',
           'шестнадцать','семнадцать','восемнадцать','девятнадцать');
 Desaytki : Array[0..9] Of String[20]=('','','двадцать','тридцать','сорок',
           'пятьдесят','шестьдесят','семьдесят','восемьдесят','девяносто');
 Digit1  : Array[0..9] Of String[20]=('','один','два','три','четыре','пять',
           'шесть','семь','восемь','девять');

Function Sum2Txt(L : LongInt):String;

var STemp : string;
    OneDigit : integer;

begin
 If L=0 Then begin
   Sum2Txt:='Ноль';
   Exit;
 end;
 If L=1000 Then begin
   Sum2Txt:='Тысяча';
   Exit;
 end;
 STemp := '';

 {обработаем сотни}
 if L>99 then begin
   OneDigit := L div 100;
   L := L mod 100;
   STemp := Sotni[OneDigit];
 end;

 {проверяем, если остаток >=10 и <=19}
 if (L>=10) and (L<=19) then
   STemp := STemp + ' ' + Digit21[L-10]
 else begin
   OneDigit := L div 10;
   L := L mod 10;
   STemp := STemp + ' ' + Desaytki[OneDigit];
   if L<>0 then begin
     STemp := STemp + ' ' + Digit1[L];
   end;   
 end;
 
 Sum2Txt:=STemp;
 
End;

var N : integer;
Begin
  WriteLn;
  Write('Введите N (натуральное, N<=1000): ');
  ReadLn(N);
  if (N<0) or (N>1000) then 
    WriteLn('#Ошибка: Неверное число!')
  else 
    WriteLn(N:1,' ',Sum2Txt(N));
End.

[Teor]

Вот мой вариант

program m;
uses crt;
var mas:array[1..3] of integer; i,n:integer;
begin
clrscr;
writeln ('Введите число');
readln (n);
if (n<=0) or (n>1000) then halt;
if n=1000 then write ('тысяча');
for i:=1 to 3 do
begin
mas[i]:=n mod 10;
n:= n div 10;
end;
case mas[3] of
1:write ('сто ');
2:write ('двести ');
3:write ('триста ');
4:write ('четыреста ');
5:write ('пятьсот ');
6:write ('шестьсот ');
7:write ('семьсот  ');
8:write ('восемьсот ');
9:write ('девятьсот ');
end;
case mas[2] of
1:begin
case mas[1] of
1:write ('одинадцать ');
2:write ('двенадцать ');
3:write ('тринадцать ');
4:write ('четырнадцать ');
5:write ('пятнадцать ');
6:write ('шестнадцать ');
7:write ('семнадцать ');
8:write ('восемнадцать ');
9:write ('девятнадцать ');
0:write ('десять ');
end;
end;
2:write ('двадцать ');
3:write ('тридцать ');
4:write ('сорок ');
5:write ('пятьдесят ');
6:write ('шестьдесят ');
7:write ('семьдесят ');
8:write ('восемьдесят ');
9:write ('девяносто ');
end;
if mas[2]<>1 then 
case mas[1] of
1:write ('один');
2:write ('два ');
3:write ('три ');
4:write ('четыри ');
5:write ('пять ');
6:write ('шесть ');
7:write ('семь ');
8:write ('восемь ');
9:write ('девять ');
end;
readkey
end.

[Serge_Bliznykov]

Teor. Ошибка у Вас коде. Попробуйте для чисел, заканчивающихся на 1 (как-то 21, 31 .. 991)...

[pomoshnic]

Да вот здесь

case mas[1] of
2:write ('два ');
3:write ('три ');
4:write ('четыре ');
5:write ('пять ');
6:write ('шесть ');
7:write ('семь ');
8:write ('восемь ');
9:write ('девять ');
end;

нужно вставить

1:write ('один ');

[Serge_Bliznykov]

Сообщение от pomoshnic

нужно вставить

1:write ('один ');

Да ну?!!
Ну проверьте.
Число для проверки: 11, 12, 13.... ;-)

попытка не засчитана! ;-)

[Teor]

Недопечатка Уже исправил ...

Так я еще у себя ошибки нашел. Ща исправлять буду.

Уже исправил. Вроде

[Serge_Bliznykov]

угу. Подтверждаю, теперь работает.
последнее, надо исправить орфографическую ошибочку (малюсенькую...) :-)

4:write ('четыри ');

Правильно: "четыре"

[pomoshnic]

Да... нужно было сначала протестировать.