电脑程序设计:PASCAL语言1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 06:19:42
![电脑程序设计:PASCAL语言1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入](/uploads/image/z/5062634-26-4.jpg?t=%E7%94%B5%E8%84%91%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%3APASCAL%E8%AF%AD%E8%A8%801.%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E5%9B%9B%E4%BD%8D%E6%95%B4%E6%95%B0%2C%E6%8A%8A%E5%AE%83%E7%9A%84%E5%90%84%E4%BD%8D%E6%95%B0%E5%AD%97%E5%80%92%E5%BA%8F%E8%BE%93%E5%87%BA.%28%E6%8F%90%E7%A4%BA%3A%E7%94%A8MOD%E5%92%8CDIV%E8%BF%90%E7%AE%97%E5%AE%8C%E6%88%90%292.%E4%BB%8E%E9%94%AE%E7%9B%98%E4%B8%8A%E8%AF%BB%E5%85%A5%E4%B8%80%E4%B8%AA%E5%AE%9E%E6%95%B0%2C%E5%88%A9%E7%94%A8ROUND%28%29%E5%92%8CTRUNC%28%29%E5%87%BD%E6%95%B0%2C%E8%BE%93%E5%87%BA%E8%AF%A5%E5%AE%9E%E6%95%B0%E6%9C%AC%E8%BA%AB.%E6%95%B4%E6%95%B0%E9%83%A8%E5%88%86.%E5%B0%8F%E6%95%B0%E9%83%A8%E5%88%86.%E5%9B%9B%E8%88%8D%E4%BA%94%E5%85%A5)
电脑程序设计: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.