Преобразование цифры к её словесному наименованию

Преобразование цифры к её словесному наименованию

Исходник программы для Паскаль, содержащей функцию преобразования цифры к её словесному наименованию (например: 1 - один, 2 - два). Пояснительных комментариев нет, но они особо не нужны. Скачать исходник или просмотреть исходный код программы, Вы можете ниже.

Исходный код программы:

Var x: integer;
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 ('Введите число');
Readln (x);
writeln(DigitName(x));
end.


Скачать исходник:chisla.pas
Автор: Zed от 2012-06-08 22:17:35   Просмотров: 1961

Теги: Паскаль исходники подпрограммы Pascal case