function primo: boolean;
var
sw:boolean;
t,n:cardinal;
begin
sw:=true;
t:=2;
n:=valor;
while (t<n) and (sw) do
begin
if (n mod t)=0 then
sw:=false;
t:=t+1;
end;
Result:=sw;
end;
// forma de llamar a la función
var
r:boolean;
begin
r:=clase.primo;
if (r=true) then
begin
edit3.Text:='Es Primo';
end else begin
edit3.Text:='No es Primo';
end;
end;
No hay comentarios:
Publicar un comentario