请帮我分析以下pascal程序

来源：百度知道 编辑：UC知道 时间：2024/05/25 08:38:06
定义一个函数CHECK（N，D），让它返回一个布尔值。如果数字D 在整数N 的某位中出现则送回TRUE，
否则送回FALSE 。

例如：CHECK（325719，3）＝TRUE；
CHECK（77829，1）＝FALSE；

PROGRAM e6(input,output);
VAR a,b:integer;
FUNCTION check(n,d:integer):boolean;
var f:boolean;
e:integer;
begin
f:=false;
while (n>0) and (not f) do
begin
e:=n mod 10;
n:=n div 10;
if e=d then f:=true;
end;
check:=f;
end;
BEGIN
writeln(’input n,d’);
read(a,b);
writeln(check(a,b));
END.

PROGRAM e6(input,output);
VAR a,b:integer;
FUNCTION check(n,d:integer):boolean;
var f:boolean;
e:integer;
begin
f:=false; {将布朗值初始为FALSE}
while (n>0) and (not f) do {当每一位都找完了或找到了就结束}
begin
e:=n mod 10;
n:=n div 10; {分离出每一位}
if e=d then f:=true; {若有相同的while循环结束}
end;
check:=f;{若找到了就赋值TRUE，否则赋值FALSE}
end;
BEGIN
writeln(’input n,d’);
read(a,b);
writeln(check(a,b));
END.