C++程序設(shè)計(jì)實(shí)例

【例3.12】用下面公式求兀的近似值。加441-1/3+1/5-1/7+...直到最后一項(xiàng)的絕對(duì)值小于10-

7為止。根據(jù)給定的算法很容易編寫程序如下：

#include<iostream>

#include<iomanip>

#include<cmath>

usingnamespacestd;

intmain()

k------------------

ints=l;

doublen=l,t=l,pi=0;

while((fabs(t))>le-7)

{-------------------------1

pi=pi+t；

n=n+2;

s二-s;_

t=s/n;

)

pi=pi*4;

return0;

)

運(yùn)行結(jié)果為

pi=3.141592

注意：不要把n定義為整型變量，否則在執(zhí)行“t=s/n;”時(shí)，得到t的值為0(原因是兩個(gè)整數(shù)

相除)。

【例3.13】求Fibonacci數(shù)列前4()個(gè)數(shù)。這個(gè)數(shù)列有如下特點(diǎn)：第1、2個(gè)數(shù)為1、1,從第3

個(gè)數(shù)開始，每一個(gè)數(shù)是其前面兩個(gè)數(shù)之和。即：

Fl=(n=l)

1(n=2)

Fn^Fn-l+Fn-2(n>3)

這是一個(gè)有趣的古典數(shù)學(xué)問題：有一對(duì)兔子，從出生后第3個(gè)月起每一個(gè)月都生一對(duì)兔子，

小兔子長到第3個(gè)月后每一個(gè)月又生一對(duì)兔子，假設(shè)所有兔子都不死，問每一個(gè)月的兔

子總數(shù)為多少？

根據(jù)給出的每月兔子總數(shù)的關(guān)系，可編寫程序如下:

#include<iostream>

#include<iomanip>

usingnamespacestd;

intmain()

(

longfl,f2;

inti;

fl=f2=l;

for(i=l;i<=20;i++)

=f--------------------------1

cout?setw(12)?fl?setw(l2)<<f2;〃設(shè)備

輸出字段寬度為12,每次輸出兩個(gè)數(shù)

if(i%2==0)cout?endl;

//每輸出完4個(gè)數(shù)后換行，使每行輸出4個(gè)數(shù)

fl=fl+f2;

〃左邊的fl代表第3個(gè)數(shù)，是第12個(gè)數(shù)之和

f2=f2+fl;

〃左邊的f2代表第4個(gè)數(shù)，是第23個(gè)數(shù)之和｝

return0;

)

【例3.14】找出100?200間的全部素?cái)?shù)。編寫程序如下：

#include<iostream>

#includc<cmath>

#include<iomanip>

usingnamespacestd;

intmair)()

rf~--------1

bool附用力出發(fā)布爾變量prime

for(m=101;m<=200;m=m+2)〃判別m是否為素?cái)?shù),m由101變化到200增量為2

k---------------------------------------------------------------------------------------------------1

prime=true;〃循環(huán)開始時(shí)設(shè)prime為真，即先認(rèn)為m為素?cái)?shù)

k=int(sqrt(m));//用k代表根號(hào)m的整數(shù)部份

for(i=2;i<=k;i++)//此循環(huán)作用是將m被2?根號(hào)m除，檢查是否能整除

if(m%i=0)〃如果能整除，表示m不是素?cái)?shù)

pnme=false;〃使prime變?yōu)榧?/p>

break;〃終止執(zhí)行本循環(huán)

)

if(prime)〃如果m為素?cái)?shù)

J…一.....

cout<<setw(5J<<m;〃輸出素?cái)?shù)m,字段寬度為5

n=n+l;〃n用來累計(jì)輸出素?cái)?shù)的個(gè)數(shù)

if(n%10==0)cout?endl;〃輸出1()個(gè)數(shù)后換行}

coul<vendl;//最后執(zhí)行一次換行

return0;

}

【例3.15】譯密碼。

為使電文保密，往往按二定規(guī)律將電文轉(zhuǎn)換成密碼，收?qǐng)?bào)人再按約定的規(guī)律將其譯回原

文。例如，可以按以下規(guī)律將電文變成密碼：將字母A變成字母E,a變成e,即變成其

后的第4個(gè)字母，W變成A，X變成B,Y變成C,Z變成D。見圖3.20,字母按上述規(guī)律

轉(zhuǎn)換，非字母字符不變，如轉(zhuǎn)換為。

輸入一行字符，要求輸出其相應(yīng)的密碼。

程序如下：

#include<iostream>

usingnamespacestd;

intmain()

c=c+4;

運(yùn)行結(jié)果如下：

IamgoingtoBeijing!M

eqksmrkxsFimnmrk!

while語句中括號(hào)內(nèi)的表達(dá)式有3個(gè)作用：I

從鍵盤讀入二個(gè)字符，這是用getchar函數(shù)實(shí)現(xiàn)的；

將讀入的字符賦給字符變量c：

判別這個(gè)字符是否為'’（即換行符）。如果是換行符就執(zhí)行while語句中的復(fù)合

語句（即花括號(hào)內(nèi)的語句），對(duì)輸入的非換行符的字符進(jìn)行轉(zhuǎn)換處理。

按前面分析的思路對(duì)輸入的字符進(jìn)行處理，有一點(diǎn)請(qǐng)讀者注意，內(nèi)嵌的if語句不能寫

成：

ifCo'Z'Ho'z'）c=c-26;

因?yàn)樗行懽帜付紳M足條件，從而也執(zhí)行“c=c-26;”語句，這就會(huì)出錯(cuò)。因此

必須限制其范圍為"c>Z&&c<=Z+4"，即原字母為，W，到Z,在此范圍以外的不是原

大寫字母亞~2,不應(yīng)按此規(guī)律轉(zhuǎn)換。

請(qǐng)考慮：為什么對(duì)小寫字母不按此處理，即寫成c>N&&cv=N+4而只須寫成即可。

計(jì)算拉格朗日插值的源程序

#includc<stdio.h>

#include<conio.h>

#include<stdlib.h>

//#include<alloc.h>

floatLagrange(float*x,float*y,floatxx,intn)

(

intij;

float*a,yy=0.0;

a=(float*)malloc(n*sizeof(float));

for(i=0;i<=n-l;i++)

(

a[i]=y[i];

for(j=0;j<=n-1;j++)

ifa!=i)a[i]*=(xx-xU])/(x[i]-xU]);

yy+=a[i];

}

free(a);

returnyy;

)

voidmain()

(

floatx[4]={0,56160,0.56280,0.56401,0.56521};

floaty[4]={0.82741,0.82659,0.82577,0.82495};

floatxx=O.5635,yy;

floatLagrange(float*,floatfloat,int);

yy=Lagrange(x,y,xx,4)；

//clrscr();

getch();

}

編譯原理詞法分析器C++源程序

#include<iostream.h>

#include<fstream.h>

#include<stdlib.h>

#include<stdio.h>

#include<string.h>

#includc<conio.h>

#include<process.h>/本頭文件本/

voidinit();

char*DchangeB(char*buf);

intscarch(char：i：buf,inttypc,intcommand);

voidintdeal(char*buffer);

voidchardcal(char"buffer);

voidenordeal(charenor,intlineno);

voidscanner();

voidinit()

char

/*C語言所有關(guān)鍵字/

binary=newchar[2];

binary[O]=,O,;

binary[l]=70,;

rcturn(binary);

n

i=0：

while(value!=O)

(

temp[i++]=value%2;

value/=2;

)

temp[i]=701;

binary=newchar[i+l];

for(j=0;j<=i-l;j++)

binary|j]=(char)(temp[i-j-1J+48);

binary[i]=70*;

rcturn(binary);/*十進(jìn)制轉(zhuǎn)化為二進(jìn)制*/

intscarch(char*buf,inttypejntcommand)

{intnumbcr=0;

fstreamoutfile;

charch;

chartemp[30];

inti=0;

switch(type)

)

outfile.get(ch);

while(ch!=EOF){

while(ch!=7n')

(

tcmp[i+4-]=ch;

outfile.get(ch);

F

temp[i]=70,;

i=0;

number+4-;

if(strcmp(temp,buf)==O)

{

outfile.close();

returnnumber;/*若找到，返回在相應(yīng)表中的序號(hào)*/

)

else

outfile.get(ch);

1〃結(jié)束外層while循環(huán)

if(command==1)

I

outfile.close();

relum0；戶找不到，當(dāng)只需查表，返回0,否

則還需造表*/

)

switch(typc)

}

outfile?buf;

outfile.close();

returnnumber+1;

voidintdeal(char*buffer){

fstreamoutfilc;

intresult;

result=search(buffer,1,1);/*先查關(guān)鍵字表*/

if(result!=O)

outfile?buffer?result?endl;/*若找到，寫入輸出文件*/

else

result=search(buffer,2,2);

/*若找不到，則非關(guān)鍵

字，查標(biāo)識(shí)符表，還找不到則造入標(biāo)識(shí)符*表/

outfile<<buffer<<resulK<endl;

}

寫入輸出文件*/

outfilc.closc();

voidchardeal(char*buffer)

(fstreamoutfile;

intresult;

result=search(buffer,1,1);/*先杳關(guān)鍵字表*/

if(result!=0)

outfile<<buffer<<resulK<endl;/*若找到，寫入輸出文件*/

else

result=search(buffer,2,2);/*若找不到，則非關(guān)鍵

字，查標(biāo)識(shí)符表，還找不到則造入標(biāo)識(shí)符*表/

outfile<<buffer<<result<<endl;

)

寫入輸出文件*/

outfile.close();

)

voiderrordeal(charerror,intlineno)

(

}

voidscanner()

(fstreaminfile,outfile;

charfilcnamc[20];

charch;

interr=0;

inti=0,linc=l;

intcount,result,erromo=0;

chararray[30];

char*word;

eel;

infile.open(filename,ios::nocreate|ios::in);

while(!infile)

(

thefile

infile.open(filename,ios::nocreate|ios::in);err++；

if(crr==3)

exit(0);)

)

infile.get(ch);

while(ch!=EOF)

/*按字符挨次掃描源程序，直至結(jié)束*/

i=();

iR((ch>=,A')&&(ch<=,Z,))11((ch>=,a')&&(ch<=,z,))11(ch='J)){/*

以字母開頭*/

while(((ch>='A,)&&(ch<='Z,))11((ch>=,a')&&(ch<='z,))||(ch='_，)ll

((ch>=0)&&(chv=9)))

(

array[i++]=ch;

infile.get(ch);

)

word=newchar[i+lj;

memcpy(word,array,i);

word[i]='/0,;

intdeal(word);

if(ch!=EOF)

infile.seekg(-1,ios::cur);

_______________

elseif(ch>='0'&&ch<=,9')

{/*以數(shù)字開頭*/

while(ch>—'0'&&ch<-'9')

(

array[i++]=ch;

infile.get(ch);

)

word=newchar[i+l];

mcmcpy(word,anay,i);

word[i]=70,;

intdeal(word);

if(ch!=EOF)

infile.seekg(-1,ios::cur);

)]

elseif((ch==',)11(ch=7t*))

;/*消除空格符和水平制表符刃

elseif(ch==7n')

line++;/*消除回車并記錄行數(shù)*/

elseif(ch==7')

{/*消除注釋*/

infile.get(ch);

if(ch二二七)

/*判斷是否為'/='符號(hào)*/

outfile.close();

)

elseif(ch!-**)

/*若為除號(hào)，寫入輸出文件

*/

::叩p);

outfile.close();

outfile.seekg(-1,ios::cur);

)

elseif(ch=二'*')

{/*若為注釋的開始，消除包含在里面的所有字符

*/

count=0;

infile.get(ch);

while(count!=2)

{/*當(dāng)掃描到‘*’且緊接著下

一個(gè)字符為'/'才是注釋的結(jié)束*/

count=();

while(ch!-**)

infile.gel(ch);

count++;

infile.get(ch);

if(ch=7)

count++;

else

infile.get(ch);

}

}

I

f/*消除包含在雙引號(hào)中的字符串常量*/

outfile.close();

infile.get(ch);

infile.close();

1

else

{/*首字符為其它字符，即運(yùn)算限界符或者非法字

*/符

array[0]=ch;

infile.get(ch);/*再讀入下一個(gè)字符，判斷

是否為雙字符運(yùn)算、限界符*/

if(ch!=EOF)

{/*若該字符非文件結(jié)束符*/

array!1]=ch;

word=newchar[3];

memcpy(word,array,2);

word[2]='/0';

result=search(word,4,1);/*先檢索

是否為雙字符運(yùn)算、限界符*/M、

if(result==O)

/*若不是*/

word=newchar⑵;

memcpy(word,array,1);

wordf11=70';

result=search(word,4,1)；/*檢索是否為單字符運(yùn)算、限界符

*/

if(result==O)

(

/*若還不是，則為非法字符*/

errordeal(arrayf01Jine);

crrorno++;

infile.seekg(-l,ios::cur);

1

else

{/*若為單字符運(yùn)算、限界符，寫入輸出文件