|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.03.2008, 00:33 | #11 |
Форумчанин
Регистрация: 03.02.2008
Сообщений: 213
|
Код:
Пишу программы на заказ, контакты под аватаром!
Отзывы тут |
22.03.2008, 06:42 | #12 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Stepler, во-первых, я лично согласен со [Smarik] - изменять счётчик цикла внутри цикла - дурной тон!
Попробуйте откомпилировать Ваш код в Дельфи - там такой трюк по умолчанию не пройдёт. Да и не нужен там цикл FOR!! (напоминаю, что это цикл, когда известно число повторений! Вам оно известно? нет?! так и используйте, while True do , например.) Если уже и делать универсальную программу для числа с любой разрядностью - то смотрите код от Шамана в посте #6. И последнее - Цитата:
Вы условие внимательно прочитали? Цитата:
Код:
Последний раз редактировалось Serge_Bliznykov; 22.03.2008 в 06:45. |
||
22.03.2008, 21:17 | #13 |
Пользователь
Регистрация: 07.03.2008
Сообщений: 12
|
Спасибо всем! Буду разбираться! :beer:
|
22.03.2008, 22:36 | #14 | ||||||
Форумчанин
Регистрация: 03.02.2008
Сообщений: 213
|
to Serge_Bliznykov
Цитата:
Цитата:
Цитата:
Цитата:
Цитата:
Цитата:
Пишу программы на заказ, контакты под аватаром!
Отзывы тут |
||||||
22.03.2008, 23:34 | #15 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
А если так :
var num,summaCifr,i: Integer; stroka:string; begin stroka:=IntToStr(num); summaCifr:=0; for i:=1 to Length(stroka) do summaCifr:=SummaCifr+StrToInt(Strok a[i]); end; |
14.11.2010, 17:47 | #16 |
Новичок
Джуниор
Регистрация: 14.11.2010
Сообщений: 1
|
operatorr whileeeeeeeeeee
задача выделить третью цифру с конца в введеннном числе ю расскажите как там в этом while знать где какая цифра? заранее спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!
|
14.11.2010, 17:54 | #17 |
Форумчанин
Регистрация: 18.10.2010
Сообщений: 419
|
а чем плох такой вариант:
Код:
"задача выделить третью цифру" str:=inttostr(125); a:=str[3]; // a='5' b:=strtoint(a); // b=5 Последний раз редактировалось xrob; 14.11.2010 в 17:57. |
01.02.2011, 14:40 | #18 |
Новичок
Джуниор
Регистрация: 01.02.2011
Сообщений: 2
|
А как сюда добавить процедуру проверки на то что введённое число действительно 3х значное.
|
01.02.2011, 14:51 | #19 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
да элементарно же
Код:
Перемешивай дело с бездельем и не сойдешь с ума...
Последний раз редактировалось Grag; 01.02.2011 в 14:54. |
02.02.2011, 12:10 | #20 |
Новичок
Джуниор
Регистрация: 01.02.2011
Сообщений: 2
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разложение введенного слова в виде дерева на дельфи | Gauss | Общие вопросы Delphi | 7 | 23.03.2008 21:57 |
for SAS888 please help! макрос выделения цифр жирным шрифтом прописывает числа без нулей после запятой | Dorvir | Microsoft Office Excel | 1 | 03.03.2008 22:39 |
#Delphi задача на сумму цифр числа | forumu | Помощь студентам | 11 | 12.01.2008 19:02 |
Подсчитать сумму цифр числа введеного с клавиатуры. Prolog | Дурин | Помощь студентам | 3 | 10.01.2008 16:29 |
Найти количество различных цифр данного натурального числа. | stalker | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 22.05.2007 17:45 |