тогда вместо FOR j:=size TO 0 BY -1 DO должно быть FOR j:=size-1 TO 0 BY -1 DO или FOR j:=size TO 1 BY -1 DO
но все равно не сходится
Значит еще есть ошибки. Зачем вообще копировать код C++, ведь алгоритм расчета хорошо описан. Я в свое время по этому алгоритму свой код написал и все у меня срослось.
Последний раз редактировалось Вольд; 02.07.2014 в 11:02.