中科新闻网梁凯恩101个目标清单:如何在PASCAL里用字符输出一个猪的头像。
来源：百度文库 编辑：中科新闻网 时间：2024/04/27 15:08:05
如何在PASCAL里
2、a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。 要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。
6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。
7、 输入一个时、分、秒，把它转换为一个秒数。
2、a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。 要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。
6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。
7、 输入一个时、分、秒，把它转换为一个秒数。
1.
begin
writeln(chr(748));//猪鼻子
writeln(chr(769));
writeln(chr(770));
end.
2.
var
a,b,c:integer;
begin
a:=1;
b:=12;
c:=123;
writeln(a);
writeln(b);
writeln(c);
writeln(a:3);
writeln(b:3);
writeln(c:3);
end.
3.
var
a:integer;
begin
read(a);
writeln(a mod 10,a div 10 mod 10,a div 100 mod 10,a div 1000);
end.
4.
var
a:array[1..6] of char;
i:integer;
begin
for i:=1 to 6 do
read(a[i]);
for i:=1 to 6 do
writeln(chr(ord(a[i])-32));
end.
5.
var
a,b,c:real;
c:integer;
begin
read(a);
writeln(a);
writeln(trunc(a));
writeln(a-trunc(a));
writeln(round(a));
end.
6.
var
a,b:integer;
begin
writeln(a*b);
writeln((a+b)*2);
end.
7.
var
sh,f,miao:longint;
begin
read(sh,f);
miao:=sh*60*60+f*60+miao;
writeln(miao);
end.