ВНИМАНИЕ! На форуме началось голосование в конкурсе - астрофотография месяца СЕНТЯБРЬ!
0 Пользователей и 1 Гость просматривают эту тему.
Чем Lazarus отличается от современных версий Delphi?
x:=StrToFloatDef(Edit1.Text,0);
написали тестовый код на своём компиляторе и на разных других,
program perfRecur;uses SysUtils,DateUtils;function fi(n:Integer):Double;begin if n=0 then fi:=0 else if n=1 then fi:=1 else fi:=fi(n-1)+fi(n-2);end;var i,n,m:Integer; z:Double; t0:TDateTime;begin for n:=30 to 46 do begin t0:=Now; z:=fi(n); WriteLn((Now-t0)*86400); end; ReadLn;end.
perfRecur.pas(31,1) Fatal: illegal character "'\Uffffffff" ($C2)Fatal: Compilation abortedError: /usr/bin/ppcx64 returned an error exitcodeСборка завершилась с ошибкой.
Не пойму чего ему не нравится.
Прога Fibo что должна выдать в конце.
t0:=Now; // в t0 запоминается текущее время в днях от 30.12.1899 z:=fi(n); WriteLn((Now-t0)*86400); // выводит на экран время на выполнение fi(n) в секундах end; ReadLn; // прога ждет нажатия любой клавиши. Иначе сразу окошко закроется. Хотя, если запускать из Geany - не закроется.
Матрицу считает 16,5 секунд. Засекал телефонным секундомером.
Теперь понять бы что бы это значило.