一级棒
一级棒,猫哥的个人主页
文章列表
1 2 3 4 5 6 7 8
programChengFang(input,output);
var
 a,b:integer;functionlifang(x:integer):integer;
 var
 i:integer;
 jieguo:integer;
 begin
   jieguo:=1;
   fori:=1to3do...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-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,编程,源码 编程园地 - 奥赛辅导 2002-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,编程,源码 编程园地 - 奥赛辅导 2002-11-07 00:00
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,编程,源码 编程园地 - 奥赛辅导 2002-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,编程,源码 编程园地 - 奥赛辅导 2002-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,编程,源码 编程园地 - 奥赛辅导 2002-10-28 00:00
programxunhuan(input,output);
vari,j,k:integer;
begin
 fori:=1to6do
   begin
     forj:=1to6-ido
       begin
    ...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-10-24 00:00
programJiuJiu2(input,output);
var
 i,j:integer;
begin
 i:=1;
 whilei<10do
   begin
     j:=1;
     whilej<=ido
 ...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-10-21 00:00
programJiuJiu1(input,output);
var
 i,j:integer;
begin
 fori:=1to9do
   begin
     forj:=1toido
       write(i*j:4);
 ...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-10-17 00:00
programzdgys1(input,output);
varm,n,r:integer;
begin
 read(m,n);
 if(m   begin
     r:=m;m:=n;n:=r;
   end;
 r:=1;
 whi...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-10-14 00:00
1 2 3 4 5 6 7 8
搜索
Copyright©2000 - 2022 Eachfun.Com, All Rights Reserved 一级棒网络
苏ICP备15042862号-1