POJ 1868(等差数列）

最新推荐文章于 2023-04-14 16:10:41 发布

原创最新推荐文章于 2023-04-14 16:10:41 发布 · 977 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ant #c #算法

杂题专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一个使用暴力模拟方法实现的程序，该程序通过一系列嵌套循环来检查数组中是否存在反阿罗特序列，并据此判断输入数据是否符合特定条件。文章详细展示了如何用Pascal语言编写并实现这一算法。

暴力模拟无算法

Program P1868;
Var
   c:char;
   n,i,j,k:longint;
   a:array[0..10000] of longint;
function is_ant:boolean;
var
   i,j,k:longint;
begin
   for k:=1 to n shr 2 do
      for i:=1 to n-k shl 1-1 do
         if ((a[i]<a[i+k]) and (a[i+k]<a[i+2*k])) or ((a[i]>a[i+k]) and (a[i+k]>a[i+2*k])) then exit(false);




   exit(true);
end;
Begin
   while true do
   begin
      read(c);
      if c='0' then break;
      val(c,n);
      repeat
         read(c);
         if c=':' then break;
         n:=n*10+ord(c)-48;
      until false;
      for i:=1 to n do
      begin
         read(j);
         a[j]:=i;
      end;

      if is_ant then writeln('yes') else writeln('no');

      readln;

   end;
end.