| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Object Pascal: кроссплатформенные технологии > Free |
| Автор: roar 23.1.2006, 11:33 |
| Пишу задачу на борланде - затем компилирую на фри паскале- -полученная программа не работает- -снова компилирую- -не работает- -изменяю программу и компилирую- -все равно не работает- -что делать???- |
| Автор: volvo877 23.1.2006, 11:43 |
| roar, Может ты все-таки программу приведешь, которая "не работает"? |
| Автор: Guedda 23.1.2006, 13:08 |
| Значит неправильный код ;) |
| Автор: roar 23.1.2006, 15:40 |
| Нет на борланде все нормально работает что не скажешь о фри А программы разные |
| Автор: volvo877 23.1.2006, 16:09 |
| Хочешь, я приведу тебе код, который будет нормально работать в FPC, и не будет в Борланде? Ты что, на форум телепатов пришел? Кто знает, чего ты там накрутил... Как помочь-то тебе, не видя программы? |
| Автор: roar 23.1.2006, 16:19 |
| А что бывает еще и такое ??? Ладно не будем зацикливаться на этом |
| Автор: armageddon 26.1.2006, 15:39 |
| во-первых, смысл компилировать программу на free, если она компилируется на Борланде, во-вторых где программа?(скинь исходник), в третьх попробуй следующее: или попробуй запустить её еще на каком-нибудь Паскале, или......(короче если тебе интересно в чем глюк скинь прогу) |
| Автор: roar 26.1.2006, 16:25 |
| armageddon я хочу откомпилировать на Free потому что он вмещает больше !!! А насчет программы не беспокойся-она пашет прилично (на Борланде и Турбо) |
| Автор: Guedda 27.1.2006, 14:08 |
| Кинь исходники, либо закрой тему! |
| Автор: TORQUE 28.1.2006, 10:32 |
| В натуре роар скинь код программы и мы попробуем разобратся!!! |
| Автор: karataev 28.1.2006, 11:21 |
Он там наверно написал код взлома Пентагона  |
| Автор: roar 6.2.2006, 10:53 |
| Вот например Var n,m,y,sum:longint; a:array[-200000..200000]of longint; Begin Assign(Input,'kitten.in');Reset(Input); Assign(Output,'kitten.out');ReWrite(Output); repeat read(n);if not eoln then begin read(m); if n<=m then begin For Y:=n to m do if a[y]=1 then sum:=sum+1; end else begin For Y:=m downto n do if a[y]=1 then sum:=sum+1; end; writeln(sum); sum:=0; end else a[n]:=1; until eof; Close(Input); Close(Output); End. Ну что karataev . ты теперь знаешь " код взлома Пентагона ". Попробуй найти ошибку |
| Автор: volvo877 6.2.2006, 13:06 |
| roar, и ты хочешь сказать, что 1.6Мб (под массив A) ты выделил СТАТИЧЕСКИ под Borland Pascal-ем? И у тебя программа работала? В следующий раз не смеши меня так, ладно? В BP у тебя 64К - максимальный размер структуры. Учи матчасть: http://zeus.sai.msu.ru:7000/programming/bp70_lr/lr5.shtml#3 А по программе ничего без входных данных, на которых ты ее проверял сказать нельзя. Нужна помощь - приводи и данные... Кстати, откуда тесты? Online Judge? |
| Автор: roar 6.2.2006, 20:51 |
| Слышь "Volvo877" это программа на Фри , а не на Борланд Теперь уменьши матрицу чтобы она проходила на Борланде и откомпилируй на Фри Она "заработает"  |