求解题报告 [复制链接]

对于我这超菜的,十分想要初赛程序题的<<解题报告>>!!
谢谢!!

哪年的？这个只能一题一题讲啊

program Program3;
var m,n: integer;   mark: Boolean;
function test(m,N:integer):integer;
var i,p: integer;   flag: boolean;
begin
  m := m - 1;   i := 0;   flag := False;
  for p:= 2*N downto (N+1) do
  begin
    i:= (i+m) mod p;
    if (i
    begin
      test := 0;   flag := Ture;     Break;
      end
  end;
  if not(flag) then   test:=1;
end;
begin
read(n);   m:=1;   Mark := False;
repeat
  if (test(m,n)=1) then
    begin   writeln(m); break;   end;
  m:= m+1;
until Mrak;
end.
输入：7                               输出_________

这道题该怎麽做?

4. program Program4;
var m,n,i,j: integer;
  p,w,a,b: array[0..19] of integer;
begin
read(n); m:= 0;
for i:= 0 to n-1 do
begin   read(p);   b:=1; end;
for i:=0 to n-1 do
  begin
    if (i>0) then
    a[m]:=p-p[i-1]
    else
    a[m]:=p;
    m:=m+1;
while ((m>1) and (a[m-1]=0)) do
    begin   m:=m-1;   b[m]:=1; end;
    if (m>0) then
    w:=b[m-1];
    else
    w:=b[0];
    a[m-1]:=a[m-1]-1;
    for j:=0 to m-1 do   b[j]:=b[j]+1;
while ((m>1) and (a[m-1]=0)) do
    begin  
m:=m-1;   b[m]:=1;
end;
    end;
  for i:= 0 to n-1 do
    begin
    write(w);     write(' ');
    end;
  writeln(' ');
end.
输入：9
    4 6 6 6 6 8 9 9 9 9

输入样例：15
输出样例：   /\ /\
            / \/ \
这个15是怎麽变来的?
题目描述：
二维离散世界有一种地形叫OIM(OI Mountain)。这种山的坡度只能上升('/')或下降('\'),而且两边的山脚都与地平线等高,山上所有地方都不低于地平线.例如：
/\             /\
/ \/\ 是一座OIM；而 /   \   不是。
                  \/
这个世界的地理学家们为了方便纪录，给OIM所有可能的形状用正整数编好号，而且每个正整数恰好对应一种山形。他们规定，若两座山的宽度不同，则较宽的编号较大；若宽度相同，则比较从左边开始第1个坡度不同的地方，坡度上升的编号较大。以下三座OIM的编号有小到大递增：
/\     /\     /\ /\
/ \/\ / \/\/\ / \/ \。显然/\的编号为1。但是地理学家在整理纪录是发觉，查找编号与山形的对应关系不是很方便。他们希望能快速地从编号得到山的形状。你自告奋勇答应他们写一个程序，输入编号，能马上输出山形。
输   入：一个编号（编号大小不超过600,000,000），
输   出：输入编号所对应的山形，1座山所占行数恰为它的高度，即山顶上不能有多余空行。

这是第9届的!
十分感谢!!