13121元3次方程求解【NOIP2001提高组】1313数的划分【NOIP2001提高组】.docVIP

一元三次方程求解【NOIP2001提高组】 Time Limit:10000MS? Memory Limit:65536KTotal Submit:7 Accepted:3 Description 　　有形如：ax^3+bx^2+cx+d=0 这样的一个一元三次方程。给出该方程中各项的系数(a，b，c，d 均为实数)，并约定该方程存在三个不同实根(根的范围在-100至100之间)，且根与根之差的绝对值=1。要求由小到大依次在同一行输出这三个实根(根与根之间留有空格)，并精确到小数点后2位。 　　提示：记方程f(x)=0，若存在2个数x1和x2，且x1X2，F(X1)*F(X2)样例 输入：1　　　-5　　　-4　　　20 输出：-2.00　　2.00　　5.00 Input Output Sample Input 1 -5 -4 20 {a，b，c，d ；均为实数，各数之间有一个空格} Sample Output -2.00 2.00 5.00 {精确到小数点后2位，每个数之间有一个空格} Source program fancheng; var a,b,c,d:real; x1,x2:real; i:integer; function f(x:real):real; begin f:=a*x*x*x+b*x*x+c*x+d; end; begin readln(a,b,c,d); for i:=-10000 to 10000 do begin x1:=(i-0.05)/100; x2:=(i+0.05)/100; if ((f(x1)*f(x2)0) or (f(x1)=0)) then write(i/100:0:2, ); end; writeln; end. 数的划分【NOIP2001提高组】 Time Limit:10000MS? Memory Limit:65536KTotal Submit:2 Accepted:2 Description 　　将整数n分成k份，且每份不能为空，任意两种分法不能相同(即不考虑顺序)。 　　例如：n=7，k=3，下面三种分法被认为是相同的。 1，1，5; 1，5，1; 5，1，1; 　　问有多少种不同的分法。 　　输入：n，k ( 6 n = 200，2 = k = 6) 　　输出：一个整数，即不同的分法。 样例 　　输入：7　3 　　输出：4 { 四种分法为： 1，1，5; 1，2，4; 1，3，3; 2，2，3; } Input 　　n　k　　　{ 6 n = 200，2 = k = 6 ，两数之间有一个空格} Output 　　一个整数，即不同的分法。 Sample Input 7 3 Sample Output 4 Hint {四种分法为： 1，1，5; 1，2，4; 1，3，3; 2，2，3; } Source const maxn=200; maxk=6; type arr=array[0..maxk,0..maxn] of longint; var g:arr; i,j:integer; n,k:integer; begin fillchar(g,sizeof(g),0); readln(n,k); for j:=0 to n do g[1,j]:=1; for i:=2 to k do for j:=0 to n-k do if j=i then g[i,j]:=g[i-1,j]+g[i,j-i] else g[i,j]:=g[i-1,j]; writeln(g[k,n-k]); end.