几道关于pascal的题目

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/05 17:36:01

几道关于pascal的题目
题目分别如下：
1.用字符输出一个“王”字.
2.从键盘上读入小写的"pascal",利用CHR（）和ORD（）函数,输出大写的"PASCAL".
3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函数,输出该实数本身、整数部分、小数部分、四舍五入后的值.（要求：分三行输出；输出实数本身时,格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行.）
4.输入一个时、分、秒,把它转换为一个秒数.
这些题请帮忙解决一下,好的话加分,答案前请加题号,谢谢!

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.
已测试,并精简到极致,

几道关于pascal的题目关于pascal的几道题目几道free pascal的题目几道pascal语言的简单题目关于一道pascal题目一道pascal的题目 Pascal语言的几道问题问几个关于free pascal的题目,（完成几道是几道）求pascal的一道题目! 一道简单的pascal题目一道 PASCAL的简单题目一道Free Pascal的题目