有哪些信誉好的足球投注网站- 1、本文档共5页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Pascal语言程序设计例题
Pascal语言程序设计例题
1、将输入的三个整数按从大到小的顺序输出。
program exam(input,output);
var
a,b,c:integer;
procedure exchange(var x,y:integer);
var
t:integer;
begin
t:=x;
x:=y;
y:=t
end;
begin
write(请输入三个整数:);
readln(a,b,c);
if ab then exchange(a,b);
if ac then exchange(a,c);
if bc then exchange(b,c);
writeln(从大到小排列为:,a:6,b:6,c:6)
end.
2、求出1000以内的所有质数并输出。
program exam(input,putput);
var
flag:boolean;
i,j:integer;
begin
writeln(1000以内的所有质数如下:);
i:=2;
write(i:4);
for i:=3 to 1000 do
begin
flag:=true;
j:=2;
repeat
if i mod j=0 then flag:=false;
j:=j+1
until (i=j) or not flag;
if flag then write(i:4)
end;
writeln
end.
3、已知某月一号为星期三，试根据输入的该月某日期判断当天为星期几。
program exam(input,output);
var
week:(Sun,Mon,Tues,Wed,Thur,Fri,Sat);
day:1..31;
i:integer;
begin
write(已知某月一号为星期三，请输入该月某日期:);
readln(day);
week:=Sun;
for i:=0 to (day+1) mod 7 do week:=succ(week);
write(该日期为星期);
case week of
Sun: writeln(日);
Mon: writeln(一);
Tues:writeln(二);
Wed: writeln(三);
Thur:writeln(四);
Fri: writeln(五);
Sat: writeln(六)
end
end.
4、输入一个0～30之间的整数，用递归法求其阶层并输出。
program exam(input,output);
var
num:0..30;
function fact(n:integer):real;
begin
if n=0 then fact:=1
else fact:=n*fact(n-1)
end;
begin
write(请输入一个0～30的整数以便计算其阶层:);
readln(num);
writeln(num,!=,fact(num))
end.
5、把一张一百元钞票换成一元、二元和五元的钞票(每种至少一张)，
列出各种换法，并统计换法总数
program exam(input,output);
const
num=100;
var
n5,n2,n1,total:integer;
begi
文档评论（0）