pascal语言有什么用

programques_1;vari,j,k:integer;beginfori:=1to9doforj:=0to9dofork:=0to9doifi*i*i+j*j*j+k*k*k=100*i+10

Chr(x)求编号x对应的字符.例：Chr(65)=’A’chr(97)=’a’chr(48)=’0’Ord(x)求字符x对应的编号.例:ord(‘A’)=65ord(‘a’)=97另外：ord(fa

货物的代码和重量是多少?

varn,round,i,j,k:integer;a:array[1..100,1..100]ofinteger;beginreadln(n);k:=1;forround:=1tondoifround

vara,b,i,j,top:longint;s:array[1..100]oflongint;begina:=121;b:=130;top:=0;fori:=atobdoforj:=1toi-1do

第一题：vara,b:array[1..1000]oflongint;i,n:longint;procedurekp(l,r:longint);vari,j,mid,t:longint;begini:

programex01;vara:array[1..100000000]ofinteger;b,c:array[1..100]oflongint;i,n,m,x,y,j:longint;procedu

vars:integer;n:real;beginn:=100;s:=0;whiles再问：它求的是总路程吧？一共是20次着地。要全部加起来的。。我搞定了。。programcx3;vara,s:rea

programconnect;vars:array[1..10]ofstring;ss:string;n,i,j:longint;beginreadln(ss);assign(input,ss+'.i

VARi,j,k:integer;BEGINFORi:=0TO33DOFORj:=0TO50DOBEGINk:=90-i-j;IF15*i+10*j+5*k=500THENwriteln(i:5,j:

vara,b,c:integer;beginreadln(a,b,c);if(a>=b)and(a>=c)thenwrite(a,'');if(b>=c)and(b>=a)thenwrite(b,''

第一题:programf1;varn:integer;beginreadln(n);writeln(nmod10,ndiv10mod10,ndiv100mod10,ndiv1000);end.第二题：

varb:integer;n,i,j,k,m,p:longint;beginfori:=4to500dobeginifimod2=0thenbeginforj:=2toidobeginb:=1;for

vara,b,s,n:longint;begins:=0;b:=0;whiles10dobegininc(b);forn:=1tobdoifbmodn=0thens:=s+1;end;writeln(

第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}ifsqr(x)+sqr(y)=sqr(r)thenwriteln('yes'){这个是

这么多问题,不分过来谁答啊?而且没有分?!再问：谢谢指教，但。。。你给爹滚再答：我还就不滚了！！！！！！

programcalculator(input,output);vara,b,c:real;ch:char;Beginreadln(a);readln(ch);readln(b);casechof'+

vara,b,c:longint;p:real;beginread(a,b,c);if(a+b>c)and(a+c>b)and(b+c>a)thenbeginp:=(a+b+c)/2;write(sq

programnum;vartot:real;n,i:integer;nu:array[1..10]ofinteger;beginread(n);tot:=0;fori:=1tondobeginrea

满意请给分,谢!programex;typestudent=record//定义学生记录stuID:integer;//学号homework:boolean;//判断是否交作业end;varstu:a