查人人中国名人网codol11月夺宝大战:帮我解决一个pascal题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/24 16:32:03
2、 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。
要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。
6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。
7、 输入一个时、分、秒，把它转换为一个秒数。
太简单了。我也选2个帮你答。
6
program p6;
var a,b:integer;
begin
readln(a,b);
writeln('C=',2*(a+b));
writeln('S=',a*b);
end.
7
program p7;
var
sum,h,m,s:integer;
begin
readln(h,m,s);
sum:=s+m*60+h*60*60;
writeln(sum,' s');
end.
只剩1、4、5啦
1我就不说话了...
4题：
嚣张算法：
begin
readln;
writeln('PASCAL');
end.
朴素算法：
var
i:longint;
s:string;
begin
readln(s);
for i:=1 to length(s) do
write(chr(ord(s[i]+ord('A')-ord('a'))));
end.
5题：
var
a:real;
begin
readln(a);
writeln(a);
writeln(trunc(a),a-trunc(a));
writeln(round(a));
end.
分开问，一起问，而且分数0，我最多也只给你答一题目
第2题目：
左对其
writeln('1');
writeln('12');
writeln('123');
右对其
Var i:integer;
Begin
i:=1;
writeln(i:80);
i:=12;
writeln(i:80);
i:=123;
writeln(i:80);
End.
3.
Var st:string;i:integer;
Begin
readln(st);
For i:=1 to length(st) do
st[i]:=chr(ord(st[i])-32);
writeln(st);
End.
太````````难