JSOI春季函授A层次网上考试解题报告.docVIP

JSOI2008春季函授A层次网上考试解题报告 By sx349 《股票（stock）》解题报告 问题描述 小Y最近一直在研究某一股票，为了能够得到最大收益，他收集了这支股票近N天的走势情况。小Y手上有一笔钱，他想知道两个问题： 第一个，如果他在这N天投资一次股票，最多能获利多少钱？就是说他只买进和卖出各一次。 第二个，如果他在任意一天把资金全部买入，之后任意一天把手上的股票全部卖出，挣钱的概率是多少？挣钱是指获利大于0。当然买入当天是不允许卖的。 由于小Y这个人比较“特别”，他看中的股票也如此，没有张停跌停的概念，爱怎么走怎么走（买这种股才够挑战）。这N天总是不会一直是熊市，否则小Y干吗在这时候投资。 输入格式 第一行，一个整数N(N=1000)。 第二行，N个空格隔开的实数，表示每天该股每一股的市值。 第三行，一个整数M，表示小Y手上持有的资金。 输出格式 第一行，一个实数，表示最大获利，保留3位小数。 第二行，一个实数，表示挣钱的概率，保留3位小数。 输入样例 10 5 7 6 8 5 1 2 3 4 5 100 输出样例 400.000 0.333 算法分析 这道题只需要采用穷举的算法即可，每次穷举在第i日买入并在第j日（1≤i＜j≤N）卖出所得的利润t=trunc(m/a[i])*(a[j]-a[i])。其中a[i]（1≤i≤N）记录了第i天的股票价格。时间复杂度O(N2) 对于第一问，我们可以增开一个max变量记录最大值。当前的t若大于最大值max，则max替换为当前t值。在输出时，直接输出max即可。 对于第二问，可以发现小Y的行为总共有N*（N-1）/2可能性。所以，我们再增开一个income变量，记录在所有可能性中获利的情况。在计算t的过程中，如果t＞0（即获利），则income变量增加一。在输出时，要输出获利概率，所以应输出income/(n*(n-1)/2)。 注意：题目中有保留三位小数的要求，所以要使用实数的双场宽，具体实现在此不再赘述。 数据结构 主要是一个记录股票的数组。 var a:array[1..1000] of real; m,t,max:real; n,income,i,j:longint; 源程序 var a:array[1..1000] of real; m,t,max:real; n,income,i,j:longint; begin assign(input,stock.in); assign(output,stock.out); reset(input); rewrite(output); readln(n); for i:=1 to n do read(a[i]); readln(m); max:=0; income:=0; for i:=1 to n-1 do for j:=i+1 to n do begin t:=trunc(m/a[i])*(a[j]-a[i]); if tmax then max:=t; if t0 then inc(income); end; writeln(max:0:3); writeln(income/(n*(n-1)/2):0:3); close(input); close(output); end. 《数字串（niz）》解题报告 问题描述 地理课上小Y太无聊了！！！干什么呢？他喜欢数字，当他连续写下从十进制整数1开始到某个整数N之间的所有整数时，发现能得到如下的数字序列： 12345678910111213141516171819202122… 现在，小Y想编一个程序，计算十进制整数N在数字序列中第一次出现的位置。 输入格式 输入的第一行且是唯一的一行包含：一个整数N，1≤N≤100,000,000。 输出格式 输出数据仅有的一行应包含十进制整数N在数字序列中第一次出现的位置。 输入样例 34 输出样例 3 算法分析 由于输入的整数N最大仅为十位，所以我们考虑采取切割的办法，将原数切割成几个部分，再判断分割的几个部分是否连续。 因为原数共有（位数-1）个地方可以切割开，所以切割原数的方法总共有2^(位数-1)个。我们用一个二进制的for循环来完成，每次考虑一种切割方法。cut数组记录切割的位置，cuts变量记录总共切割的数目，用s数组记录每一个切割的部分。 （1）当cuts1时，设cuts=n，则原数将被切割成n+1个部分，记为s[0]，s[1]……s[n-1]，s[n]，显然，它们的首位不为0。它们的数值分别为val[1],val[2]……val[n-1],val[n]。在这一序列中，从val[1]到val[n-1]这一部