作业帮几道关于pascal的题目题目分别如下：1.用字符输出一个“王”字.2.从键盘上读入小写的"pascal",利用CHR（）和ORD（）函数,输出大写的"PASCAL".3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 03:45:49
几道关于pascal的题目题目分别如下：1.用字符输出一个“王”字.2.从键盘上读入小写的"pascal",利用CHR（）和ORD（）函数,输出大写的"PASCAL".3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函
几道关于pascal的题目
题目分别如下：
1.用字符输出一个“王”字.
2.从键盘上读入小写的"pascal",利用CHR（）和ORD（）函数,输出大写的"PASCAL".
3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函数,输出该实数本身、整数部分、小数部分、四舍五入后的值.（要求：分三行输出 ；输出实数本身时,格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行.）
4.输入一个时、分、秒,把它转换为一个秒数.
这些题请帮忙解决一下,好的话加分,答案前请加题号,谢谢!
几道关于pascal的题目题目分别如下：1.用字符输出一个“王”字.2.从键盘上读入小写的"pascal",利用CHR（）和ORD（）函数,输出大写的"PASCAL".3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函
1,
var
a:integer;
begin
writeln(' -----');
writeln(' -|-');
writeln('-------')
end.
2,
不知道楼主有没有学到字符串,如果用字符串
var
a,c:integer;
s:string;
begin
read(s);
a:=length(s);
for c:=1 to a do write(chr(ord(s[c])-32));
end.
如果不用字符串
var
a,c:integer;
r:char;
begin
while r'l' do
begin
read(r);
write(chr(ord(r)-32));
end;
writeln;
end.
3,
var
a,c:integer;
s:real;
r:char;
begin
readln(s);
writeln(s);
writeln(trunc(s),' ',s-trunc(s):0:1);
writeln(s:0:1);
writeln;
end.
4,
var
a,c,s,f,m:integer;
r:char;
begin
read(s,f,m);
writeln(s*3600+f*60+m);
end.
已测试,并精简到极致,