奥赛辅导-一级棒(Eachfun.com)

三十五课：长达三十位数的运算

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...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 01-06 00:00

三十四课：长达二十位的“整数”相加

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
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-30 00:00

三十三课：二进制到十进制的转化

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);...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-26 00:00

三十二课：二进制到十进制的转化

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
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-23 00:00

三十一课：十进制到二进制的转化

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...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-19 00:00

三十课：用五分、两分、一分的钱来凑一角钱

programcouqian;
var
i,j,k:integer;
begin
fori:=0to1do
   forj:=0to2do
     begin
       k:=10-5*i-2*j;
   ...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-16 00:00

二十九课：既是M的倍数又是N的约数

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
   ...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-12 00:00

二十八课：一个完整的程序，名片管理系统

programmp(input,output);
type
mingpian=record
   name:string[20];
   age:integer;
   phonenumber:string[7];
end;
var
mymp:array[1..10]ofmingpian;...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-09 00:00

二十七课：记录

programjilu(input,output);
type
student=record
   name:string[20];
   age:integer;
   height:real;
   weight:real;
   sex:boolean;...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-05 00:00

二十六课：集合

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...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 12-02 00:00

二十五课：计算汉诺塔

programabc(input,output);
vara:integer;
   b:longint;
functionfuc(x:integer):longint;
begin
   if(x=2)
     then
     ...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-28 00:00

二十四课：计算F(x)=F(x-1)*F(x-2)/2

programabc(input,output);
vara:integer;
   b:real;
functionfuc(x:integer):real;
begin
   if(x<=2)
     then
      ...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-25 00:00

二十三课：输入两个整数，用“#”画出以它们为边长的矩形

programshulie(input,output);
vara,b,i:integer;
procedureshuchu(x,y:integer);
vari,j:integer;
begin
   fori:=1toxdo
     begin
     forj:=1...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-21 00:00

二十二课：阶乘

programjc(input,output);
var
a,b:integer;
functionjiecheng(x:integer):integer;
vari,y:integer;
begin
   if(x=0)or(x=1)
     theny:=1
   ...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-18 00:00

二十一课：计算一个数的三次方

programChengFang(input,output);
var
a,b:integer;functionlifang(x:integer):integer;
var
i:integer;
jieguo:integer;
begin
jieguo:=1;
fori:=1to3do...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-14 00:00

二十课：从数组中检索一个值

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...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-11 00:00

十九课：计算杨辉三角

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
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-07 00:00

十八课：求费波那契数列的前20项

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...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 11-04 00:00

十七课：算今天、明天是星期几

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);...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-31 00:00

十六课：寻找水仙数

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+...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-28 00:00

十五课：用“*”排成的金字塔

programxunhuan(input,output);
vari,j,k:integer;
begin
fori:=1to6do
   begin
     forj:=1to6-ido
       begin
    ...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-24 00:00

十四课：显示九九乘法表

programJiuJiu2(input,output);
var
i,j:integer;
begin
i:=1;
whilei<10do
   begin
     j:=1;
     whilej<=ido
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-21 00:00

十三课：显示九九乘法表

programJiuJiu1(input,output);
var
i,j:integer;
begin
fori:=1to9do
   begin
     forj:=1toido
       write(i*j:4);
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-17 00:00

十二课：求两个整数的最大公约数

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...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-14 00:00

十一课：求两个整数的最大公约数

programzdgys(input,output);
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
   begin
     r:=m;m:=n;n:=r;
   end;
repeat
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-10 00:00

第十课：计算周次

programqiuzhouci(input,output);
varlen,czdate,czyue,zc,month,dates,days:integer;
begin
  czyue:=12;
  czdate:=23;
  zc:=18;  write('pleaseinputmonth:');read(month);
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-07 00:00

第九课：输出1,2,4,8,16……，超过1000时停止

programproWhile(input,output);
var
a:integer;
begin
a:=1;
whilea<1000do
   begin
     writeln(a);
     a:=a+a;
...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 10-03 00:00

第八课：输出1,2,4,8,16……，超过1000时停止

programproRepeat(input,output);
var
a:integer;
begin
a:=1;
repeat
writeln(a);
a:=a+a;
untila>1000
end....

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 09-30 00:00

第七课：1到10的累加

programQiuHe(input,output);
var
i:integer;
s:integer;
begin
s:=0;
fori:=1to10do
s:=s+i;
writeln(s);
end....

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 09-26 00:00

第六课：用无穷数列之和求PI的值

programPi(input,output);
vari:integer;
   s:real;
begin
s:=0;
fori:=1to1000do
   begin
     s:=s+1/(4*i-3)-1/(4*i-1);
   end;...

[ 查看全文 ]

关键词：奥赛,PASCAL,编程,源码编程园地 - 奥赛辅导 09-23 00:00