中科新闻网桃花大相师txt免费下载:pascal的题目
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 06:13:58
2．输入三个数，按由大到小顺序打印出来。
3．计算1901年2099年之间的某月某日是星期几。
4．输入两个正整数a，b。b最大不超过三位数，a不大于31。使a在左，b在右，拼接成一个新的数c。例如：a＝2，b＝16，则c＝216；若a＝18，b＝476，则c＝18476。
提示：求c的公式为：
c＝a×K＋b
第一题：
program t1;
var a,b,c,t,d:integer;
begin
write('enter a b c='); readln(a,b,c);
if a>c then begin {dui a b c paixu}
t:=a;
a:=c;
c:=t;
end;
if b>c then begin
t:=c;
c:=b;
b:=t;
end;
if a+b>c then begin
d:=a*a+b*b-c*c;
if d>0 then begin
writeln('rui jiao');
end else if d=0 then
writeln('zhi jiao')
else if d<0 then
writeln('dun jiao');
end else writeln('no');
end.
第二题：
program t2;
var
a,b,c:integer;
begin
readln(a,b,c);
if a>b
then begin
k:=a;
a:=b;
b:=k
end
else if a>c
then begin
k:=a;
a:=c;
c:=k
end;
if b>c then begin
k:=b;
b:=c;
c:=k
end;
writeln(a,' ',b,' ',c)
end.
第四题(按题目的要求（即c=a*K+b）)：
program t4;
var
a,b,c,k,i:integer;
s:string;
begin
readln(a,b);
str(b,s);
k:=1;
for i:=1 to length(s) do
k:=k*10;
c:=a*k+b;
writeln('c=',c)
end.
{第三题我以后再发上来吧}
1.条件转移
2.排序,简单或冒泡都行
3.先确定今天星期6,其他日子计算到今天的天数,剩下的...
4.判断位数
begin
n:=b;
k:=0;
repeat
n:=n div 10;
k:=k+1;
until (n=0)
end;