|
программа
| |
| andreich | Дата: Понедельник, 2009-10-26, 3:40 PM | Сообщение # 1 |
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| помогите написать программу на паскале....просто нужно очень срочно а времени нет сидеть( сходу не получилось) сдать надо без вариантов.... Дано натуральное число N. Выделить в его записи максимальное простое число, цифры которого расположены подряд в N процедуры и функции использовать к сожалению нельзя( так бы сам написал если бы можно было с ними) так же нельзя использовать массивы и строки.. 
помогите кто может..срочно надо очень
июнь 2009-мы творили чудеса!
|
| |
| |
| redberret | Дата: Понедельник, 2009-10-26, 9:47 PM | Сообщение # 2 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
| Заводишь некую переменную k=10, потом пускаешь цикл пока K<N увеличиваем к в 10 раз(10, потом 100, потом 1000...) В этом цикле вычисляешь переменную S=(N)mod(k); Вроде бы мод остаток от деления, или div, не помню. Потом в том же цикле по K запускаешь цикл по j, которая изменяется от 2 до s/2(s/2 не включая). Это проверка простое число или нет. Второй цикл лучше делать через while и лучше завести переменную типа boolean, f=true. Условие для while: while (f) do В этом цикле пишешь if (s)div*j)>0 then f=false;
Все.
|
| |
| |
| andreich | Дата: Понедельник, 2009-10-26, 10:06 PM | Сообщение # 3 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| тут немного не то....так как число 123 например в числе 4329212334 где что в середине числа
и надо проверить полностью это число...я вот не могу написать программу...и еще лучше запускать цикл не до S/2 а до корня из S потому что так меньше придется проверять чисел а результат будет тот же (вот мне надо только написать все это) твой вариант решения прост слишком он просто будет откидывать цифры и справа... но число может быть так пропущено, я думал уже об этом
июнь 2009-мы творили чудеса!
|
| |
| |
| redberret | Дата: Понедельник, 2009-10-26, 10:19 PM | Сообщение # 4 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
| Извини, не так понял задание. Тебе к какому времени надо? Просто самому ещё задачи нужно решить...
|
| |
| |
| kykc | Дата: Понедельник, 2009-10-26, 11:00 PM | Сообщение # 5 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| Quote (andreich) тут немного не то....так как число 123 например в числе 4329212334 где что в середине числа
лоло 123 это непростое число)))) простые числа это числа которые делятсо токо на себя и на 1Добавлено (2009-10-26, 11:00 Pm)
---------------------------------------------
т.е тут надо нарубать число, и проверять на его делители
|
| |
| |
| andreich | Дата: Вторник, 2009-10-27, 5:42 AM | Сообщение # 6 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| kykc, я просто привел пример.... и все)))) [да.получается что надо нарубать....как вот только не знаю...
а сдать надо в среду...
июнь 2009-мы творили чудеса!
|
| |
| |
| kykc | Дата: Вторник, 2009-10-27, 8:39 AM | Сообщение # 7 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| хз, как, шоб первую цифру отбросить надоб отбросить последуещие , умножить на число 1ХХХ где кол-во ххх нули которые потребовались отбросить правые числа , ну и вычисть из самого числа, млееееее ну шоб паследнию цифру убрать надо делить на 10^x и отсекать лишнее trunc
хз как решать
|
| |
| |
| redberret | Дата: Вторник, 2009-10-27, 11:42 AM | Сообщение # 8 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
| Все, понял) Поверх моего предыдущего решения добавляем ещё один цикл, который от исходного числа будет отнимать последнюю цифру, т.е. n div 10 пока n>0. И не забывай внутри циклов искать длину и значение простого числа(с самого начала длина и значение=0 ).
Надеюсь поймешь, что я хочу сказать) Если нет, то вечером постараюсь написать программу.
Сообщение отредактировал redberret - Вторник, 2009-10-27, 11:42 AM |
| |
| |
| andreich | Дата: Вторник, 2009-10-27, 4:05 PM | Сообщение # 9 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| спасибо всем)) я все таки смог это сделать))
но почему то компилятор ругается что у меня в синтаксисе ошибки...
июнь 2009-мы творили чудеса!
|
| |
| |
| kykc | Дата: Вторник, 2009-10-27, 4:25 PM | Сообщение # 10 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| эт чеза *****? Добавлено (2009-10-27, 4:19 Pm)
---------------------------------------------
ты вообще понимаешь ЧЕ НАПИСАЛ? Добавлено (2009-10-27, 4:20 Pm)
---------------------------------------------
тебе надо искать числа типа 2, 3, 5, 7, 11, 17 и пр, дык с таким падходом у тя ниче работать небудет Добавлено (2009-10-27, 4:21 Pm)
---------------------------------------------
исправил все твои ошибки, ни*** ненаходит простые числа, ты задание непонял даже Добавлено (2009-10-27, 4:25 Pm)
---------------------------------------------
Quote (redberret) ещё один цикл
он недогоняет что такое цикл
|
| |
| |
| andreich | Дата: Вторник, 2009-10-27, 4:37 PM | Сообщение # 11 |
|
Аспирант
Группа: Проверенные
Сообщений: 484
Репутация: 60
Замечания: 0%
Статус: Offline
Город: Екатеринбург
| kykc, может напишешь?)))
июнь 2009-мы творили чудеса!
Сообщение отредактировал andreich - Вторник, 2009-10-27, 4:51 PM |
| |
| |
| kykc | Дата: Вторник, 2009-10-27, 4:58 PM | Сообщение # 12 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| нет, redberret обещал написать, ну или попробывать
|
| |
| |
| redberret | Дата: Вторник, 2009-10-27, 9:15 PM | Сообщение # 13 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
|  if не цикл о_О цикл это for или while щ_ЩДобавлено (2009-10-27, 9:15 Pm)
---------------------------------------------
Могу написать на паскале, но правильность в синтаксисе не гарантирую. В паскале писать?
|
| |
| |
| kykc | Дата: Вторник, 2009-10-27, 11:10 PM | Сообщение # 14 |
|
Академик
Группа: Проверенные
Сообщений: 1237
Репутация: 1175
Замечания: 100%
Статус: Offline
| redberret, не тормозии ему уже сдавать надо))))
|
| |
| |
| redberret | Дата: Среда, 2009-10-28, 8:42 PM | Сообщение # 15 |
|
Магистр
Группа: Проверенные
Сообщений: 211
Репутация: 8
Замечания: 0%
Статус: Offline
Город: Kazan City
| Судя по общению в асе человек знает, что такое указательный тип, но не знает, что такое цикл)
|
| |
| |
|
|
|
RSS: