代码搜索：Byte
找到约 10,000 项符合「Byte」的源代码
代码结果 10,000
www.eeworm.com/read/246404/12728363
pas ac1030.pas
program tju1030;
const
maxl=100;
type
factorlist=record
count:byte;
value:array[1..3]of byte;
e:array[1..3]of byte;
end;
var
prime:array[1..maxl]of byte;
factor:array[
www.eeworm.com/read/246404/12728404
pas ac1090.pas
program tju1090;
const
maxn=100;
type
bignum=array[-1..57]of word;
var
a:array[1..maxn]of bignum;
i,j:byte;
t:bignum;
procedure mul(var a,b,c:bignum);
var
i,j:byte;
begin
www.eeworm.com/read/246404/12728509
pas ac1000.pas
program tju1000;
var
a,b:byte;
begin
read(a,b);
writeln(a+b);
end.
www.eeworm.com/read/246404/12728513
pas ac1095.pas
program tju1095;
const
maxn=100;
tail:array[0..9]of byte=(6,6,2,6,4,4,4,8,4,6);
var
a:array[0..maxn]of byte;
i,l,five,ans:byte;
s:string;
begin
repeat
readln(s);l:=length(s);
www.eeworm.com/read/246404/12728516
pas ac1001.pas
program tju1001;
var
n,i:byte;
c:char;
procedure printline(x:byte);
var
i:byte;
begin
for i:=1 to (n-x)*2 do write(' ');
if x>1 then begin
write(c);dec(c);
f
www.eeworm.com/read/246404/12728539
pas ac1061.pas
program tju1061;
const
maxl=50;
var
child,space:array[1..maxl]of byte;
swap:array[boolean,1..maxl]of byte;
s:string;
l,p,i,j:byte;
procedure findchild(x:byte);
begin
if s[x]=
www.eeworm.com/read/246404/12728899
pas 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
www.eeworm.com/read/246404/12728907
pas ac1266.pas
program tju1266;
const
maxn=50;
maxm=766;
var
len:array[1..maxn,1..maxn]of word;
id:array[1..maxn,1..maxn]of byte;
father,root:array[1..maxn]of byte;
adj:array[1..maxm,1..maxn-1]of
www.eeworm.com/read/246404/12728970
pas ac1025.pas
program tju1025;
const
maxn=10;
maxsum=2*sqr(maxn)-1;
var
prime:array[2..maxsum] of boolean;
ans:array[1..maxn,1..maxn,1..maxn]of byte;
next:array[0..sqr(maxn)]of byte;
t,i,n,x,y:b
www.eeworm.com/read/246404/12728972
pas ac1089.pas
program tju1089;
const
max=100;
var
adj:array[1..max,1..max]of boolean;
my:array[1..max]of byte;
vy:array[1..max]of boolean;
n,m,i,j,count:byte;
function aug(x:byte):boolean;
var