帕斯卡语言

来源：百度知道 编辑：UC知道 时间：2024/05/12 07:27:20
将10禁止转换成2进制的程序，还有将一个自然数分解成质因数相成的形式，如：18=1*2*3*3；19=1*19。

自然数分解的程序代码
var N,i:integer;
begin

write('Input N:');
{这里的我假定N>=1,故没有进行多余的处理}
readln(N);
i:=2;
write(N,'=1');
while (i<=N) do

if N mod i=0 then
begin
write('*',i);
N:=N div i;
end
else
i:=i+1;
readln;
end.

十进制转成二进制的代码
var i,N:integer;
var s:string;
begin
write('Input N:');
{这里我假定N>=0}
readln(N);
s:='';
repeat

i:=N mod 2;
s:=char(i+48)+s;
N:=N div 2;
until N=0;
writeln(s);
readln;
end.

我没有对N值进行多余的判断处理.如果要处理负数或0的情形,请自己修改代码.
代码我已测试过;