Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2007, 17:23   #1
xxxPascalxxx
Life:[### ]22%
Пользователь
 
Аватар для xxxPascalxxx
 
Регистрация: 15.12.2007
Сообщений: 48
По умолчанию Функции

Буду благодарен за помощь в этой задаче.

Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру
целого положительного числа K (цифры в числе нумеруются справа налево).
Если количество цифр в числе K меньше N, то функция возвращает –1. Для
каждого из пяти данных целых положительных чисел K1, K2, …, K5 вызвать
функцию DigitN с параметром N, изменяющимся от 1 до 5.
My Life v1.0b ERROR: health.dll not found
xxxPascalxxx вне форума Ответить с цитированием
Старый 28.12.2007, 01:31   #2
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию Для Делфи

Функция:
Код:
function DigitN(numb,N:integer):integer;
var str:string;
Begin
str:=IntToStr(numb);
if N<length(str) then
    result:=(StrToInt(str[N]))
else
    result:=-1;
End;
Пример использования:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var t:integer;
begin
t:=DigitN(4568,3);
ShowMessage(IntToStr(t));// 6
end;
Такие задачи нужно пытаться решить самостоятельно...

P.S.: Эту функцию наверное нужно описать на всех языках программирования, которые существуют (если автор не указал какого-то конкретного). Присоединяйтесь!
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума Ответить с цитированием
Старый 28.12.2007, 18:04   #3
Jeni
Форумчанин
 
Регистрация: 31.05.2007
Сообщений: 486
По умолчанию

Цитата:
Сообщение от xxxPascalxxx Посмотреть сообщение
...цифры в числе нумеруются справа налево...
Если нумерация действительно обратная, то необходимо небольшое изменение:
if N<=length(str) then
result:=(StrToInt(str[length(str) - N + 1]));
Jeni вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функции Vinni_puh Microsoft Office Excel 1 20.12.2007 05:51
Функции furian Общие вопросы C/C++ 3 18.12.2007 12:48
Функции Pedro Общие вопросы Delphi 5 08.11.2007 15:39
Функции binkw32.dll Volkogriz Общие вопросы Delphi 3 16.10.2007 11:46