第三课:输入出生年份,计算生肖
发表时间:2002-09-12 00:00:00 关键词:奥赛,PASCAL,编程,源码
(点击:) 把这篇文章告诉我的QQ或MSN朋友
program shuxiang(inout,output);
{12 Shengxiao}
var year:integer;
sx:string;
begin
write('input ni de chu sheng nian:');read(year);
case (year-1986)mod 12 of
0:sx:='hu' ;
1,-11:sx:='tu' ;
2,-10:sx:='long';
3,-9 :sx:='she' ;
4,-8 :sx:='ma' ;
5,-7 :sx:='yang';
6,-6 :sx:='hou' ;
7,-5 :sx:='ji' ;
8,-4 :sx:='gou';
9,-3 :sx:='zhu' ;
10,-2:sx:='shu' ;
11,-1:sx:='niu';
end;
writeln (' ni shu ',sx);
end.
本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
