Функция, преобразующая цифру к ее словесному наименованию на Pascal

Функция, преобразующая цифру к ее словесному наименованию.

function DigitName(n: integer): string;
begin
  case n of
  0: Result := 'ноль';
  1: Result := 'один';
  2: Result := 'два';
  3: Result := 'три';
  4: Result := 'четыре';
  5: Result := 'пять';
  6: Result := 'шесть';
  7: Result := 'семь';
  8: Result := 'восемь';
  9: Result := 'девять';
  end;
end;
 
begin
  writeln(DigitName(3));
  writeln(DigitName(5));
  writeln(DigitName(7));
end.



Просмотров: 2267
10.02.2015, 10:27 -

Категория: Статьи » Программирование » Pascal