delphi里的function应该怎么放啊?
第一个
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(edit1.text);
b:=scrollbar1.Position ;
c:=fac(a,b);
label2.Caption :=format('%d的%d次方为%d',[a,b,c]);
end;
第二个
function fac(m,n:integer):integer;
begin
for n:=n downto 1 do
begin
m:=m*m;
end;
function放到前面,显示错误
[Error] Unit1.pas(36): Statement expected but 'PROCEDURE' found
function放到后面前面的用不到,第一次用function,帮帮忙
追问:
function fac(m,n:integer):integer;
begin
for n:=n downto 1 do
fac:=fac*m;
end;
问下这句怎么不行啊。。
仿的课本上这句就行
functon fac(n:integer):real;
begin
if n=o then
fac:=1;
else fac:=n*fac(n-1);