作业帮 > 综合 > 作业

编一个pascal程序,从键盘输入一个真分数的分子和分母,输出它的小数形式,精确到小数点后1000位.

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/05/14 14:45:35
编一个pascal程序,从键盘输入一个真分数的分子和分母,输出它的小数形式,精确到小数点后1000位.
编一个pascal程序,从键盘输入一个真分数的分子和分母,输出它的小数形式,精确到小数点后1000位.
var a,b,i:longint; t:array[1..1000]of byte;
begin
readln(a,b);
write(a div b,'.');
for i:=1 to 1000 do
begin
a:=a mod b*10;
t[i]:=a div b;
end;
if a mod b*10 div b>4 then
begin
while t[i]=9 do begin t[i]:=0; dec(i) end;
inc(t[i]);
end;
for i:=1 to 1000 do write(t[i]);
writeln;
end.