本文目錄一覽：
C語言程序中常用的語句…要比較全一點的
B.插入排序：
思路：當前a[1]..a[i-1]已排好序了，現要插入a[i]使a[1]..a[i]有序。
procedure insert_sort;
var i,j:integer;
begin
for i:=2 to n do begin
a[0]:=a[i];
j:=i-1;
while a[0]a[j] then swap(a[i],a[j]);
end;
D. 冒泡排序
procedure bubble_sort;
var i,j,k:integer;
begin
for i:=1 to n-1 do
for j:=n downto i+1 do
if a[j]r) or (a[i]=a[j])) {滿足取左邊序列當前元素的要求}
then begin
tmp[t]:=a[i]; inc(i);
end
else begin
tmp[t]:=a[j];inc(j);
end;
inc(t);
end;
for i:=p to r do a[i]:=tmp[i];
end;{merge}
procedure merge_sort(var a:listtype; p,r: integer); {合併排序a[p..r]}
var q:integer;
begin
if pr then begin
q:=(p+r-1) div 2;
merge_sort (a,p,q);
merge_sort (a,q+1,r);
merge (a,p,q,r);
end;
end;
{main}
begin
merge_sort(a,1,n);
end.
G.基數排序
思想：對每個元素按從低位到高位對每一位進行一次排序
五、高精度計算
高精度數的定義：
type
hp=array[1..maxlen] of integer;
1．高精度加法
procedure plus ( a,b:hp; var c:hp);
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
if a[0]b[0] then len:=a[0] else len:=b[0];
for i:=1 to len do begin
inc(c[i],a[i]+b[i]);
if c[i]10 then begin dec(c[i],10); inc(c[i+1]); end; {進位}
end;
if c[len+1]0 then inc(len);
c[0]:=len;
end;{plus}
2．高精度減法
procedure substract(a,b:hp;var c:hp);
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
if a[0]b[0] then len:=a[0] else len:=b[0];
for i:=1 to len do begin
inc(c[i],a[i]-b[i]);
if c[i]0 then begin inc(c[i],10);dec(c[i+1]); end;
while (len1) and (c[len]=0) do dec(len);
c[0]:=len;
end;
3．高精度乘以低精度
procedure multiply(a:hp;b:longint;var c:hp);
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
len:=a[0];
for i:=1 to len do begin
inc(c[i],a[i]*b);
inc(c[i+1],(a[i]*b) div 10);
c[i]:=c[i] mod 10;
end;
inc(len);
while (c[len]=10) do begin {處理最高位的進位}
c[len+1]:=c[len] div 10;
c[len]:=c[len] mod 10;
inc(len);
end;
while (len1) and (c[len]=0) do dec(len); {若不需進位則調整len}
c[0]:=len;
end;{multiply}
4．高精度乘以高精度
procedure high_multiply(a,b:hp; var c:hp}
var i,j,len:integer;
begin
fillchar(c,sizeof(c),0);
for i:=1 to a[0] do
for j:=1 to b[0] do begin
inc(c[i+j-1],a[i]*b[j]);
inc(c[i+j],c[i+j-1] div 10);
c[i+j-1]:=c[i+j-1] mod 10;
end;
len:=a[0]+b[0]+1;
while (len1) and (c[len]=0) do dec(len);
c[0]:=len;
end;
5．高精度除以低精度
procedure devide(a:hp;b:longint; var c:hp; var d:longint);
{c:=a div b; d:= a mod b}
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
len:=a[0]; d:=0;
for i:=len downto 1 do begin
d:=d*10+a[i];
c[i]:=d div b;
d:=d mod b;
end;
while (len1) and (c[len]=0) then dec(len);
c[0]:=len;
end;
6．高精度除以高精度
procedure high_devide(a,b:hp; var c,d:hp);
var
i,len:integer;
begin
fillchar(c,sizeof(c),0);
fillchar(d,sizeof(d),0);
len:=a[0];d[0]:=1;
for i:=len downto 1 do begin
multiply(d,10,d);
d[1]:=a[i];
while(compare(d,b)=0) do {即d=b}
begin
Subtract(d,b,d);
inc(c[i]);
end;
end;
while(len1)and(c.s[len]=0) do dec(len);
c.len:=len;
end;
六、 樹的遍歷
1．已知前序中序求後序
procedure Solve(pre,mid:string);
var i:integer;
begin
if (pre=””) or (mid=””) then exit;
i:=pos(pre[1],mid);
solve(copy(pre,2,i),copy(mid,1,i-1));
solve(copy(pre,i+1,length(pre)-i),copy(mid,i+1,length(mid)-i));
post:=post+pre[1]; {加上根，遞歸結束後post即為後序遍歷}
end;
2．已知中序後序求前序
procedure Solve(mid,post:string);
var i:integer;
begin
if (mid=””) or (post=””) then exit;
i:=pos(post[length(post)],mid);
pre:=pre+post[length(post)]; {加上根，遞歸結束後pre即為前序遍歷}
solve(copy(mid,1,I-1),copy(post,1,I-1));
solve(copy(mid,I+1,length(mid)-I),copy(post,I,length(post)-i));
end;
3．已知前序後序求中序的一種
function ok(s1,s2:string):boolean;
var i,l:integer; p:boolean;
begin
ok:=true;
l:=length(s1);
for i:=1 to l do begin
p:=false;
for j:=1 to l do
if s1[i]=s2[j] then p:=true;
if not p then begin ok:=false;exit;end;
end;
end;
procedure solve(pre,post:string);
var i:integer;
begin
if (pre=””) or (post=””) then exit;
i:=0;
repeat
inc(i);
until ok(copy(pre,2,i),copy(post,1,i));
solve(copy(pre,2,i),copy(post,1,i));
midstr:=midstr+pre[1];
solve(copy(pre,i+2,length(pre)-i-1),copy(post,i+1,length(post)-i-1));
end;
七 進位轉換
1.任意正整數進位間的互化
除n取余
2.實數任意正整數進位間的互化
乘n取整
3.負數進位：
設計一個程序，讀入一個十進位數的基數和一個負進位數的基數，並將此十進位數轉換為此負進位下的數：-R∈{-2，-3，-4,….-20}
八 全排列與組合的生成
1.排列的生成：（1..n）
procedure solve(dep:integer);
var
i:integer;
begin
if dep=n+1 then begin writeln(s);exit; end;
for i:=1 to n do
if not used[i] then begin
s:=s+chr(i+ord(”0”));used[i]:=true;
solve(dep+1);
s:=copy(s,1,length(s)-1); used[i]:=false;
end;
end;
2.組合的生成(1..n中選取k個數的所有方案)
procedure solve(dep,pre:integer);
var
i:integer;
begin
if dep=k+1 then begin writeln(s);exit; end;
for i:=1 to n do
if (not used[i]) and (ipre) then begin
s:=s+chr(i+ord(”0”));used[i]:=true;
solve(dep+1,i);
s:=copy(s,1,length(s)-1); used[i]:=false;
end;
end;
九.查找演算法
1.折半查找
function binsearch(k:keytype):integer;
var low,hig,mid:integer;
begin
low:=1;hig:=n;
mid:=(low+hig) div 2;
while (a[mid].keyk) and (low=hig) do begin
if a[mid].keyk then hig:=mid-1
else low:=mid+1;
mid:=(low+hig) div 2;
end;
if lowhig then mid:=0;
binsearch:=mid;
end;
2.樹形查找
二叉排序樹：每個結點的值都大於其左子樹任一結點的值而小於其右子樹任一結點的值。
查找
function treesrh(k:keytype):pointer;
var q:pointer;
begin
q:=root;
while (qnil) and (q^.keyk) do
if kgoal then begin {若未移到目標}
Move(k-1,6-now-goal); {剩下的先移到沒用的柱上}
Writeln(k moved from now to goal);
H[goal,h[goal,0]+1]:=h[now,nowp]; h[now,nowp]:=0;
Inc(h[goal,0]); dec(h[now,0]);
Move(k-1,goal); {剩下的移到目標上}
End;
十二、DFS框架
NOIP2001 數的劃分
procedure work(dep,pre,s:longint); {入口為work(1,1,n)}
{dep為當前試放的第dep個數,pre為前一次試放的數,s為當前剩餘可分的總數}
var j:longint;
begin
if dep=n then begin
if s=pre then inc(r); exit;
end;
for j:=pre to s div 2 do work(dep+1,j,s-j);
end;
類似：
procedure try(dep:integer);
var i:integer;
begin
if dep=k then begin
if tot=a[dep-1] then inc(sum);
exit; end;
for i:=a[dep-1] to tot div 2 do begin
a[dep]:=i; dec(tot,i);
try(dep+1);
inc(tot,i);
end;
end;{try}
十三、BFS框架
IOI94 房間問題
head:=1; tail:=0;
while tail=1) and (I=L.len) then
while jI do begin p:=p^.next; inc(j); end;
loc:=p;
end;
2．單鏈表的插入操作
procedure insert(L:linklist; I:integer; x:datatype);
var p,q:pointer;
begin
p:=loc(L,I);
new(q);
q^.data:=x;
q^.next:=p^.next;
p^.next:=q;
inc(L.len);
end;
3．單鏈表的刪除操作
procedure delete(L:linklist; I:integer);
var p,q:pointer;
begin
p:=loc(L,I-1);
q:=p^.next;
p^.next:=q^.next;
dispose(q);
dec(L.len);
end;
4．雙鏈表的插入操作（插入新結點q）
p:=loc(L,I);
new(q);
q^.data:=x;
q^.pre:=p;
q^.next:=p^.next;
p^.next:=q;
q^.next^.pre:=q;
5．雙鏈表的刪除操作
p:=loc(L,I); {p為要刪除的結點}
p^.pre^.next:=p^.next;
p^.next^.pre:=p^.pre;
dispose(p);
c語言if語句的經典例子是什麼？
因為在C語言中判斷語句是用的最廣泛的語句，所以很難說一個c語言if語句的經典例子。一個很普通的例子就是，
輸出一個算式，1+2=
然後讀入一個整數x
接著就做判斷，if(x==3)printf(“/”);
else printf(“X”);
c語言語句有哪些?
C語句可分為以下五類： 1.表達式語句； 2.函數調用語句； 3.控制語句； 4.複合語句； 5.空語句。
1.表達式語句
表達式語句由表達式加上分號「；」組成。 其一般形式為： 表達式；執行表達式語句就是計算表達式的值。 例如： x=y+z；a=520； 賦值語句； y+z；加法運算語句，但計算結果不能保留，無實際意義； i++； 自增1語句，i值增1。 i++； 是先運算i後再加1。 ++i； 是先把i值增1後運算。
編輯本段2.函數調用語句
由函數名、實際參數加上分號「；」組成。 其一般形式為： 函數名(實際參數表) ； 執行函數語句就是調用函數體並把實際參數賦予函數定義中的形式參數，然後執行被調函數體中的語句，求取函數值。 調用庫函數，輸出字元串。
編輯本段3.控制語句
控制語句用於控制程序的流程， 以實現程序的各種結構方式。 它們由特定的語句定義符組成。C語言有九種控制語句。 可分成以下三類： (1). 條件判斷語句 if語句、switch語句； (2) .循環執行語句 do while語句、while語句、for語句； (3). 轉向語句 break語句、goto語句（此語句盡量少用，因為這不利結構化程序設計，濫用它會使程序流程無規律、可讀性差）、continue語句、return語句。
編輯本段條件判斷
int a,b; if(xy) printf(“x,\n”); else printf(“y,\n”);
編輯本段4.複合語句
把多個語句用括弧{}括起來組成的一個語句稱複合語句。 在程序中應把複合語句看成是單條語句，而不是多條語句，例如 { x=y+z； a=b+c； printf(「%d%d」，x，a)； } 是一條複合語句。複合語句內的各條語句都必須以分號「；」結尾；此外，在括弧「}」外不能加分號。
編輯本段5.空語句
只有分號「；」組成的語句稱為空語句。 空語句是什麼也不執行的語句。在程序中空語句可用來作空循環體。 例如 while(getchar()!=’\n’)； 本語句的功能是，只要從鍵盤輸入的字元不是回車則重新輸入。這裡的循環體為空語句。
原創文章，作者：小藍，如若轉載，請註明出處：https://www.506064.com/zh-tw/n/244825.html
微信掃一掃 
支付寶掃一掃 