编个卢卡斯数列画线,象飞狐的菲薄纳西画线一样

编写要求：

股票网解答：

网友求助：

哪位大侠能帮忙编个卢卡斯数列画线,象飞狐的菲薄纳西画线一样!谢谢了

 

解答如下：

代码:
IF DATACOUNT<7 THEN EXIT;
hx:=c*0;Lks:=c*0;Lks[1]:=3;Lks[2]:=4;
for i=3 to 100 do begin
Lks[i]:=Lks[i-2]+Lks[i-1];
hx[Lks[i]]:=1;
if Lks[i]+Lks[i-1]>datacount then
break;
end;
vertline(hx);
drawnumber(hx,10,barpos,0);

>