programlong;
vari,j,l,m,jinwei,benwei:integer;s:string;a,b:array[1..30]ofinteger;
c:array[1..61]ofinteger;
begin
fori:=1to30dobegina[i]:=0;b[i]:=0;end;
fori:=1to61dobeginc[i]:=0;end;
r...
vari,j,l,m,jinwei,benwei:integer;s:string;a,b:array[1..30]ofinteger;
c:array[1..61]ofinteger;
begin
fori:=1to30dobegina[i]:=0;b[i]:=0;end;
fori:=1to61dobeginc[i]:=0;end;
r...
[ 查看全文 ]
programstr(input,output);
var
str1,str2,str3:packedarray[1..20]ofchar;
i,he,jinwei:integer;
begin
fori:=1to20doread(str1[i]);
fori:=1to20doread(str2[i]);
fori:=20downto1do
...
var
str1,str2,str3:packedarray[1..20]ofchar;
i,he,jinwei:integer;
begin
fori:=1to20doread(str1[i]);
fori:=1to20doread(str2[i]);
fori:=20downto1do
...
[ 查看全文 ]
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...
[ 查看全文 ]