如何用DELPHI求出答案.

Question

本帖最后由 andylist 于 2010-06-12 10:03:07 编辑

Answer 1

I:= 12;
vCount:= 0;
while i > 0 do
begin
  I := I + 1 - 2;
  vCount := vCount + 1;
end;
vCount 就是天数

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  m:Integer;
begin
  i:=12;
  m:=0;
  while i>0 do
  begin
    i:=i-2;
    i:=i+1;
    m:=m+1;
  end;
  self.Label3.Caption:=IntToStr(m);
end;

Answer 3

function  TForm1.AAA : Integer;
 var
   TotalCount : Integer;
   Day : Integer;
begin
  TotalCount := 12;
  Day := 0;
    repeat
      Inc(Day);
      TotalCount := TotalCount + 1;
    until  TotalCount <2;
    result := Day;
end;
嘿嘿，2147483636，不知对否。

Answer 4

function  TForm1.AAA : Integer;
 var
   TotalCount : Integer;
   Day : Integer;
begin
  TotalCount := 12;
  Day := 0;
    repeat
      Inc(Day);
      TotalCount := TotalCount - 1;
    until  TotalCount <2;
    result := Day;
end;
刚才错了，嘿嘿

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
   Var
      intN:Integer;
      intI:Integer;
begin
   intN:=12;
   intI:=0;
   While intN>0 Do
   Begin
      Inc(intI);
      intN:=intN-2+1
   End;
   ShowMessage(IntToStr(intI-1));
end;//共11天

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
   x,day:Integer;
begin
    x:=12;
    day:=0;
    while x>0 do begin
      x:=x-2+1;
      day:=day+1;
    end;
    ShowMessage(IntToStr(day));
end;其实就是一天吃一个了