📄 usaco 2_4_5 fractions to decimals 题解_leokan的blog.mht
字号:
<TD class=3Dmodtc noWrap align=3Dright>
<DIV class=3Dmodopt><A class=3Dmodact=20
href=3D"http://hi.baidu.com/leokan/creat/blog/"><IMG=20
src=3D"http://img.baidu.com/hi/img/ico_postnew.gif" =
align=3DabsMiddle=20
border=3D0>=D0=B4=D0=C2=CE=C4=D5=C2</A></DIV></TD>
<TD class=3Dmodtr width=3D7> </TD></TR></TBODY></TABLE>
<DIV class=3Dmodbox id=3Dm_blog>
<DIV class=3Dtit>USACO 2.4.5 Fractions to Decimals =CC=E2=BD=E2</DIV>
<DIV class=3Ddate>2008=C4=EA01=D4=C231=C8=D5 =D0=C7=C6=DA=CB=C4 =
14:33</DIV>
<TABLE style=3D"TABLE-LAYOUT: fixed">
<TBODY>
<TR>
<TD>
<DIV class=3Dcnt>
<H2>USACO 2.4.5 Fractions to Decimals</H2>
<DIV class=3Dt_msgfont>Fractions to Decimals<BR><BR>Write a =
program that=20
will accept a fraction of the form N/D, where N is the numerator =
and D is=20
the denominator and print the decimal representation. If the =
decimal=20
representation has a repeating sequence of digits, indicate the =
sequence=20
by enclosing it in brackets. For example, 1/3 =3D .33333333...is =
denoted as=20
0.(3), and 41/333 =3D 0.123123123...is denoted as 0.(123). Use =
xxx.0 to=20
denote an integer. Typical conversions are: <BR><BR>1/3 =
=20
=3D 0.(3)<BR>22/5 =3D 4.4<BR>1/7 =
=20
=3D 0.(142857)<BR>2/2 =
=3D =20
1.0<BR>3/8 =3D 0.375<BR>45/56 =
=3D =20
0.803(571428)<BR><BR>PROGRAM NAME: fracdec<BR>INPUT FORMAT<BR>A =
single=20
line with two space separated integers, N and D, 1 <=3D N,D =
<=3D 100000.=20
<BR>SAMPLE INPUT (file fracdec.in) <BR>45 56<BR><BR>OUTPUT =
FORMAT<BR>The=20
decimal expansion, as detailed above. If the expansion exceeds 76=20
characters in length, print it on multiple lines with 76 =
characters per=20
line. <BR>SAMPLE OUTPUT (file=20
fracdec.out)<BR>0.803(571428)<BR><BR><BR><BR>Fractions to=20
Decimals<BR><BR><SPAN class=3Dt_tag=20
=
href=3D"tag.php?name=3D%B7%D6%CA%FD">=B7=D6=CA=FD</SPAN>=BB=AF=D0=A1=CA=FD=
<BR><BR>=D2=EB by tim=20
=
green<BR><BR>=D0=B4=D2=BB=B8=F6=B3=CC=D0=F2=A3=AC=CA=E4=C8=EB=D2=BB=B8=F6=
=D0=CE=C8=E7N/D=B5=C4=B7=D6=CA=FD(N=CA=C7=B7=D6=D7=D3=A3=ACD=CA=C7=B7=D6=C4=
=B8)=A3=AC=CA=E4=B3=F6=CB=FC=B5=C4=D0=A1=CA=FD=D0=CE=CA=BD=A1=A3<BR>=C8=E7=
=B9=FB=D0=A1=CA=FD=D3=D0=D1=AD=BB=B7=BD=DA=B5=C4=BB=B0=A3=AC=B0=D1=D1=AD=BB=
=B7=BD=DA=B7=C5=D4=DA=D2=BB=B6=D4=D4=B2=C0=A8=BA=C5=D6=D0=A1=A3=C0=FD=C8=E7=
=A3=AC<BR>1/3=20
=3D .33333333=A1=A1=D0=B4=B3=C90.(3)<BR>41/333 =3D =
0.123123123...=A1=A1=D0=B4=B3=C90.(123)<BR>=D3=C3xxx.0=20
=
=B3=C9=B1=ED=CA=BE=D5=FB=CA=FD<BR>=B5=E4=D0=CD=B5=C4=D7=AA=BB=AF=C0=FD=D7=
=D3=A3=BA<BR>1/3 =3D 0.(3)<BR>22/5 =3D 4.4<BR>1/7 =3D 0.(142857)<BR>2/2=20
=3D 1.0<BR>3/8 =3D 0.375<BR>45/56 =3D 0.803(571428)<BR><BR>PROGRAM =
NAME:=20
fracdec<BR><BR>INPUT =
FORMAT<BR><BR>=B5=A5=B6=C0=B5=C4=D2=BB=D0=D0=B0=FC=C0=A8=B1=BB=BF=D5=B8=F1=
=B7=D6=BF=AA=B5=C4=A1=A1N=BA=CDD=A3=AC=A1=A11 <=3D N,D <=3D=20
100000=A1=A3<BR><BR>SAMPLE INPUT (file fracdec.in) <BR><BR>45 =
56<BR><BR>OUTPUT=20
=
FORMAT<BR><BR>=D0=A1=CA=FD=B5=C4=B1=ED=CA=BE=B7=BD=B7=A8=C9=CF=C3=E6=CB=B5=
=B5=C4=BA=DC=C3=F7=B0=D7=C1=CB=A3=AC=C8=E7=B9=FB=CA=E4=B3=F6=B5=C4=B3=A4=B6=
=C8=B3=AC=B9=FD76=B8=F6=D7=D6=B7=FB=A3=AC=C3=BF=D0=D0=CA=E4=B3=F676=B8=F6=
=A1=A3<BR><BR>SAMPLE OUTPUT=20
(file fracdec.out)<BR><BR>0.803(571428)</DIV>
<P></P>
<HR>
<P></P>
<P><STRONG>USACO 2.4.5 Fractions to =
Decimals<BR>=CC=E1=BD=BB=B4=CE=CA=FD:3=B4=CE</STRONG></P>
=
<P><STRONG>=B7=BD=B7=A8:=C4=A3=C4=E2=CA=FA=CA=BD=D4=CB=CB=E3</STRONG></P>=
=
<P><STRONG>=BB=B9=CA=C7=B9=C0=BC=C6=B4=ED=B4=F0=B0=B8=B5=C4=B9=E6=C4=A3=C1=
=CB...=C3=BB=CF=EB=B5=BD=C4=DC=D3=D0=D5=E2=C3=B4=B6=E0=B5=C4=D1=AD=BB=B7=D0=
=A1=CA=FD,=D7=D4=BC=BA=CC=E1=BD=BB=C7=B0=CA=D4=C1=CB=BC=B8=B8=F6=B1=C8=BD=
=CF=BC=AB=CF=DE=B5=C4=CA=FD=BE=DD=B6=BC=B6=A5=B6=E02=D0=D0=D1=AD=BB=B7=B5=
=C4.=CF=EB=D6=AA=B5=C0=CA=FD=D7=E9=D7=EE=B4=F3=C4=DC=BF=AA=B6=E0=B4=F3,=D2=
=D4=BA=F3=BF=AA=B5=BD=BC=AB=CF=DE=BD=BB=BA=C3=C1=CB...</STRONG></P>
=
<P><STRONG>=CA=E4=B3=F6=D3=EF=BE=E4=D0=B4=B5=C4=BA=C3=B3=A4.....</STRONG>=
</P>
=
<P><STRONG>{<BR>TASK:fracdec<BR>LANG:PASCAL<BR>}<BR>{$D-,L-,R-,Y-,S-,I-,Q=
-}<BR>program=20
fracdec;<BR>var<BR> visit:array[1..100000] of=20
longint;<BR> visitb:array[1..1000000] of=20
boolean;<BR> ans:array[1..100000] of=20
longint;<BR> buf:array[1..1000000] of=20
char;<BR> ansp,visitp,n,d:longint;<BR>procedure=20
init;<BR>begin<BR> =20
assign(input,'fracdec.in');reset(input);<BR> =20
readln(n,d);<BR> =
close(input);<BR>end;<BR>procedure=20
work;<BR>var<BR> =20
last,m,repp,i,p,counter:longint;<BR> =20
rep:boolean;<BR>begin<BR> =20
=
assign(output,'fracdec.out');rewrite(output);<BR> =20
settextbuf(output,buf,sizeof(buf));<BR> =20
m:=3Dn;<BR> ansp:=3D0;<BR> =20
visitp:=3D0;<BR> =
rep:=3Dfalse;<BR> if m=20
mod d=3D0 then<BR> =20
=
begin<BR> &nbs=
p;=20
write(m div=20
=
d);<BR> =
=20
=
writeln('.0');<BR> &=
nbsp; =20
=
close(output);<BR> &=
nbsp; =20
exit;<BR> =20
end;<BR> =20
fillchar(visitb,sizeof(visitb),false);<BR> while =
(m mod=20
d<>0)and not rep =
do<BR> =20
=
begin<BR> &nbs=
p;=20
last:=3Dm mod=20
=
d;<BR> =
=
inc(visitp);<BR> &nb=
sp; =20
=
visit[visitp]:=3Dlast;<BR>  =
; =20
if visitb[last]=20
=
then<BR>  =
;=20
for i:=3D1 to visitp-1=20
=
do<BR> &=
nbsp; =20
if visit[i]=3Dlast=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
rep:=3Dtrue;<BR> &nb=
sp; &nbs=
p; =20
=
repp:=3Di+1;<BR> &nb=
sp; =20
=
end;<BR>  =
;=20
=
visitb[last]:=3Dtrue;<BR> =
=20
=
inc(ansp);<BR>  =
; =20
ans[ansp]:=3Dm div=20
=
d;<BR> =
m:=3Dlast*10;<BR> =20
end;<BR> inc(ansp);<BR> =
ans[ansp]:=3Dm=20
div d;<BR> p:=3Dn div n;<BR> =20
p:=3Dtrunc(ln(p)/ln(10))+1;<BR> =20
counter:=3D0;<BR> if not rep=20
then<BR> =20
begin<BR> for i:=3D1 to =
p=20
=
do<BR> =
=
begin<BR> &nbs=
p; =20
=
write(ans[i]);<BR> &=
nbsp; =20
if ans[i]>9=20
=
then<BR>  =
; =20
=
inc(counter,trunc(ln(ans[i])/ln(10))+1)<BR> =
=20
else=20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
=
end;<BR>  =
;=20
end;<BR> =20
write('.');<BR> =20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
end;<BR> for i:=3Dp+1 to =
ansp=20
=
do<BR> =
=
begin<BR> &nbs=
p; =20
=
write(ans[i]);<BR> &=
nbsp; =20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
=
end;<BR>  =
;=20
end;<BR> =20
end<BR> else=20
begin<BR> for i:=3D1 to =
p=20
=
do<BR> =
=
begin<BR> &nbs=
p;=20
=
write(ans[i]);<BR> &=
nbsp; =20
if ans[i]>9=20
=
then<BR>  =
; =20
=
inc(counter,trunc(ln(ans[i])/ln(10))+1)<BR> =
=20
else=20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
=
end;<BR>  =
;=20
end;<BR> =20
write('.');<BR> =20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
end;<BR> for i:=3Dp+1 to =
repp-1=20
=
do<BR> =
=
begin<BR> &nbs=
p; =20
=
write(ans[i]);<BR> &=
nbsp; =20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
=
end;<BR>  =
;=20
end;<BR> =20
write('(');<BR> =20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
end;<BR> for i:=3Drepp =
to visitp=20
=
do<BR> =
=
begin<BR> &nbs=
p; =20
=
write(ans[i]);<BR> &=
nbsp; =20
=
inc(counter);<BR> &n=
bsp; =20
if counter=3D76=20
=
then<BR>  =
; =20
=
begin<BR> &nbs=
p;  =
;=20
=
writeln;<BR> &=
nbsp; &n=
bsp;=20
=
counter:=3D0;<BR> &n=
bsp; =20
=
end;<BR>  =
;=20
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -