通项及和pascal

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

1、vara,b,c,s:integer;proceduremax(a,b,c:integer;vars:integer);vartmp:integer;beginifa>bthentmp:=a;a:

vara,b,i:integer;beginreadln(a,b);fori:=ato1doif(amodi=0)and(bmodi=0)thenwriteln(i);end.//公约数vara,b,

programsample;vari,x,s,q:longint;begins:=0;q:=0;fori:=1to30dobeginread(x);inc(s,x);inc(q,sqr(x));end

pascalpascalpascal!

1.1最大公约数与最小公倍数1.算法1:欧几里德算法求a,b的最大公约数functiongcd(a,b:longint):longint;beginifb=0thengcdd:=aelsegcd:=g

先最小公倍数y0除以最大公约数x0得到一个新数a,求出把a分解为a=p1*q1=p2*q2=p3*q3=……=pn*qn的形式（其中p1,q1皆为整数,且p1,q1互质p2,q2……等类似）则对应的p

我们学校也用FreePascal,而不是教科书上那种老师说的好像是程序小,操作简单,还有纠错功能,中学生也就只能看懂这个了而且是程序竞赛指定软件

programex1;varj,m,n,m1,n1,a,b:integer;beginreadln(m,n);ifm

1.1最大公约数与最小公倍数1.算法1:欧几里德算法求a,b的最大公约数functiongcd(a,b:longint):longint;beginifb=0thengcdd:=aelsegcd:=g

1vara:array[1..10]ofinteger;i,ji,ou:longint;beginfori:=1to10doread(a[i]);fori:=1to5dobeginwriteln(a[

if(s>=10)or(s

Pascal是语言FreePascal,TurboPascal,Delphi是开发工具Delphi所用的Pascal有点不一样,是改造过的Pascal语言是语言,工具是工具就像C++对应的开发工具有T

varn,min,max,g,i:integer;beginread(n);min:=-maxint;max:=maxint;fori:=1tondobeginread(g);ifmin>gthenm

programDoingData;varn:longint;sum:longint;n1:real;n2:longint;n3:real;a:array[0..1000]oflongint;f:arr

Floyd出全图两两距离然后算出每个牧区到自己牧场内的最长距离.然后算出每个牧场的直径.然后枚举两个牧区（保证Floyd出的结果是inf）计算连起来以后的直径（采用两个牧场的直径以及“两个牧区到自己牧

01背包：fillchar(f,sizeof(f),0);{f数组初始化为0}read(数量,总钱数);fori:=1to数量dobeginread(价钱,价值);forj:=总钱数DOWNTO价钱d

xor异或：原则:不同则真设两个布尔型量（或表达式）A,B,则当且仅当A,B中一个为true,一个为false时,表达式AxorB为真.or或：原则：有真则真对于AorB,只要A,B中有一个为true

缺少end.（你把case当成begin,数一数有多少个begin和end）case语句的格式是：case表达式of//...（你这里都对）end;//就这里少了

vara,b,c:longint;beginread(a,b,c);{a是已知的数,b,c分别表示最大公约数和最小公倍数}writeln(b*cdiva);end.{嗯假设两个数为a,b,他们的最大公