Цифры числа в том же порядке |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Цифры числа в том же порядке |
Ozzя |
10.02.2010 15:49
Сообщение
#1
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Студентка одна попросила о помощи. Задача
Цитата ДАНО нат. число. Поместить его цифры в массив в том же порядке, в каком они были записаны. Склеил из форумовских
Ан нет, преподу не понравилось. Нужно оптимизировать, обойдясь одним циклом. И что-то я тут задумался Сообщение отредактировано: Ozzя - 10.02.2010 15:50 |
Unconnected |
10.02.2010 16:12
Сообщение
#2
|
mea culpa Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Может, препод это имел в виду?
-------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
Ozzя |
10.02.2010 16:38
Сообщение
#3
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Нет. Строки использовать нельзя.
|
volvo |
10.02.2010 17:18
Сообщение
#4
|
Гость |
Оззя, ты чего?
program forforum; |
Ozzя |
10.02.2010 17:22
Сообщение
#5
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
while a > 0 do Ведь шла мысль в этом направлении... Блин Цитата Оззя, ты чего? Я лох Уволюсь в управдомы Добавлено через 15 мин. Вольво, выручай! Препод поменял строки a, b : LongInt; на a, b : Int64; ввел 1234567890123456 Программа виснет И заявил: "Ваш код машинно-зависим. Требуется общее решение". Оно вообще возможно? Добавлено через 13 мин. Что-то типа такого if sizeof(b)=4 // longint (dword) не покатит? |
volvo |
10.02.2010 18:04
Сообщение
#6
|
Гость |
Цитата Оно вообще возможно? Возможно, возможно... Все возможно... Блин, времени тестировать как следует нет - погоняй вот это:program forforum;(отмазка со стороны преподавателя, что Log10 нет в Turbo Pascal-е не принимается, ибо во-первых, ее очень просто написать самому, а во-вторых, Int64 там тоже нет...) |
klem4 |
16.02.2010 22:02
Сообщение
#7
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
вот мой вариант, не знаю на сколько проактит у препода, log10 и power можно заменить как ужы было сказано, + если a = 0, надо отдельную ветку сделать. А так работает
uses math; ps вариант с минимальным кол-вом переменных, trunc( log10(a) ) можно запомнить при желании. Сообщение отредактировано: klem4 - 16.02.2010 22:03 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 10.05.2024 2:36 |