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

第五课：输入一个数，求它的各位上的数字之和

programGeWeiHe1(input,output);
var
x,s,t:integer;
begin
read(x);
s:=0;
repeat
   t:=xmod10;
   s:=s+t;
   x:=xdiv10;
untilx=0...

关键词：奥赛,PASCAL,编程,源码教学经纬 - 奥赛辅导 09-19 00:00

第四课：输入一个数，求它的各位上的数字之和

programGeWeiHe(input,output);
var
x,s,t:integer;
begin
read(x);
s:=0;
whilex>0do
   begin
     t:=xmod10;
     s:...

关键词：奥赛,PASCAL,编程,源码教学经纬 - 奥赛辅导 09-16 00:00

第三课：输入出生年份，计算生肖

programshuxiang(inout,output);
{12Shengxiao}
varyear:integer;
      sx:string;
begin
  write('inputnidechushengnian:');read(year);
  case(year-1986)mod12of...

关键词：奥赛,PASCAL,编程,源码教学经纬 - 奥赛辅导 09-12 00:00

第二课：用“*”号组成一个平行四边形

programtuxing(input,output);
varh,k:integer;
begin
    forh:=1to4do
        begin
             write...

关键词：奥赛,PASCAL,编程,源码教学经纬 - 奥赛辅导 09-09 00:00

第一课：变量的声明、赋值与输出

programlt1_1(input,output);
var
    a,b,x:integer;
Begin
    a:=3;
    b:=4;
    x:=a;
    a:=b;
  ...

关键词：奥赛,PASCAL,编程,源码教学经纬 - 奥赛辅导 09-05 00:00