摘要: 某题目出错了,然后就写了个错的、觉得很可惜,就粘过来、、自己感觉挺对的、、 1 Var 2 l,r,a,b,c,n,i:longint; 3 x,xx,Iris:Extended; 4 Begin 5 Read(L,r); 6 Iris:=-1*Maxlongint; 7 Read(a,b,c); 8 if a=0 Then 9 Begin10 if b0 Then14 Begin15 x:=-0.5*b/a;16 if xr Then xx:=a*r*r+r*b+c19 Else xx:=c-b*b/(4... 阅读全文
posted @ 2013-11-06 17:22 Iris.Catch-22.S、` 阅读(266) 评论(0) 推荐(0) 编辑