查人人中国名人网体检男外科检查什么:如何在PASCAL里用字符输出一个猪的头像。
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/03 07:02:06
2、 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。 要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。
6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。
7、 输入一个时、分、秒，把它转换为一个秒数。
对于问题一 不知道你说所的猪是什么意思 是一个字符还是一幅图画 具体解释一下
4.针对将一个字符串的所有小写字符转换为大写
var c:char;
begin
while not eoln do begin
read(c);
if ord(c)>96 then write(chr(ord(c)-32)) else
write(c);
end;
end.
5.仅仅是函数的调用就可以了
6.
var a,b;integer;
begin
readln(a,b);
writeln(a*b);//面积
writeln((a+b)*2);//周长
end.
7.
var h,m,s:integer;
begin
readln(h,m,s);
writeln(h*3600+m*60+s);
end.
这个是第二题～
‘‘‘
var a,b,c:integer;
begin writeln(a:72);writeln(b:72);
writeln(c:72);
writeln(a);writeln(b);
writeln(c);
end.
这个是第三题～
‘‘
var n,a,b,c,d:integer;
begin readln(n);
d:=n mod 10; n:=n div 10;
c:=n mod 10; n:=n div 10;
b:=n mod 10; n:=n dive 10;
a:=n mod 10; write(d:3,c:3,b:3,a:3);
end.
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.