procedure vs function

我用ex5.12做例子分別做了兩個的寫法 大家可以比較看看

procedure mo(x:longint; var y:boolean);
begin
if (x mod 7=0) and (x mod 17=0)
then y:=true else y:=false;
end;

var a:integer;
begin
  memo1.lines.clear;
  for a:=1000 to 4000 do
  if mo(a)=true then memo1.lines.add(inttostr(a));
end;


function mo(x:longint):boolean;
begin
if (x mod 7=0) and (x mod 17=0)
then mo:=true else mo:=false;
end;

var a:integer;
begin
  memo1.lines.clear;
  for a:=1000 to 4000 do
  if mo(a)=true then memo1.lines.add(inttostr(a));
end;