代码搜索结果
找到约 1,193 项符合
Q 的代码
1142down.pas
{$Q-,$R-}
program tju1142;
var
num:array['A'..'Z']of byte;
used:array[0..25]of boolean;
pre,next:array[-1..26]of shortint;
s:array[1..3]of string;
n,i:byte;
found:boolean;
procedu
1142rnd.pas
{$Q-,$R-}
program tju1142;
var
num:array['A'..'Z']of byte;
used:array[0..25]of boolean;
pre,next:array[-1..26]of shortint;
s:array[1..3]of string;
n,i,p,t:shortint;
found:boolean;
ac1249.pas
{$Q-,R-}
program tju1249;
const
maxn=1000;
maxv=maxn*2+2;
maxe=maxn*12;
var
edge:array[1..maxe]of record pre,v1,v2:word;cap:byte;cost:integer;end;
last,q,from:array[1..maxv]of word;
ac1242.pas
{$Q-,R-}
program tju1242;
const
maxn=30000;
maxe=100000;
maxq=100000;
var
edge:array[1..maxe]of record v1,v2:word;pre1,pre2:longint;del:byte;end;
query:array[1..maxq+maxe-maxn+1]of r
ac1225.pas
{$Q-,R-}
program tju1225;
const
maxchange=100001;
treesize=524287;
root=treesize shr 1+1;
var
tree:array[1..treesize]of longint;
n,limit,delta{real minus stored},total,leave,i,k:long
ac1251.pas
{$Q-,R-}
program tju1251;
const
max=90;
var
key,letter:string[max];
freq:array[1..max]of longint;
sum,cost,cut:array[1..max,1..max]of longint;
k,l,i,j,e,f,x,t:longint;
procedure out
ac1250.pas
{$Q-,R-}
program tju1250;
const
maxn=1000;
bignumsize=99;
compress=15;
base=32768;
primes=42;
type
bignum=array[-1..bignumsize]of longint;
var
p:array[1..primes]of byte;
fi
ac1258.pas
{$Q-,R-}
program tju1258;
const
move:array[1..2,0..8]of byte=((1,2,5,0,4,8,3,6,7),(0,1,2,4,5,3,6,7,8));
fact:array[1..9]of longint=(1,2,6,24,120,720,5040,40320,362880);
fact9=362880;
type
ac1246.pas
{$Q-,R-}
program tju1246;
const
maxn=20;
var
a,s:array[0..maxn]of word;
cut,min:array[1..maxn,1..maxn]of word;
n,i,j,k,t:longint;
procedure dfs1(l,r:byte);
begin
if l=r then