Question

free pascal输入正整数a,b,c，输出a/b的小数形式，精确到小数点后c位。a,b<=10^6，c<=100

Answer 1

你还是看4楼的吧，这题就坑在精度控制！
我学C++的，正好写了这题
#include<iostream>
#include<iomanip>
using namespace std;
int main()
{
int a=17728,b=23922,c=99,c1;
cin>>a>>b>>c;
int iz,iy;
int store[102]={0};
iz=a/b;
iy=a%b;
for(int i=1;i<=c+1;i++)
{
iy*=10;
if(iy>b)
{
store[i]=iy/b;
iy=iy%b;
continue;
}
else
{
store[i]=0;
}
}
//处理四舍五入
c1=c;
if(store[c1+1]>=5)
{
store[c1]+=1;
while(1)
{
if(store[c1]/10==1)
{
if(c1==1)
iz+=1;
store[c1]=0;
c1--;
store[c1]=store[c1]+1;
continue;
}
else break;
}
}
//输出控制
cout<<iz<<'.';
for(int i=1;i<=c;i++)
{
cout<<store[i];
}
cout<<endl<<(double)a/b<<endl;
cout<<(double)clock()/CLOCKS_PER_SEC;
system("pause");
}

Answer 2

var a,b:real;c:longint;
begin
readln(a,b,c);
if c=0 then begin
writeln(a/b:0:0);exit;
end;
write(trunc(a/b));
a:=a-trunc(a/b)*b;
write('.');
while c>1 do begin
a:=A*10;
write(trunc(a/b));
dec(c);
a:=a-trunc(a/b)*b;
end;
a:=a*10;
writeln(round(a/b));
end.

逐渐执行除法（模拟）。
我说楼上的怎么这么不负责任，pascal除法的精度根本没有100位，直接加:0:c输出不了20个小数，只有17位，何谈100位。真是可悲。

Answer 3

program ex;
var
a,b:longint;
c:1..100;
begin
readln(a,b,c);
writeln(a/b:0:c);
end.
超简洁的
选我吧
易懂
解释：writeln(a/b:0:c);
a/b:代表a/b的值
:c保留c位小数
注意：:0与:c位置不能掉转。
（其实:0我还不知道是什么意思呢）
我发现如果不加:0就会变成科学计数法了...
加了:0才能转化成正常小数

Answer 4

程序（pascal）：
var
a,b:longint;
c:integer;
d:real;
begin
read(a,b,c); readln;
d:=a/b;
writeln(d:0:c);
end.

Answer 5

var
a,b:longint;
c:shortint;
begin
readln(a,b,c);
writeln(a/b:0:c);
end.
水题