搜狗做题网pascal关于因式分解的有关问题
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/07/23 04:40:22
pascal关于因式分解的有关问题
用pascal语言编出一个程序
输入：100
输出：2*2*5*5
急用!
用pascal语言编出一个程序
输入：100
输出：2*2*5*5
急用!
题目很简单……程序大同小异
var
n,i:longint;
begin
readln(n);
i:=2;
while n>1 do
begin
while n mod i0 do
i:=i+1;{找到下一个可以被n整除的数}
while n mod i=0 do{循环,一直使n除以这个数,直到它不再含有这个因数为止}
begin
write(i);
n:=n div i;
if n1 then write('*');{防止多余的*}
end;
end;
end.
由于是从最小的i开始试,且每次都把n中的因数i除尽,所以可以保证下一个得到的i一定是一个质数；
这个程序可以有一个优化,就是先编另一个程序,求出一定范围内的所有质数,作为一个数组常量放到这个程序中.然后每次都直接跳到下一个质数去（就不用i一个一个地加1）,可以节省一些时间.
var
n,i:longint;
begin
readln(n);
i:=2;
while n>1 do
begin
while n mod i0 do
i:=i+1;{找到下一个可以被n整除的数}
while n mod i=0 do{循环,一直使n除以这个数,直到它不再含有这个因数为止}
begin
write(i);
n:=n div i;
if n1 then write('*');{防止多余的*}
end;
end;
end.
由于是从最小的i开始试,且每次都把n中的因数i除尽,所以可以保证下一个得到的i一定是一个质数；
这个程序可以有一个优化,就是先编另一个程序,求出一定范围内的所有质数,作为一个数组常量放到这个程序中.然后每次都直接跳到下一个质数去（就不用i一个一个地加1）,可以节省一些时间.