testlayoutbare.out

来自「格式化源码的最新板」· OUT 代码 · 共 234 行

unit testlayoutbare;

interface

implementation

function nastyelse(var foo, bar: boolean): integer;
begin
  if foo then
    Result := -1
  else;
end;

function nastyelse2(var foo, bar: boolean): integer;
begin
  if foo then
    if bar then
      Result := -1
    else
  else
    Result := 2;
end;

procedure littletest1;
var
  ia, ib: integer;
  liloop: integer;
begin
  if ia > 5 then
    for liloop := 1 to
      10 do
      ia := ia + random(2)
  else
    while ia < 50 do
      ia := ia + random(5);
end;

procedure littletest2;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 20 then
    ba := False
  else if ib > 6 then
    ba :=
      True
  else
    ba := False;
end;

procedure littletest3;
var
  ia, ib: integer;
  liloop: integer;
begin
  if ib < 15 then
    while ia < 10 do
      for liloop := 0 to 3 do
      begin
        ia := ia + random(10);
      end;
end;

procedure littletest4;
var
  ia: integer;
begin
  repeat
    ia := ia + random(10)
  until ia > 100;
end;

procedure ifelsetest;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 20 then
    ba := False
  else if ib > 6 then
    ba := True
  else if ia < 6 then
    ba := False;
  if ia > 20 then
    if ib > 5 then
      ba := False
    else if ib > 6 then
      ba := True
    else
      ba := False;
end;

procedure littletest5_1;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 5 then
    if ia > 20 then
      ba := True
    else
      ba := False;
end;

procedure littletest5_2;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 5 then
    if ia > 20 then
      ba := True
    else
      ba := False
  else
    ba := True;
end;

procedure littletest5_3;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 20 then
    if ib > 6 then
      ba := True
    else
      ba := False
  else
    ba := True;
end;

procedure littletest6;
var
  ia, ib: integer;
  ba:     boolean;
begin
  if ia > 5 then
    if ia > 20 then
      if ib > 6 then
        ba := True
      else
        ba := False
    else
      ba := True
  else
    ba := False;
end;

procedure mixem;
var
  ia, ib: integer;
begin
  ia := random(10);
  ib := random(10);
  if ia > 3 then
    if ia > 4 then
    begin
      ib := 10;
    end;
  if ia > 4 then
  begin
    if ia > 5 then
      if ia > 6 then
      begin
        if ia > 7 then
          if ia > 8 then
          begin
            if ia > 9 then
              ib := 10;
          end;
      end;
  end;
  if ia > 3 then
    if ia > 4 then
    begin
      if ia > 5 then
        if ia > 6 then
        begin
          if ia > 7 then
            if ia > 8 then
            begin
              if ia > 9 then
                ib := 10;
            end;
        end;
    end;
end;

procedure layoutbare;
var
  ia, ib: integer;
  ba:     boolean;
  liloop, liloop2: integer;
begin
  ia := random(10);
  ib := random(10);
  if ia > 5 then
    ba := True
  else
    ba := False;
  for liloop := 0 to 10 do
    ia := ia + random(10);
  for liloop := 0 to 10 do
    if ib < 15 then
      ia := ia - random(10);
  if ib < 15 then
    while ia < 10 do
      ia := ia + random(10);
  for liloop := 0 to 3 do
    for liloop2 := 0 to 3 do
      ia := ia - random(10);
  if ib < 15 then
    while ia < 10 do
      for liloop := 0 to 3 do
      begin
        ia := ia + random(10);
      end;
  if ia > 20 then
    if ib > 5 then
      ba :=
        False
    else if ib > 6 then
      ba := True
    else
      ba := False;
  repeat
    ia := ia + random(10)
  until ia > 100;
end;

end.