c 语言课程是设计 简易计算器

1、#include /*DOS接口函数*/#include /*数学函数的定义*/#include /*屏幕操作函数*/#include /*I/O函数*/#include /*库函数*/#include /*变量长度参数表*/#include /*图形函数*/#include /*字符串函数*/#include /*字符操作函数*/#define UP 0x48 /*光标上移键*/#define DOWN 0x50 /*光标下移键*/#define LEFT 0x4b /*光标左移键*/#define RIGHT 0x4d /*光标右移键*/#define ENTER 0x0d /*回车键*/

2、void drawmat(char *mat,int matsize,int x,int y,int color)/*依次：字模指针、点阵大小、起始坐标(x,y)、颜色*/ int i, j, k, n; n = (matsize - 1) / 8 + 1; for(j = 0; j matsize; j+) for(i = 0; i n; i+) for(k = 0;k k) /*测试为1的位则显示*/ putpixel(x + i * 8 + k, y + j, color);void *rar; /*全局变量，保存光标图象*/int specialkey(void) ; /*获取特殊键函

3、数*/int arrow(); /*设置箭头光标函数*/main() float num1=0,num2=0,result; int x,y,x0=315,y0=160,i,j,v,m,n,act,t1=0,t2=0,cd=0,zj=0,zj1=0,num=0,cd1=0,a25; int flag1,flag2=1,flag3=1,flag4=1,flag5=1,flag6=1; char str25=,temp20=,c,str310=,str410=,str520=,str720=; char str1=A,1,2,3,4,5,6,7,B,8,9,=,+,-,*,/,C, G,H,I,J

4、,K,L,0,D,M,N,O,P,Q,.,$,E,R,S,T,U, V,(,F,W,X,Y,Z,&,),|; char lin16S=/* 以下是 林 的 16点阵宋体 字模，32 byte */ 0x10,0x20,0x10,0x20,0x10,0x20,0x10,0x20, 0xFD,0xFE,0x10,0x20,0x10,0x60,0x38,0x70, 0x34,0xB0,0x54,0xA8,0x51,0x28,0x92,0x26, 0x14,0x24,0x10,0x20,0x10,0x20,0x10,0x20,;char peng16S=/* 以下是 彭 的 16点阵宋体 字模，32

5、byte */ 0x08,0x00,0x08,0x08,0xFF,0x8C,0x08,0x10, 0x7F,0x20,0x00,0x48,0x7F,0x0C,0x41,0x10, 0x7F,0x20,0x42,0x44,0x22,0x06,0x14,0x0C, 0x07,0x98,0xF8,0x20,0x40,0x40,0x00,0x00,;char dong16S=/* 以下是 东 的 16点阵宋体 字模，32 byte */ 0x02,0x00,0x02,0x00,0x7F,0xFC,0x04,0x00, 0x08,0x80,0x08,0x80,0x10,0x80,0x1F,0xF8, 0

6、x00,0x80,0x08,0xA0,0x0C,0x90,0x18,0x88, 0x10,0x8C,0x22,0x84,0x01,0x80,0x00,0x80,;char de24F=/* 以下是 的 的 24点阵方正舒体 字模，72 byte */ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, 0x00,0x40,0x00,0x70,0xC0,0x00,0xF1,0x80, 0x01,0xC1,0x00,0x03,0x82,0x00,0x07,0x06, 0x18,0x0E,

7、0x05,0xFC,0x0C,0x79,0xCC,0x1A, 0xF0,0x04,0x37,0x92,0x04,0x26,0x1B,0x84, 0x05,0x9B,0x84,0x07,0x91,0x04,0x07,0x10, 0x04,0x06,0x10,0x08,0x03,0xE0,0x08,0x03, 0xE0,0x30,0x00,0x00,0x60,0x00,0x00,0x00,;char ji16S=/* 以下是 计 的 16点阵宋体 字模，32 byte */ 0x40,0x20,0x20,0x20,0x30,0x20,0x20,0x20, 0x00,0x20,0xF3,0xFE,0

8、x10,0x20,0x10,0x20, 0x10,0x20,0x10,0x20,0x10,0x20,0x12,0x20, 0x14,0x20,0x18,0x20,0x10,0x20,0x00,0x20,;char suan16S=/* 以下是 算 的 16点阵宋体 字模，32 byte */ 0x40,0x40,0x7E,0x7E,0x48,0x90,0xBF,0xF8, 0x20,0x10,0x3F,0xF0,0x20,0x10,0x3F,0xF0, 0x20,0x10,0x3F,0xF0,0x08,0x40,0xFF,0xFE, 0x08,0x40,0x10,0x40,0x10,0x40,

9、0x20,0x40,;char qi16S=/* 以下是 器 的 16点阵宋体 字模，32 byte */ 0x3E,0x7C,0x22,0x44,0x22,0x44,0x3E,0x7C, 0x01,0x10,0x01,0x08,0xFF,0xFC,0x06,0xC0, 0x18,0x30,0xE0,0x0E,0x3E,0xFC,0x22,0x88, 0x22,0x88,0x22,0x88,0x3E,0xF8,0x00,0x00,;char shi24S=/* 以下是 石 的 24点阵宋体 字模，72 byte */ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0

10、0, 0x00,0x00,0x00,0x0C,0x3F,0xFF,0xF0,0x00, 0x20,0x00,0x00,0x60,0x00,0x00,0x40,0x00, 0x00,0xC0,0x00,0x00,0x80,0x00,0x01,0x80, 0x00,0x01,0x80,0x30,0x02,0xFF,0xE0,0x04, 0x80,0x20,0x08,0x80,0x20,0x10,0x80,0x20, 0x20,0x80,0x20,0x40,0x80,0x20,0x00,0x80, 0x20,0x00,0x80,0x20,0x00,0xFF,0xE0,0x00, 0x80,0x20,

11、0x00,0x80,0x00,0x00,0x00,0x00,;char jia24S=/* 以下是 家 的 24点阵宋体 字模，72 byte */ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x38, 0x00,0x00,0x18,0x00,0x00,0x08,0x08,0x1F, 0xF7,0xFC,0x18,0x00,0x10,0x30,0x00,0x60, 0x07,0xFF,0xE0,0x00,0x60,0x00,0x00,0xE0, 0x60,0x01,0x90,0xE0,0x06,0x39,0x00,0x18, 0x6F,0x00,0x00,0xC5,

12、0x00,0x01,0x0C,0x80, 0x06,0x16,0x40,0x18,0x26,0x60,0x00,0xC6, 0x30,0x01,0x06,0x1E,0x06,0x06,0x08,0x18, 0x6C,0x00,0x20,0x18,0x00,0x00,0x00,0x00,;char zhuang24S=/* 以下是 庄 的 24点阵宋体 字模，72 byte */ 0x00,0x00,0x00,0x00,0x20,0x00,0x00,0x18, 0x00,0x00,0x08,0x00,0x00,0x08,0x08,0x0F, 0xFF,0xFC,0x08,0x0C,0x00,0x

13、08,0x04,0x00, 0x08,0x04,0x00,0x08,0x04,0x00,0x08,0x04, 0x00,0x08,0x04,0x00,0x08,0x04,0x30,0x09, 0xFF,0xC0,0x08,0x04,0x00,0x18,0x04,0x00, 0x10,0x04,0x00,0x10,0x04,0x00,0x10,0x04, 0x00,0x20,0x04,0x00,0x20,0x04,0x0C,0x4F, 0xFF,0xFE,0x40,0x00,0x00,0x00,0x00,0x00,;char tie24S=/* 以下是 铁 的 24点阵宋体 字模，72 byte

14、 */ 0x00,0x00,0x00,0x00,0x00,0x00,0x0C,0x01, 0x80,0x0C,0x01,0x00,0x08,0x1D,0x00,0x08, 0xD9,0x00,0x1F,0x11,0x08,0x10,0x1F,0xFC, 0x10,0x11,0x00,0x3F,0xA1,0x00,0x44,0x61, 0x00,0x04,0x41,0x00,0x04,0x01,0x0C,0x04, 0xFF,0xF0,0x3F,0x03,0x80,0x04,0x02,0x80, 0x04,0x02,0x40,0x04,0x46,0x40,0x04,0x8C, 0x20,0x07

15、,0x08,0x30,0x0E,0x10,0x18,0x04, 0x60,0x0E,0x00,0x80,0x00,0x00,0x00,0x00,;char dao24S=/* 以下是 道 的 24点阵宋体 字模，72 byte */ 0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x10, 0x60,0x0C,0x18,0x40,0x0C,0x08,0x80,0x04, 0x08,0x8C,0x00,0xF7,0x70,0x00,0x02,0x00, 0x04,0x24,0x10,0x7E,0x3B,0xF0,0x04,0x20, 0x30,0x04,0x20,0x30

16、,0x04,0x3F,0xF0,0x04, 0x20,0x30,0x04,0x20,0x30,0x04,0x3F,0xF0, 0x04,0x20,0x30,0x04,0x20,0x30,0x0C,0x3F, 0xF0,0x33,0x20,0x00,0x20,0xC0,0x00,0x00, 0x7F,0xFC,0x00,0x01,0xF8,0x00,0x00,0x00,;char da24S=/* 以下是 大 的 24点阵宋体 字模，72 byte */ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18, 0x00,0x00,0x10,0x00,0x00,0x10,

17、0x00,0x00, 0x10,0x00,0x00,0x10,0x00,0x00,0x10,0x0C, 0x3F,0xFF,0xFE,0x00,0x10,0x00,0x00,0x18, 0x00,0x00,0x18,0x00,0x00,0x34,0x00,0x00, 0x34,0x00,0x00,0x22,0x00,0x00,0x22,0x00, 0x00,0x41,0x00,0x00,0xC1,0x80,0x00,0x80, 0xC0,0x01,0x00,0x60,0x02,0x00,0x38,0x0C, 0x00,0x1C,0x30,0x00,0x08,0x00,0x00,0x00,;ch

18、ar xue24S=/* 以下是 学 的 24点阵宋体 字模，72 byte */ 0x00,0x00,0x00,0x00,0x00,0x00,0x04,0x20, 0x60,0x02,0x10,0x40,0x03,0x18,0xC0,0x01, 0x18,0x80,0x01,0x11,0x00,0x10,0x02,0x0C, 0x1F,0xFD,0xFE,0x10,0x00,0x18,0x30,0x00, 0xA0,0x27,0xFF,0xC0,0x00,0x03,0x00,0x00, 0x04,0x00,0x00,0x18,0x00,0x00,0x18,0x18, 0x3F,0xFF,0x

19、E0,0x00,0x18,0x00,0x00,0x18, 0x00,0x00,0x18,0x00,0x00,0x18,0x00,0x00, 0xF8,0x00,0x00,0x30,0x00,0x00,0x00,0x00,; int sj1=50,250,250,250,150,175,50,250,sj2=145,285,155,285,150,275,145,285; int driver,mode; driver=DETECT; mode=0; initgraph(&driver,&mode,); /*初始化*/ drawmat(lin16S, 16, 425, 22,10); /*输出

20、林 */ drawmat(peng16S, 16, 385, 22,10);/*输出 彭*/ drawmat(dong16S, 16, 405, 22,10);/*输出 东 */ drawmat(de24F, 24, 440, 13,1);/*输出 的 */ drawmat(ji16S, 16, 465, 22,4);/*输出 计 */ drawmat(suan16S, 16, 485, 22,4);/*输出 算 */ drawmat(qi16S, 16, 505, 22,4);/*输出 器*/ drawmat(shi24S, 24, 65, 22,15);/*输出 石*/ drawmat(j

21、ia24S, 24, 90, 22,15);/*输出 家*/ drawmat(zhuang24S, 24, 115, 22,15);/*输出 庄*/ drawmat(tie24S, 24, 140, 22,15);/*输出 铁*/ drawmat(dao24S, 24, 165, 22,15);/*输出 道*/ drawmat(da24S, 24, 190, 22,15);/*输出 大*/ drawmat(xue24S, 24, 215, 22,15);/*输出 学*/ setcolor(0); /*绘画*/ setlinestyle(0,0,3); setfillstyle(1,13); s

22、ector(150,250,0,360,100,200); setfillstyle(1,2); setcolor(2); fillpoly(4,sj1); setcolor(4); setfillstyle(1,6); pieslice(150,250,180,360,80); setfillstyle(1,15); line(105,255,125,255); line(175,255,195,255); pieslice(115,265,0,360,5); pieslice(185,265,0,360,5); fillpoly(4,sj2); ellipse(150,295,180,36

23、0,12,7);setlinestyle(0,0,3); /*标题*/settextstyle(4,0,8);setbkcolor(3);setcolor(5);setfillstyle(5,9);bar3d(280,120,630,440,5,3); /*键盘外框 三维*/setlinestyle(0,0,1);setfillstyle(1,8);bar3d(290,130,620,430,5,1); /*键盘内框 三维*/setcolor(2); /*绿色*/setfillstyle(1,7); /*画按钮轮廓 三维*/bar3d(300,140,330,180,2,1);bar3d(34

24、0,140,370,180,2,1);bar3d(380,140,410,180,2,1);bar3d(420,140,450,180,2,1);bar3d(460,140,490,180,2,1);bar3d(500,140,530,180,2,1);bar3d(540,140,570,180,2,1);bar3d(580,140,610,180,2,1);bar3d(300,185,330,225,2,1);bar3d(340,185,370,225,2,1);bar3d(380,185,410,225,2,1);bar3d(420,185,450,225,2,1);bar3d(460,1

25、85,490,225,2,1);bar3d(500,185,530,225,2,1);bar3d(540,185,570,225,2,1);bar3d(580,185,610,225,2,1);bar3d(300,235,330,275,2,1);bar3d(340,235,370,275,2,1);bar3d(380,235,410,275,2,1);bar3d(420,235,450,275,2,1);bar3d(460,235,490,275,2,1);bar3d(500,235,530,275,2,1);bar3d(540,235,570,275,2,1);bar3d(580,235,

26、610,275,2,1);bar3d(300,285,330,325,2,1);bar3d(340,285,370,325,2,1);bar3d(380,285,410,325,2,1);bar3d(420,285,450,325,2,1);bar3d(460,285,490,325,2,1);bar3d(500,285,530,325,2,1);bar3d(540,285,570,325,2,1);bar3d(580,285,610,325,2,1);bar3d(300,335,330,375,2,1);bar3d(340,335,370,375,2,1);bar3d(380,335,410

27、,375,2,1);setcolor(2);bar3d(420,335,450,375,2,1);setcolor(2);bar3d(460,335,490,375,2,1);setcolor(2);bar3d(500,335,530,375,2,1);bar3d(540,335,570,375,2,1);bar3d(580,335,610,375,2,1);bar3d(300,385,330,420,2,1);bar3d(340,385,370,420,2,1);bar3d(380,385,410,420,2,1);bar3d(420,385,450,420,2,1);bar3d(460,3

28、85,490,420,2,1);bar3d(500,385,530,420,2,1);bar3d(540,385,570,420,2,1);bar3d(580,385,610,420,2,1);setcolor(1);/*按钮字符 蓝色*/outtextxy(310,150,A);outtextxy(350,150,1);outtextxy(390,150,2);outtextxy(430,150,3);outtextxy(470,150,4);outtextxy(505,150,5);outtextxy(550,150,6);outtextxy(590,150,7);outtextxy(31

29、0,195,B);outtextxy(345,195,8);outtextxy(385,195,9);outtextxy(425,195,=);outtextxy(465,195,+);outtextxy(505,195,-);outtextxy(550,195,*);outtextxy(590,195,/);outtextxy(310,245,C);outtextxy(344,250,mod);outtextxy(385,245,xy);outtextxy(425,245,log);outtextxy(465,245,ln);outtextxy(505,245,int);outtextxy(

30、547,240,16);outtextxy(550,250,|);outtextxy(550,260,2);outtextxy(590,245,0);outtextxy(310,295,D);outtextxy(345,295,cos);outtextxy(385,295,x3);outtextxy(430,295,n!);outtextxy(465,295,tan);outtextxy(505,295,x2);outtextxy(550,295,.);outtextxy(590,290,8);outtextxy(590,300,|);outtextxy(590,310,2);outtextx

31、y(310,345,E);outtextxy(345,345,1/x);outtextxy(385,338,sin);outtextxy(425,338,exp);outtextxy(507,340,10);outtextxy(510,350,|);outtextxy(510,360,2);outtextxy(550,340,8);outtextxy(550,350,|);outtextxy(547,360,16);outtextxy(590,340,2);outtextxy(590,350,|);outtextxy(587,360,16);outtextxy(310,395,F);outte

32、xtxy(347,390,10);outtextxy(350,400,|);outtextxy(350,410,8);outtextxy(387,390,10);outtextxy(390,400,|);outtextxy(387,410,16);outtextxy(430,390,2);outtextxy(430,400,|);outtextxy(427,410,10);outtextxy(465,395,Esc);outtextxy(508,395,CE);outtextxy(550,390,2);outtextxy(550,400,|);outtextxy(550,410,8);outt

33、extxy(590,390,8);outtextxy(590,400,|);outtextxy(587,410,10);setcolor(4);outtextxy(465,350,sft);outtextxy(388,347,16);outtextxy(391,356,|);outtextxy(388,366,10);outtextxy(428,347,16);outtextxy(431,356,|);outtextxy(432,366,8);setlinestyle(0,0,3);setcolor(1);setfillstyle(1,7);bar3d(350,40,550,100,2,1);

34、setlinestyle(0,0,1);line(351,60,549,60);line(450,40,450,60);line(415,61,415,98);setcolor(5);setfillstyle(1,3);bar(352,42,435,59);/*填充x*/outtextxy(355,48,x=);setcolor(6);bar(461,42,548,59); /*填充y*/outtextxy(465,48,y=);setfillstyle(1,6);bar(436,42,460,59);/*填充符号*/outtextxy(355,75,Result=);setcolor(5);

35、setfillstyle(1,15);bar(416,61,549,98);/*填充结果*/*开始*/ x=x0; y=y0; gotoxy(x,y); setcolor(6); arrow();/*显示光标*/ putimage(x,y,rar,XOR_PUT); m=0; n=0; strcpy(str2,); while(v=specialkey()!=45) while(v=specialkey()!=ENTER) /*当压下键不是回车时*/ putimage(x,y,rar,XOR_PUT); /*显示光标图象*/ if(v=RIGHT) /*向右*/ if(x=595) x=x0;

36、 m=0; else x=x+40; m+; if(v=LEFT) /*向左*/ if(x=x0) x=595; m=8-1; else x=x-40; m-; if(v=UP) /*向上*/ if(y=410) y=y0; n=0; else y=y+50; n+; putimage(x,y,rar,XOR_PUT); c=str1n*8+m; if(isxdigit(c)|c=.) /*判断是否是十六进制的数字、字母或小数点*/ if(flag1=-1) /*flag1为负数标志*/ strcpy(str2,-); flag1=1; sprintf(temp,%c,c);/*将字符保存到字

37、符串变量temp中*/ strcat(str2,temp); /*将temp中的字符串连接到str2中*/ if(flag2=1) /*flag2为填充x或y的标志*/ setfillstyle(1,3); bar(352,42,435,59);/*填充x*/ setcolor(5); outtextxy(355,48,x=); outtextxy(372,48,str2);/*显示字符串x的值*/ if(flag2=0) setcolor(6); setfillstyle(1,3); bar(461,42,548,59); /*填充y*/ outtextxy(465,48,y=); outt

38、extxy(480,48,str2);/*显示字符串y的值*/ flag2=1; if(c=+) num1=atof(str2);/*将第一个操作数转换为浮点数*/ strcpy(str2,); /*清空str2*/ act=1; setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(445,47,+); /*显示+*/ flag2=0; if(c=-) if(strcmp(str2,)=0) flag1=-1; else num1=atof(str2); strcpy(str2,); /*将str2清空*/ act=2;

39、/*做计算减法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(445,47,-); /*显示-*/ flag2=0; if(c=*) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=3; /*做计算乘法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(445,47,*); /*显示*/ flag2=0; if(c=/) num1=atof(

40、str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=4; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(445,47,/); /*显示/*/ flag2=0; if(c=Q) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=7; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,5

41、9); outtextxy(437,45,x2); /*显示x2*/ flag2=0; if(c=H) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=5; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(437,45,xy); /*显示xy*/ flag2=0; if(c=N) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=

42、6; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(437,45,x3); /*显示x3*/ flag2=0; if(c=R) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=8; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(437,45,1/x); /*显示1/x*/ flag2=0; if(c=S)

43、if(flag3=0) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str7,str2); strcpy(str2,); /*将str2清空*/ act=28; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,548,59); outtextxy(455,48,jz:16-10); /*显示jz:16-10*/ flag3=0; flag5=0; flag6=0; else num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空

44、*/ act=9; /*做计算除法标志值*/ setcolor(9); setfillstyle(1,6); bar(436,42,460,59); outtextxy(437,45,sin); /*显示sin*/ setcolor(6); setfillstyle(1,3); bar(461,42,548,59); /*填充y*/ outtextxy(465,48,y=); flag2=0; if(c=M) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=10; /*做计算除法标志值*/ setfillsty

45、le(1,6); setcolor(9); bar(436,42,460,59); outtextxy(437,45,cos); /*显示cos*/ flag2=0; if(c=P) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=11; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(437,45,tan); /*显示tan*/ flag2=0; if(c=I) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=12; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); bar(436,42,460,59); outtextxy(437,45,log); /*显示log*/ flag2=0; if(c=J) num1=atof(str2); /*将第二个操作数转换为浮点数*/ strcpy(str2,); /*将str2清空*/ act=13; /*做计算除法标志值*/ setfillstyle(1,6); setcolor(9); ba