关于pascal语言的一道问题
先把三位数拆开，再重新由大至小排列即可
readln(n);
a:=n mod 10; （个位数字）
b:=n div 100; （百位数字）
c:=n mod 100 div 10; （十位的数字）
（mod 是整除 25 mod 10 =2；
div 是取余 25 div 10 =5；）
if b>a then begin
n:=a;
a:=b;
b:=a;
end; (比较a，b大小，若b大则a，b互换）
if c>a then writeln(c,a,b)
else if c>b then writeln(a,c,b)
else writeln(a,b,c);
end.
理论上排好以后应将最大数*100+第二大数*10+最小数
但本人比较懒，就直接输出了，反正看起来一样,
P.S(没编译的,那样比较麻烦)
我n年以前编过.这是归并排序的基础.我就直接在这里写了.如果有小错请谅解.
const
maxn=1000;
var
n,i,j,la,lb,lc:integer;
a,b,c:array[1..maxn]of integer;
begin
la:=0;
while not eoln do
begin
inc(la);
read(a[la]);
end;
lb:=0;
while not eoln do
begin
inc(lb);
read(b[lb]);
end;
lc:=la+lb;
while (la+lb)>0 do
begin
if a[la]<b[lb] then
begin
c[la+lb]:=a[la];
la:=la-1;
end else
begin
c[la+lb]:=b[lb];
lb:=lb-1;
end;
end;
for i:=1 to lc do
write(c[i],' ');
end.
readln(a,b,c);
writeln(a,ord(a));
writeln(b,ord(b));
writeln(c,ord(c));
writeln(c,ord(c));
writeln(b,ord(b));
writeln(a,ord(a));
end.
\\顺序结构就可以了；
2
一定要取整吗？？
read(a,b);
c:=int(a);//c为a的整数
a:=a-c;//让a只有小数部分
d:=int(b);
b:=b-d;
a:=d+a;//a的小数部分加上b的整数部分
b:=c+b;
end.
pascal语言属于什么语言
过程式编程语言。Pascal是一种过程式编程语言，由NiklausWirth于1968年设计并于1970年发布，是最早出现的结构化编程语言，具有丰富的数据类型和简洁灵活的操作语句。
在pascal语言中有function这样的用语吗?还是抄错?是for ction。那具体...
第四章 函数与过程 程序中往往需要把主要任务分成若干个子任务，每个子任务只负责一个专门的基本工作。每个子任务就是一个独立的子程序。Turbo Pascal 可以把函数和过程作为子程序调用。第一节 函数 Pascal允许用户在程序中自己说明定义所需要的函数并在程序中调用这些函数。[例4.1]编程找出由键盘任意...
C语言和Pascal语言的区别,要详细
begin)、程序（正文）、读取（read\/readln）、结束（end），结构层次强，严谨而又紧密。而C语言是一种面向对象性语言，可取性强，更有前途和钱途，语法没有pascal严谨。并且在语言排行里，c与C++排行2，3；而pascal则排名15。初学的话，学pascal更易懂，但学C的话，嵌套性强，就不是很易懂。
pascal程序
一、Pascal 语言概述 PASCAL语言也是一种算法语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。1975年，对PASCAL语言进行了修改，作为"标准PASCAL语言"。PASCAL语言是在ALGOL 60的基础上发展而成的。它是一种结构化的程序设计语言，可以用来编写应用程序。
pascal 语言中的case语句
其中case、of、end是Pascal的保留字， 表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。语句可以是任何语句，包括复合语句和空语句。(二)、case语句的执行过程 先计算表达式（称为情况表达式）的值，如果它...
Pascal语言
program ex;var s:real;a,b,h:longint;begin readln(a,b,h);s:=(a+b)*h\/2;write(s);\/\/这里改成write(s:2); 就是保留两位小数 end.这个是实型的 也就是小数 program ex;var s,a,b,h:longint;begin readln(a,b,h);s:=round((a+b)*h\/2);write(s);end.要是让四舍五入...
pascal语言
program sd;var x:string;a:array[1..26]of integer;i:integer;begin read(x);while x<>'*' do begin a[ord(x)-64]:=a[ord(x)-64]+1;read(x);end;for i:=1 to 26 do writeln(chr(i+64),': ',a[i]);end.这个程序是读单个字母，到*为止。要读一个字符串，就不用以*...
Pascal语言是用做什么的
目前主要用于教学，直接的实用很少。不过大名鼎鼎的专业科技排版软件TeX就是由Knuth教授用Pascal写的，这个大概是Pascal写出来的最出名，应用也最广泛的软件。另外，Borland公司的Delphi就是以Pascal为基础的一个面向对象的语言及开发工具。这个功能比较强大，Windows下多种应用软件都是用它做的。可惜现在Borland...
pascal是什么?
尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一， NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。二、PASCAL语言的发展 在...
用Pascal语言写出:有一个正整数的各个数字之和的11倍恰好等于它本身_百 ...
var a,s:longint;procedure fenjie(b:longint);begin repeat s:=s+b mod 10;b:=b div 10;until b=0;end;begin a:=0;repeat a:=a+1;s:=0;fenjie(a);s:=s*11;until a=s;writeln(s);readln;end.参考资料：节省运算时间与电脑内存，省时省力特方便 ...
裔哀骨炎： 首先 你的程序根本运行不了 是错误的!你按F9 然后按空格 这时你的程序中会出现一条绿色的粗的线 这就是你错误的地方 j是一个循环变量 你一开始就用for j:=把整个程序扩了起来 你那段直到语句也在其中,那怎么可能until j=0呢?我的程序:...
黄南藏族自治州13027224090： 一道Pascal语言的编程题,帮忙啊~？
裔哀骨炎： 这个问题非常简单,从左向右依次检索每个数字,用一个flag作为增减标记(1表示检测递增0表示检测递减) 第一个数读入后和后一个数判断大小,如果比前者大,那么就将flag置1否则置0(并且将子序列个数+1) 然后判断第二个数和第三个数的关系,如果和之前一样,那么就继续,否则,将flag反向(并且将子序列个数+1) 然后依次类推.
黄南藏族自治州13027224090： 问一个关于PASCAL语言的一个题目: - ？
裔哀骨炎： 这题用DP做,用f[i,j,k,l]表示第一种用了i张,第二种用了j张,第三种用了k张,第四种用了l张后的最大分数,其他的不难思考,看看程序就可以明白.var a:array[1..350]of longint; f:array[-1..40,-1..40,-1..40,-1..40]of longint; n,m,a1,a2,a3,a4,i,j,x1,x2,x...
黄南藏族自治州13027224090： 关于PASCAL的一个小问题~？
裔哀骨炎： 保留字是面留给系统使用的具有特定意义字,变量命名时候不能使用这些 pascal中的begin end var等都是保留字
黄南藏族自治州13027224090： 一道pascal语言的题,很简单的.求解!!!!？
裔哀骨炎： CLS FOR a = 1 TO 50 \ 3 FOR b = 1 TO 50 \ 2 FOR c = 1 TO 28 IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1 NEXT c, b, a PRINT ＂S=＂; s END
黄南藏族自治州13027224090： pascal语言的一些问题 急!!!？
裔哀骨炎： 第一个问题, 8.肯定是非法数据 这在所有编译器都不过的,8.0 这个很容易想到啊. 3e+0.6 建议学一下科学计数法 e后面的代表多少次方 比如说 3e9 就是3*10的九次方,0.6是神马?e+12 没有前置 e前面必须有东西aEc 这是科学计数法的标准...
黄南藏族自治州13027224090： pascal编程的一道题:最近点对距离问题 - ？
裔哀骨炎： var x,y:array[1..60000] of extended; i,j,k,m,n:longint; ad:extended; procedure init; var i:longint; begin readln(n); for i:=1 to n do readln(x[i],y[i]); end; procedure qsort(s,t:longint); var temp,mdx,mdy:extended; i,j:longint; begin i:=s;j:=t;mdx:=x[(s+t) div 2];...
黄南藏族自治州13027224090： 一个关于pascal语言function的问题. - ？
裔哀骨炎： 就是给函数返回值的,但是并不退出函数,而是继续执行下面的语句,格式为 函数名:=值(值的类型与函数返回值相同,一个函数里可以多次使用,可以理解为就是给一个变量赋值,最后返回这个变量的值,pascal里这个变量就可以是函数名,这样不用再加其他语句,在c里相当于定义一个局部变量,把算出来的值赋给这个变量,并在函数跳出前加上return 这个变量;) 而free pascal里可以用exit(返回值);的语句exit是保留字,语句作用与c里的return 返回值;作用完全相同.
黄南藏族自治州13027224090： 跪求一道pascal问题!!急急急急？
裔哀骨炎： if ((a mod 2=0) and (b mod 2=0) and (c mod 2<>0)) or ((a mod 2=0) and (c mod 2=0) and b mod 2<>0)) or ......
黄南藏族自治州13027224090： pascal一道简单的问题.要请教!!!! 要完整程序哦!!! - ？
裔哀骨炎： program ygb; var i,n,x:integer; begin readln(n); for i=1 to n do begin readln(x); writeln(x mod 2); end; end.
