|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.12.2011, 01:05 | #1 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
Перевод из Бэйсика в Паскаль
Помогите пожалуйста, я в бэйсике на шарю, а этот кусок кода очень нужен, кто разбирается и не затруднит переконвертите плз
Carpe Diem
Последний раз редактировалось Heming; 01.12.2011 в 01:05. Причина: не та картинка |
01.12.2011, 03:51 | #2 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
код, имхо, бредовый. Что такое E в 13-й строке, хрен знает.
http://ideone.com/64gNO (т.к. в оригинале выхода из цикла вобще нет, я добавил ограничение на 100 итераций)
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
01.12.2011, 18:20 | #3 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
Спс,огромное, я только пришел домой, сразу проверить, вечерком буду разбираться
а на счет бредовасти мб это прояснит ситуацию http://kvant.mccme.ru/1992/06/proble...programmir.htm Я просто еще не вникал в статью, мне просто друг, который с заядлой регулярностью штудирует квант, сказал мне что мол в этой статье есть код моей задачи на бейсике, он мне кинул картинку и ссылку, я сразу увидев код впал в печаль. Когда сделаю уже прогу, апну тему как "Проблема Гольдбаха" и выложу свое творенье.
Carpe Diem
Последний раз редактировалось Heming; 01.12.2011 в 18:23. |
01.12.2011, 21:59 | #4 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
дык надо было сразу с этого и начать, а не выкладывать творение неизвестного лаборанта, который упражнялся на бейсике в далёком 1970 году )
вот прога, работающая по описанному в конце статьи алгоритму. http://ideone.com/e4Rbe
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
01.12.2011, 23:35 | #5 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
Спс, огромное, вы сделали даже больше чем я ожидал.
Carpe Diem
|
03.12.2011, 01:12 | #6 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
А можете обьяснить функцию проверки на простоту: в условии сказано что нои делят на все нечетные числа покак там не обьявится 0, а вы почему-то вместо деления берете корень квадратный из числа и прибавляете еденицу?!
Carpe Diem
|
03.12.2011, 01:58 | #7 | |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
Речь про эту строчку, как я понимаю:
Код:
Ну а +1 это страховка, т.к. округление trunc() работает вниз, просто чтобы случайно не пропустить какой-то последний делитель, рядом с корнем. Возможно, +1 и не нужно, лень думать, проще заставить комп сделать одно лишнее деление. Кстати, то же самое относится и к основному циклу: Цитата:
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
Последний раз редактировалось veniside; 03.12.2011 в 02:10. |
|
03.12.2011, 02:46 | #8 | |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
Я понял впринципе, я когда не разобрался с этим методом пытался воспользоваться Теоремой Вильсона, но потом понял что для больших числе будет беда, я в процедурах-фунцкиях новичок, но вот эту задачу мне нужно сделать процедурой(точнее нужна процедура нахождения простых чисел)
я понимаю что функцией делать логичней, как сделать это процедурой...?! вот что я пытался сделать вышел откровенный бред с кучей ошибок: Код:
Цитата:
Carpe Diem
Последний раз редактировалось Heming; 03.12.2011 в 02:54. |
|
03.12.2011, 03:06 | #9 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
большого (да и маленького тоже) смысла в этом я не вижу, но вот как может выглядеть ваша процедура, если отбросить Вильсона с факториалами, и взять функцию prime() из моего кода без изменений:
Код:
Код:
Код:
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
03.12.2011, 03:12 | #10 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
Была б моя воля, я б ваще в данной задаче к процедурам бы не прикосался, а сделал бы как вы посоветовали, но в условии сказано, помимо прочего:
сделать распознование простых чисел именно процедурой(следущая лабораторная будет под функции, а это типа под процедуры), я наверное плюну и сделаю эту фиктивную процедуру, используя вашу функцию.
Carpe Diem
Последний раз редактировалось Heming; 03.12.2011 в 03:16. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно к сессии перевести код из бэйсика в phyton | keit | Помощь студентам | 0 | 29.05.2011 00:50 |
Перевод программы с Паскаль на С++ | Sentteriys | Общие вопросы C/C++ | 1 | 16.05.2011 22:40 |
нужна перевести циклическую сумму с бэйсика на с++ | TiNTi | Помощь студентам | 2 | 01.05.2011 23:04 |
Паскаль перевод чисел | Darf | Помощь студентам | 9 | 27.05.2009 17:46 |