代码搜索：array
找到约 10,000 项符合「array」的源代码
代码结果 10,000
www.eeworm.com/read/493719/6389331
pas ac1146.pas
program ural1146;
const
maxn=100;
var
x,y:array[1..maxn,1..maxn]of longint;
s:array[1..maxn]of longint;
n,i,j,k:byte;
m:longint;
function max(a,b:longint):longint;
begin
if a
www.eeworm.com/read/493719/6389335
pas ac1106.pas
program ural1106;
const
maxn=100;
var
f:array[1..maxn,0..maxn]of byte;
l:array[1..maxn]of byte;
n,i,j:byte;
procedure floodfill(x,y:byte);
var
i:byte;
begin
if l[x]>0 th
www.eeworm.com/read/493719/6389347
pas ac1128.pas
program ural1128;
const
maxn=7163;
var
e:array[1..maxn,1..3]of word;
t:array[0..maxn]of byte;
s:array[1..maxn]of word;
v:array[1..maxn]of boolean;
n,i,j,c,k:word;
first:boolean;
www.eeworm.com/read/493719/6389350
pas ac1171.pas
program ural1171;
const
maxn=16;
dir:array[0..3]of char=('E','S','W','N');
oppodir:array[0..3]of char=('W','N','E','S');
var
food,door:array[1..maxn,1..4,1..4]of byte;
dp:array[0..16{
www.eeworm.com/read/493719/6389352
pas ac1167.pas
program ural1167;
const
maxn=500;
var
color:array[1..maxn]of byte;
c:array[1..(maxn+1)*maxn div 2]of word;
{c[p(x,y)] is the coefficient of unhappiness from the xth horse to the
www.eeworm.com/read/493719/6389386
pas ac1163.pas
{$Q-,R-}
program ural1163;
const
r=0.8;
zero=1e-6;
var
e:array[1..16]of word;
x,y:array[1..16]of real;
angle:array[1..30]of real;
flag:array[1..30]of shortint;
mask:array[1..16
www.eeworm.com/read/493722/6389436
pas ac1227.pas
program ural1227;
const
maxm=100;
var
d:array[1..maxm,1..maxm]of longint;
v:array[1..maxm]of boolean;
l1,l2:array[1..maxm]of longint;
m,n,p,q,l,s,i:longint;
procedure succeed;
beg
www.eeworm.com/read/493722/6389468
pas ac1298.pas
program ural1298;
const
dx:array[1..8]of shortint=(-2,-1,-2,1,-1,2,1,2);
dy:array[1..8]of shortint=(-1,-2,1,-2,2,-1,2,1);
maxn=8;
var
v:array[1..maxn,1..maxn]of boolean;
way:array[1..
www.eeworm.com/read/493723/6389523
pas ac1334.pas
program ural1334;
const
dx:array[1..8]of shortint=(-1,-1,-1,0,1,1,1,0);
dy:array[1..8]of shortint=(-1,0,1,1,1,0,-1,-1);
var
a:array[0..9,0..9]of byte;
i,x,y,d:byte;
c:char;
begin