Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как определит последнюю цифру двухзначного числа? 
:(
    Опции темы
Drug28081985
Дата 8.6.2006, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 19.5.2006

Репутация: нет
Всего: нет
А это мне нужно для правильного написания ответа.

пример:
По запросу найдено ....
                                  1-------------- запись
                                   2, 22,------- записи
                                     6, 58--------записей

Ну вот. Здесь нужно определить на что заканчивается целое число и тогда все удет в шоколаде. А как это сделать попроще я не знаю. 
PM MAIL   Вверх
Dynamic
Дата 8.6.2006, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15
переведи в строку и прочитай последний символ 


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
Drug28081985
Дата 8.6.2006, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 19.5.2006

Репутация: нет
Всего: нет
хорошая идея  smile ! а как последний символ узнать? smile  
PM MAIL   Вверх
Guedda
Дата 8.6.2006, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Код

//в переменной YourNum находится твоё число
//Узнаем целое число, и кидаем его в переменную Res
var
  YourNum : Real;
begin
  Res := Trunc(YourNum);
  //При YourNum = 3.57, Res=3
end;

Я думаю вот именно то, что ты хотел.

Добавлено @ 15:16 
А если тебе необходимо именно последнюю цифру узнать (типа, нужно число 7 в числе 5,67), тогда так:
Код

var
  s : string;
  c : char;
begin
  s := FloatToStr(YourNum); //где в YourNum лежит твое число
  c := s[length(s)]; //Последняя цифра числа будет лежать в переменной c
end
  

Это сообщение отредактировал(а) Guedda - 8.6.2006, 15:16


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
skyboy
Дата 8.6.2006, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260
а чем mod не нравится? smile
Код

readln(N);
if N in [11..19] 
 then writeln(N,' слов')
 else
  case N mod 10 of
  1: writeln(N,' слово');
  2,3,4: writeln(N,' слова');
  5..9,0: writeln(N,' слов');
  end;                   
 
PM MAIL   Вверх
~FoX~
Дата 8.6.2006, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Цитата(Drug28081985 @  8.6.2006,  16:11 Найти цитируемый пост)
хорошая идея  smile ! а как последний символ узнать? smile   

Код

s := IntToStr(Cheslo);
LastSimvol := s[Length(s)-1];
 


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Dynamic
Дата 8.6.2006, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15
Цитата(Guedda @  8.6.2006,  15:13 Найти цитируемый пост)
Я думаю вот именно то, что ты хотел.  

неправильно думаешь  smile 



Цитата(Drug28081985 @  8.6.2006,  15:11 Найти цитируемый пост)
как последний символ узнать

Код

LastChar := S[Length(S)];

ну и проверки всякие, разумеется, на пустые строки и т.д. 


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
Guedda
Дата 8.6.2006, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Цитата(~FoX~ @  8.6.2006,  16:17 Найти цитируемый пост)

s := IntToStr(Cheslo);
LastSimvol := s[Length(s)-1];

Такая комбинация будет выдавать предпоследнюю цифру. Необходимо просто:
Код

s := IntToStr(Cheslo);
LastSimvol := s[Length(s)];
 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Drug28081985
Дата 8.6.2006, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 19.5.2006

Репутация: нет
Всего: нет
попробую!  
PM MAIL   Вверх
sexton
Дата 8.6.2006, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: 1
Всего: 9
А можно так?
Код

s := IntToStr(X);
LastSimvol := RightStr(s, 1);
 


--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
skyboy
Дата 8.6.2006, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260
Зачем преобразовывать в строку, чтоб потом опять преобразовать с число? smile Кроме того,  для чисел от 11 до 19 склонение связанных существительных не такое же, как для остальных чисел - 11 авторов, но 21 автор, так что только последней цифрой всё равно не обойтись. 
PM MAIL   Вверх
Dynamic
Дата 8.6.2006, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15
в факе есть пример, как выводить сумму прописью, можно там посмотреть, как ето примерно делается...
но если есть время и желание - лучше все же реализовать самому, полезнее! 


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1036 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.