|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.05.2008, 19:20 | #21 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Вот решение, без Mod и Div:
Код:
Цитата:
В Delphi, испольуется Pascal`евский Val в StrToInt. А IntToStr в Delphi сделан на Assembler: Код:
Последний раз редактировалось Alter; 08.05.2008 в 19:34. |
|
08.05.2008, 22:37 | #22 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если Вы считаете что примитивную школьную задачку в 15 строчек кода с использованием двух операторов, целесообразнее решать в 33 строки с созданием собственных функций, то это Ваше дело. Не надо только это свое мнение навязывать другим. Решить эту задачу наверное можно и еще более сложным способом, только зачем.
|
08.05.2008, 23:06 | #23 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Цитата:
|
|
23.05.2008, 14:43 | #24 |
Регистрация: 23.05.2008
Сообщений: 8
|
Вот мой простой пример...
Код:
Последний раз редактировалось t13sto; 23.05.2008 в 14:48. |
23.05.2008, 15:32 | #25 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
23.05.2008, 16:54 | #26 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Напишите IntToStr в любом месте в коде формы или где то ещё в проекте, и нажмите волшебное сочетание Ctrl+LeftMouseButton по имени функции , там всё будет. И ещё, если заглянуть в справку Pascal, по именам Val и Str, то можно увидеть в их примерах интерсные совпадения.
|
14.06.2011, 20:39 | #27 |
Новичок
Джуниор
Регистрация: 14.06.2011
Сообщений: 2
|
Это мой вариант .
program my ; uses cthreads, Classes; var x:integer; // это наш счастливый билет begin writeln('Введите номер билета') readln(x); if (x>999999) or (x<100000) then writeln('Введён неверный номер билета'); else begin if (x div 100000)+((x div 10000) mod 10)+((x div 1000) mod 10)= (x mod 10)+((x mod 100) div 10)+((x mod 1000) div 100) then writeln('Это счастливый билет!') else writeln('Это не счастливый билет('); end; readln; end. В правильности своего решения я уверен ,но могут быть синтаксические ошибке. Последний раз редактировалось Алексей Винокуров; 14.06.2011 в 20:56. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить, является ли матрица магическим квадратом. | drakon803 | Помощь студентам | 11 | 14.12.2011 14:29 |
Задача в Exel (стоимость билета в зависимости от расстояния) | Phill | Помощь студентам | 9 | 30.11.2010 00:20 |
Найти человека по номеру мобильного | 2006demon2006 | Свободное общение | 7 | 15.09.2009 12:24 |
Среди 20 введёных чисел определить чётные, распечатать их, определить min | Spade | Помощь студентам | 4 | 15.06.2008 18:39 |
Определить, является ли заданная строка правильной записью вещественного числа | Sergik1977 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 18.10.2007 16:53 |