ошибки при компиляции

[Stilet]

Я бы на месте автора с нуля проект переделал. Там чет не то.

[|{ot]

За сообщение свыше извеняюсь, я не хотел его сюда кидать( инет немного заглючил)!!!

Сообщение от Stilet

Я бы на месте автора с нуля проект переделал. Там чет не то.

В каком смысле что то не то? Проект на Делфи?

[Stilet]

Да. Много я не гуглил но вот кое что:
http://translate.google.com/translat...26as_qdr%3Dall

[JTG]

А что за фигня с For... do ???

procedure nol( p : byte );
begin
if mas[p]<>0 then begin
for j := n to p do mas[j+1]:=mas[j];
mas[p]:=0;
inc(n);
end;
end;

p - byte / j,n - int64

зачем j,n такие здоровенные, если в p много не влезет? Все глюки из-за этих конструкций, тока что проверил
for j := n to p do mas[j+1]:=mas[j];
разберись с типами и по возможности делай переменные для For..do локальными
--
Во, int64 в for..do вообще не катит (для делфи 7) и если байтовую переменную сделать integer - компилятор приходит в себя и указывает на ошибку
* я бы тоже потерялся ©
--
ЗЫ: 100!

программа на паскале выдаёт на один 0 больше

[|{ot]

Вобщем я все переделал и получилось даже намного лучше!
Алгоритм получился намного меньше, а скорость расчета увеличилась более чем в 5 раз)) Спасибо за советы!

Если кого то интерисует исходник, тоя выставлю.