Запись количественного числа в заданном падеже

[Ксения1206]

Сообщение от Poma][a

А вот это уже - наглость!

Если бы Вы сами поразбирались и что-либо не поняли, то я бы с радостью объяснил.. А просто так, от него делать писать Вам комментарии? - Увольте!

P.S. Т.к. писал уже вечером, то, кажется, перемудрил.. Слега упрощенный вариант :тыц

можете хотя бы подсказать что означает вот эта строчка
digits[i] := Ord(s[i]) - 48
ord?

[Poma][a]

Ord (функция)
Возвращает порядковое значение выражения перечисляемого типа.

А справка не работает?

[Ксения1206]

Сообщение от Poma][a

А справка не работает?

не работает!

[s-andriano]

Сообщение от Ксения1206

не работает!

Тогда то же самое прочитайте в учебнике.

[Serge_Bliznykov]

ну что Вы такие злые, господа?...

digits[i] := Ord(s[i]) - 48

очевидно, что эта строчка переводит одну цифру из строковой записи (в виде символа) в обычныю цифры (числовое значение).
Перевод осуществляется таким образом: для очередного (i-го) символа строки с помощью оператора ord() вычисляется код, который помещается в массив Digits (кстати, "говорящее" название означает цифры на английском) Сивмолы всех цифр в коде символов расположены подряд, начиная с символа '0', который имеет код 48 и заканчивая символом '9', который имеет код 57. Очевидно, что если из кода символа отнять код символа нуля, то получим значение данной цифры.

[Poma][a]

Оффтоп(дико извиняюсь) :

ну что Вы такие злые, господа?...

Ну ведь есть справка, учебник.. та же паутина.. Хотя возможно Вы правы..Признаюсь, погорячился.. Прошу простить

[Serge_Bliznykov]

Ну ведь есть справка, учебник.. та же паутина.. Хотя возможно Вы правы..Признаюсь, погорячился.. Прошу простить

да ну бросьте, Вам извиняться тут не за что!

Вы же и так полностью написали готовый работающий код...

[s-andriano]

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

очевидно, что эта строчка...

Чтобы было действительно очевидно, эту строчку нужно записывать так:

digits[i] := Ord(s[i]) - Ord('0');

[Veronika_13]

а можно ещё раз ссылку кинуть?? пожалуйста. а то не открывается

[Poma][a]

да.. зря я тогда ссылки кидал..
А Вы скачай файлик, который я прикреплял.. И побалуйтесь там с кодировками..