UC知道pascal语言的问题，聪明人的问题
来源：百度知道 编辑：UC知道 时间：2024/05/20 04:41:03
思考与练习：
1、 用字符输出一个猪锦佳的头像。
2、 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。
要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。
6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。
7、 输入一个时、分、秒，把它转换为一个秒数。
1、 用字符输出一个猪锦佳的头像。
2、 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。
要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。
6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。
7、 输入一个时、分、秒，把它转换为一个秒数。
1.……
2.
begin
a:=1;
b:=12;
c:=123;
writeln(a); writeln(b); writeln(c); writeln(a:0:3); writeln(b:0:3);writeln(c:0:3);
end;
3.
begin
read(a);
for i:=1 to 4 do
begin
write(a mod 10);
a:=a div 10;
end;
end.
4.
begin
for i:=1 to 6 do
begin
read(c[i]);
c[i]:=chr(ord(c[i])-32);
end;
for i:=1 to 6 do
write(c[i]);
end.
5.
begin
read(a);
writeln(a);
writeln(trunc(a));
writeln(a-trunc(a));
writeln(round(a));
end.
6.
begin
read(a,b);
writeln(a*b);
writeln(2*a+2*b);
end.
7.
begin
read(h,m,s);
s:=s+m*60+h*3600;
writeln(s);
end.
5:
var a:real;
begin
read(a);
write(a);
write(trunc(a));
write(a-trunc(a));
write(round(a));
end.
有截小数的函数的，你没让用就没用<