作业帮电脑程序设计:PASCAL语言1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 13:03:38
电脑程序设计:PASCAL语言1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入
电脑程序设计:PASCAL语言
1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)
2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入后的值.
3.任意输入三个字母,判定其在字母表中是否相邻.
电脑程序设计:PASCAL语言1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入
第一题:
program f1;
var
n:integer;
begin
readln(n);
writeln(n mod 10,n div 10 mod 10,n div 100 mod 10,n div 1000);
end.
第二题：
program f2;
var
n:real;
begin
readln(n);
writeln(n);
writeln(trunc(n));
writeln(n-trunc(n));
writeln(round(n));
end.
第三题：
program f3;
var
a,b,c:char;
function run(x,y,z:char):boolean;
var
flag:boolean;
begin
if (ord(x)-ord(y)=1) and (ord(y)-ord(z)=1) then flag:=true else flag:=false;
run:=flag;
end;
begin
readln(a,b,c);
if run(a,b,c) then writeln('Yes')
else if run(a,c,b) then writeln('Yes')
else if run(b,a,c) then writeln('Yes')
else if run(b,c,a) then writeln('Yes')
else if run(c,a,b) then writeln('Yes')
else if run(c,b,a) then writeln('Yes')
else writeln('No');
end.