百度编程竞赛题一Delphi解法

   题目描述：一个正整数有可能可以被表示为n(n>=2)个连续正整数之和，如：
    15=1+2+3+4+5
    15=4+5+6
    15=7+8
    请编写程序，根据输入的任何一个正整数，找出符合这种要求的所有连续正整数序列。
    输入数据：一个正整数，以命令行参数的形式提供给程序。
    输出数据：在标准输出上打印出符合题目描述的全部正整数序列，每行一个序列，每个序列都从该序列的最小正整数开始、以从小到大的顺序打印。如果结果有多个序列，按各序列的最小正整数的大小从小到大打印各序列。此外，序列不允许重复，序列内的整数用一个空格分隔。如果没有符合要求的序列，输出“NONE”。
    例如，对于15，其输出结果是：
    1 2 3 4 5
    4 5 6
    7 8
    对于16，其输出结果是：
    NONE
   评分标准：程序输出结果是否正确。
Procedure TForm1.Button2Click(Sender: TObject);
Var
  i, j, ti, tj, tk, k: Integer;
  ar, br: Array[0..5000] Of Integer;    //10000以内
  s: String;
  a: TStringList;
Begin
  a := TStringList.Create;
  a.Duplicates := dupIgnore;
  a.Sorted := True;
  Memo1.Clear;
  ti := StrToInt(Edit1.Text);
  For i := 1 To (ti + 1) div 2 Do Begin
    ar[i] := i;
    br[i] := 0;
  End;
  For i := 0 To ti Div 2 Do Begin
    tj := 0;
    tk := 0;
    ar[i] := 0;
    For j := 1 To (ti + 1) Div 2 Do Begin
      If ar[j] > 0 Then Begin
        tj := tj + ar[j];
        tk := tk + 1;
        br[tk] := j;
        If tj = ti Then Begin
          s := '';
          For k := 1 To tk Do Begin
            s := s + IntToStr(br[k]) + '+';
            ar[br[k]] := 0;
            br[k] := 0;
          End;
          a.Add(Copy(s, 1, Length(s) - 1));
          Break;
        End;
      End;
    End;
  End;
  If a.Count = 0 Then Memo1.Lines.Add('NONE')
  Else Memo1.Lines.Assign(a);
End;

---

 第二题 重叠区间大小 
题目描述：请编写程序，找出下面“输入数据及格式”中所描述的输入数据文件中最大
重叠区间的大小。

对一个正整数n，如果n在数据文件中某行的两个正整数（假设为A和B）之间，即A <= n<= B或A >= n >= B，则n属于该行；如果n同时属于行i和j，则i和j有重叠区间；重叠区间的大小是同时属于行i和j的整数个数。
例如，行（10 20 ）和（12 25 ）的重叠区间为[12 20]，其大小为9；行（20 10 ）和（
12 18 ）的重叠区间为[10 12]，其大小为3；行(20 10)和（20 30 ）的重叠区间大小为1。
输入数据：程序读入已被命名为input.txt的输入数据文本文件，该文件的行数在1到1
, 000, 000 之间，每行有用一个空格分隔的2个正整数，这2个正整数的大小次序随机，每个数都在1和2^32 - 1 之间。（为便于调试，您可下载测试input.txt文件，实际运行时我们会使用不同内容的输入文件。）
输出数据：在标准输出上打印出输入数据文件中最大重叠区间的大小，如果所有行都没有重叠区间，则输出0。
评分标准：程序输出结果必须正确，内存使用必须不超过256MB，程序的执行时间越快越好。
我的答案：

Var
  m, n: Integer;
Implementation{$R *.dfm}
Procedure Add(a, b: Integer);
Var
  tmp: Integer;
Begin
  If m = n Then Begin
    If m = -1 Then Exit;
    If (m > b) And (m < a) Then Begin
      m := -1;
      n := -1;
    End;
    Exit;
  End;
  If a > b Then Begin
    tmp := a;
    a := b;
    b := tmp;
  End;
  If (n < a) Or (b < m) Then Begin
    n := -1;
    m := -1;
    Exit;
  End;
  If (m <= a) And (a <= n) And (n <= b) Then Begin
    m := a;
    Exit;
  End;
  If {(n>b)  and}(a <= m) And (m <= b) And (b <= n) Then Begin
    n := b;
    Exit;
  End;
  If (m <= a) And (b <= n) And (m <= b) Then Begin
    m := a;
    n := b;
    Exit;
  End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  m := -1;
  n := MaxInt;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  Add(StrToInt(Edit1.Text), StrToInt(Edit2.Text));
  Button1.Caption := IntToStr(m) + ' , ' + IntToStr(n) + '区间的大小=' + IntToStr(n - m + 1);
End;