programbtod2;
var
b:string;
str1:char;
i,p,leftofdot,rightofdot:integer;dot:boolean;
a1,a2:array[1..20]ofinteger;
d,y:real;
begin
write('InputtheBinaryNumber:');readln(b);...
var
b:string;
str1:char;
i,p,leftofdot,rightofdot:integer;dot:boolean;
a1,a2:array[1..20]ofinteger;
d,y:real;
begin
write('InputtheBinaryNumber:');readln(b);...
[ 查看全文 ]
programbtod;
var
b:string;
str1:char;
d,i,y,l:integer;
a:array[1..20]ofinteger;
begin
write('InputtheBinaryNumber:');readln(b);
l:=length(b);
fori:=1toldo
...
var
b:string;
str1:char;
d,i,y,l:integer;
a:array[1..20]ofinteger;
begin
write('InputtheBinaryNumber:');readln(b);
l:=length(b);
fori:=1toldo
...
[ 查看全文 ]
programDtoB;
var
a,n:real;
s1,s2:string[20];p:string;
i,j,m,t:integer;
begin
readln(a);
m:=trunc(a);
n:=a-trunc(a); i:=0;
repeat
i:=i+1...
var
a,n:real;
s1,s2:string[20];p:string;
i,j,m,t:integer;
begin
readln(a);
m:=trunc(a);
n:=a-trunc(a); i:=0;
repeat
i:=i+1...
[ 查看全文 ]
programcouqian;
var
i,j,k:integer;
begin
fori:=0to1do
forj:=0to2do
begin
k:=10-5*i-2*j;
...
var
i,j,k:integer;
begin
fori:=0to1do
forj:=0to2do
begin
k:=10-5*i-2*j;
...
[ 查看全文 ]
programxunshu;
var
m,n,i,p:integer;
begin
read(m,n);
p:=0;
fori:=m+1ton-1do
if(imodm=0)and(nmodi=0)then
begin
...
var
m,n,i,p:integer;
begin
read(m,n);
p:=0;
fori:=m+1ton-1do
if(imodm=0)and(nmodi=0)then
begin
...
[ 查看全文 ]
programmp(input,output);
type
mingpian=record
name:string[20];
age:integer;
phonenumber:string[7];
end;
var
mymp:array[1..10]ofmingpian;...
type
mingpian=record
name:string[20];
age:integer;
phonenumber:string[7];
end;
var
mymp:array[1..10]ofmingpian;...
[ 查看全文 ]
programjilu(input,output);
type
student=record
name:string[20];
age:integer;
height:real;
weight:real;
sex:boolean;...
type
student=record
name:string[20];
age:integer;
height:real;
weight:real;
sex:boolean;...
[ 查看全文 ]
programjihe(input,output);
type
shuji=setof1..10;
var
shuji1,shuji2,shuji3:shuji;
a:integer;
begin
shuji1:=[3,4,5];
shuji2:=[6,8,4];
shuji3:=shuji1+shuji2;
re...
type
shuji=setof1..10;
var
shuji1,shuji2,shuji3:shuji;
a:integer;
begin
shuji1:=[3,4,5];
shuji2:=[6,8,4];
shuji3:=shuji1+shuji2;
re...
[ 查看全文 ]
programabc(input,output);
vara:integer;
b:longint;
functionfuc(x:integer):longint;
begin
if(x=2)
then
...
vara:integer;
b:longint;
functionfuc(x:integer):longint;
begin
if(x=2)
then
...
[ 查看全文 ]
programabc(input,output);
vara:integer;
b:real;
functionfuc(x:integer):real;
begin
if(x<=2)
then
...
vara:integer;
b:real;
functionfuc(x:integer):real;
begin
if(x<=2)
then
...
[ 查看全文 ]
programshulie(input,output);
vara,b,i:integer;
procedureshuchu(x,y:integer);
vari,j:integer;
begin
fori:=1toxdo
begin
forj:=1...
vara,b,i:integer;
procedureshuchu(x,y:integer);
vari,j:integer;
begin
fori:=1toxdo
begin
forj:=1...
[ 查看全文 ]
programjc(input,output);
var
a,b:integer;
functionjiecheng(x:integer):integer;
vari,y:integer;
begin
if(x=0)or(x=1)
theny:=1
...
var
a,b:integer;
functionjiecheng(x:integer):integer;
vari,y:integer;
begin
if(x=0)or(x=1)
theny:=1
...
[ 查看全文 ]
programChengFang(input,output);
var
a,b:integer;functionlifang(x:integer):integer;
var
i:integer;
jieguo:integer;
begin
jieguo:=1;
fori:=1to3do...
var
a,b:integer;functionlifang(x:integer):integer;
var
i:integer;
jieguo:integer;
begin
jieguo:=1;
fori:=1to3do...
[ 查看全文 ]
programJianSuo(input,output);
var
s:array[1..100]ofinteger;
i,a:integer;
begin
fori:=1to100dos[i]:=i;
write('Inputanumber:');
read(a);{ThenumbertobefindinArray} i:=0;
re...
var
s:array[1..100]ofinteger;
i,a:integer;
begin
fori:=1to100dos[i]:=i;
write('Inputanumber:');
read(a);{ThenumbertobefindinArray} i:=0;
re...
[ 查看全文 ]
programyanghui(input,output);
var
x:array[1..10,1..10]ofinteger;
i,j:integer;
begin
x[1,1]:=1;x[2,1]:=1;x[2,2]:=1;
writeln(1:4);
writeln(1:4,1:4);
fori:=3to10do
...
var
x:array[1..10,1..10]ofinteger;
i,j:integer;
begin
x[1,1]:=1;x[2,1]:=1;x[2,2]:=1;
writeln(1:4);
writeln(1:4,1:4);
fori:=3to10do
...
[ 查看全文 ]
programshuzu(input,output);
{Faibonacci}
var
x:array[1..20]ofinteger;
i:integer;
begin
x[1]:=0;x[2]:=1;
writeln(x[1]);writeln(x[2]);
fori:=3to20do
begin...
{Faibonacci}
var
x:array[1..20]ofinteger;
i:integer;
begin
x[1]:=0;x[2]:=1;
writeln(x[1]);writeln(x[2]);
fori:=3to20do
begin...
[ 查看全文 ]
programMeiJu(input,output);
type
daytype=(sun,mon,tue,wed,thu,fri,sat);
var
today,tomorrow:daytype;
d,mmmm,dddd:integer;
begin
write('Pleaseinputmonth,day:');
read(mmmm,dddd);...
type
daytype=(sun,mon,tue,wed,thu,fri,sat);
var
today,tomorrow:daytype;
d,mmmm,dddd:integer;
begin
write('Pleaseinputmonth,day:');
read(mmmm,dddd);...
[ 查看全文 ]
programxunhuan(input,output);
vari,j,k:integer;
begin
fori:=1to9do
forj:=0to9do
fork:=0to9do
ifi*i*i+j*j*j+k*k*k=i*100+j*10+...
vari,j,k:integer;
begin
fori:=1to9do
forj:=0to9do
fork:=0to9do
ifi*i*i+j*j*j+k*k*k=i*100+j*10+...
[ 查看全文 ]
programxunhuan(input,output);
vari,j,k:integer;
begin
fori:=1to6do
begin
forj:=1to6-ido
begin
...
vari,j,k:integer;
begin
fori:=1to6do
begin
forj:=1to6-ido
begin
...
[ 查看全文 ]
programJiuJiu2(input,output);
var
i,j:integer;
begin
i:=1;
whilei<10do
begin
j:=1;
whilej<=ido
...
var
i,j:integer;
begin
i:=1;
whilei<10do
begin
j:=1;
whilej<=ido
...
[ 查看全文 ]
programJiuJiu1(input,output);
var
i,j:integer;
begin
fori:=1to9do
begin
forj:=1toido
write(i*j:4);
...
var
i,j:integer;
begin
fori:=1to9do
begin
forj:=1toido
write(i*j:4);
...
[ 查看全文 ]
programzdgys1(input,output);
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
r:=1;
whi...
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
r:=1;
whi...
[ 查看全文 ]
programzdgys(input,output);
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
repeat
...
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
repeat
...
[ 查看全文 ]
programqiuzhouci(input,output);
varlen,czdate,czyue,zc,month,dates,days:integer;
begin
czyue:=12;
czdate:=23;
zc:=18; write('pleaseinputmonth:');read(month);
...
varlen,czdate,czyue,zc,month,dates,days:integer;
begin
czyue:=12;
czdate:=23;
zc:=18; write('pleaseinputmonth:');read(month);
...
[ 查看全文 ]
programproWhile(input,output);
var
a:integer;
begin
a:=1;
whilea<1000do
begin
writeln(a);
a:=a+a;
...
var
a:integer;
begin
a:=1;
whilea<1000do
begin
writeln(a);
a:=a+a;
...
[ 查看全文 ]
programproRepeat(input,output);
var
a:integer;
begin
a:=1;
repeat
writeln(a);
a:=a+a;
untila>1000
end....
var
a:integer;
begin
a:=1;
repeat
writeln(a);
a:=a+a;
untila>1000
end....
[ 查看全文 ]
programQiuHe(input,output);
var
i:integer;
s:integer;
begin
s:=0;
fori:=1to10do
s:=s+i;
writeln(s);
end....
var
i:integer;
s:integer;
begin
s:=0;
fori:=1to10do
s:=s+i;
writeln(s);
end....
[ 查看全文 ]
programPi(input,output);
vari:integer;
s:real;
begin
s:=0;
fori:=1to1000do
begin
s:=s+1/(4*i-3)-1/(4*i-1);
end;...
vari:integer;
s:real;
begin
s:=0;
fori:=1to1000do
begin
s:=s+1/(4*i-3)-1/(4*i-1);
end;...
[ 查看全文 ]
programGeWeiHe1(input,output);
var
x,s,t:integer;
begin
read(x);
s:=0;
repeat
t:=xmod10;
s:=s+t;
x:=xdiv10;
untilx=0...
var
x,s,t:integer;
begin
read(x);
s:=0;
repeat
t:=xmod10;
s:=s+t;
x:=xdiv10;
untilx=0...
[ 查看全文 ]
programGeWeiHe(input,output);
var
x,s,t:integer;
begin
read(x);
s:=0;
whilex>0do
begin
t:=xmod10;
s:...
var
x,s,t:integer;
begin
read(x);
s:=0;
whilex>0do
begin
t:=xmod10;
s:...
[ 查看全文 ]