|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2009, 21:06 | #1 |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
Помогите с прогой (исправьте ошибки)
Вот задача:
Число вводится своим двоичным представлением (длина числа не превышает 10000 двоичных разрядов). Необходимо определить делится ли число на 15. Вот что я написал: Код:
Последний раз редактировалось k1r1ch; 17.10.2009 в 21:16. |
17.10.2009, 21:25 | #2 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 94
|
Это вроде Делфи, как я понял. Тогда используйте AssignFile.
|
17.10.2009, 21:28 | #3 |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
Нет, я сам уже задолбался, но надо писать на Паскале! После Delphi сильно бесит, особенно отсутствие CodeInsight)
|
17.10.2009, 21:43 | #4 |
Форумчанин
Регистрация: 19.06.2009
Сообщений: 896
|
Может быть компилятору не нравиться само имя переменой Input? (скорее всего так и есть).
Не надо называть переменые такими названиями, может произойти путаница. |
17.10.2009, 21:49 | #5 |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
Исправил на Input1, щас пишет, что где то end забыл. Может неправильно вложенную функцию оформил (никогда до этого так не делал)?
|
17.10.2009, 21:52 | #6 |
Форумчанин
Регистрация: 19.06.2009
Сообщений: 896
|
Может тут... ибо мне показалось что end немного не от этого блока.
Код:
|
17.10.2009, 23:46 | #7 |
Форумчанин
Регистрация: 10.10.2009
Сообщений: 680
|
Зачем такой длинный код? Можно в 1 строку переводить, если есть фрагмент st[1]st[2]st[3]st[4], то его 16ичное значение равно
8*pos(st[1],st1)+4*pos(st[2],st1)+2*pos(st[3],st1)+pos(st[4],st1), где st1='1'. |
18.10.2009, 09:29 | #8 |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
LeBron, я бы не додумался! Спасибо!
Вавел из ГМТУ, спасибо за помощь, теперь все работает! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Си++. Исправьте пожалуйста ошибки | megavolt91 | Помощь студентам | 3 | 29.05.2009 16:02 |
помогите с прогой | DeDoK | Общие вопросы Delphi | 7 | 09.05.2008 23:51 |
Свой "Пуск",исправьте плиз ошибки | Marsik | Помощь студентам | 8 | 07.12.2007 15:28 |
Помогите с прогой | DarthNemo | Помощь студентам | 2 | 06.05.2007 18:11 |