Нужно упростить (не сократить) задачу. PascalAbc.

[AntoshkaK]

Мне нужно упростить задачку, а то я вроде намудрил. Нужно избавиться от array. Заранее огромное спасибо!

Program vorona;
const
ed: array[0..9] of string = ('нет', 'одна', 'две', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять');
al: array[10..19] of string = ('десять', 'одиннадцать', 'двенадцать', 'тринадцать', 'четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать');
des: array[2..9] of string = ('двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто');
okon: array[0..9] of string = ('', 'а', 'ы', 'ы', 'ы', '', '', '', '', '');
var
result:String;
n:Integer;
Begin
Writeln('Введите кол-во ворон');
Readln(n);
Case n of
0..9: result := ed[n] + ' ворон' + okon[n];
10..19: result := al[n] + ' ворон';
20..99:
begin
if (0 = n mod 10) then
result:= des[n div 10] + ' ворон'
else
result:= des[n div 10] + ' ' + ed[n mod 10] + ' ворон' + okon[n mod 10];
end;
else
Writeln('Введите число в диапозоне от 1 до 99');
end;
Writeln(result);
End.

[alexiz]

Подсказываю путь, позаимствовал отсюда:
{ Автор: Александр Шабля, e-mail: shablya@yandex.ru }

const
One = 'один;два;три;четыре;пять;шесть;семь;восемь;девять;одна;две;нуль';
Ten = 'десять;одиннадцать;двенадцать;тринадцать;четырнадцать;пятнадцать;шестнадцать;семнадцать;восемнадцать;девятнадцать';
//Далее функция, которая выбирает элемент из строки  
//Поиск нужного значения в строке S позиция Count
function TInWord.GetValue(S: String; Count: Integer): String;
var
  i, p1, p2: Integer;
begin
  if Length(S) > 0 then begin
    i := 1;
    p1 := Pos(Separator, S);
    while (i < Count) and (p1 > 0) do begin
      S := Copy(S, p1 + 1, 255);
      p1 := Pos(Separator, S);
      Inc(i);
    end;
    if i = Count then begin // то что надо!
      p2 := Pos(Separator, S);
      if p2 > 0 then S := Copy(S, 1, p2 - 1); 
      S := Concat(Trim(S), ' ');
    end else S := EmptyStr;
  end;
  Result := S;
end;

[veniside]

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

а то я вроде намудрил

умник, думаешь, я не узнаю свой код? Намудрил он. Надо переделать, так и скажи, а не создавай новую тему типо со своим кодом.

[AntoshkaK]

Извините, я не хотел Вас оскорбить.

[veniside]

просто некрасиво так поступать.

Вот код без массивов, но это, имхо, самодурство и извращение.

http://ideone.com/qQxsV

[Вадим Мошев]

оффтоп. veniside, а это вы - Александр?

[TinMan]

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

просто некрасиво так поступать.

100% поддерживаю.

Извините, я не хотел Вас оскорбить.

Совершенно не важно, что ты хотел. Важно, что ты сделал.
Не хочешь - найди в себе силы не делать.
Тебе мама не говорила, что врать и воровать нельзя? Нельзя - и точка.
-1 от меня.

[hiho]

Некрасивым это бы смотрелось, если бы он этот у тебя с компа утащил. А тут ты его сам выставил, причем без копирайтов и необходимого типа лицензии (xDD). Поэтому возмущаться по поводу "кражи кода" ты не должен. Хотите сохранить частичку "своего Я" в коде, не выкладывайте в паблик.

[Пепел Феникса]

причем тут копирайты?
в данном случае задело что чужой код был выдан зза свой.

[hiho]

а как вы хотели, выкладывая его? тем более не такой уж и важный код. Обижаться надо по делу!