电脑程序设计:PASCAL语言

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/09/21 06:04:00

电脑程序设计:PASCAL语言
1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)
2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入后的值.
3.任意输入三个字母,判定其在字母表中是否相邻.

第一题:
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.

电脑程序设计:PASCAL语言 free pascal程序设计,尽量用简单语言,难的看不懂 program 【pascal 程序设计】问题：begin 1.试打印出1-20的自然数.（用while do 语言） pascal程序设计输入一个整数n,n PASCAL语言程序基本概念 Free Pascal语言回答 pascal 语言 while 语句翻译为pascal语言 pascal语言编程题 Free Pascal语言编程 pascal 语言求和用pascal语言编程,