




全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
一个用于医院门诊候诊的队列管理程序【问题描述】要求采用先来先就诊的排队方式(就诊顺序与挂号单编号无关),假设挂号时编码是连续的,但由于同一个门诊科目有3个诊室,其中35(含35)岁以上的在第一诊室,35岁以下男患者进第二诊室,其它的进第三诊室,程序启动后显示下列菜单:【实现提示】1挂号2叫号3分诊室 4显示各诊室队列信息 5统计当天就诊的患者情况(要求按性别进行统计和按任意年龄区段进行统计) 6结束程序选1时,提示用户在一行内输入姓名及挂号单编号;选2时,显示排在队列中第一位患者姓名、挂号单编号,并将其从挂号序列中删除选3时,进行诊室分配选4时,按队列顺序显示个诊室排队人的姓名、挂号单编号及所在诊室选5时,进行两种统计方法的选择,并进行必要的统计计算选6时,退出程序的运行要求15中每一个步骤完成后都能重新显示此选择菜单程序如下:#include#includestruct patientchar name20;char sex20;int age;int hao; / 挂号编码int room; / 诊室man20; / 可挂号20个病人,容量可任意更改void main()int i,p;int k=0; / 挂号int t=0; / 显示排序int m; / 第五步统计选择输入1或2int x,y,z,q; / q 男患者人数 x 年龄段人数, y z 年龄区段printf(*nn 欢迎使用医院门诊候诊管理程序nn*n);leap0:printf( 1 - 挂号n 2 - 叫号n 3 - 分诊室n 4 - 显示各诊室队列信息n 5 - 统计当天就诊的患者情况n 6 - 结束程序n);printf(n 请根据需要调查的医院情况,输入对应的选项序号.n);scanf(%d,&p);if(p=1) goto leap1;if(p=2) goto leap2;if(p=3) goto leap3;if(p=4) goto leap4;if(p=5) goto leap5;if(p=6) goto leap6;leap1:printf(请输入姓名,性别,年龄,挂号单编号.n); / 性别直接输入中文 男 或 女scanf(%s %s %d %d,,mank.sex,&mank.age,&mank.hao);k+;goto leap0;leap2:printf( 排列在队伍中的第一位患者:n姓名:%s 性别:%s 年龄:%d 挂号编号:%dn,,mant.sex,mant.age,mant.hao);t+;goto leap0;leap3:for(i=0;i=35)mani.room=1;else if(mani.agen);for(i=0;in);for(i=0;in);for(i=0;i=k-1;i+)if(mani.room=3)printf(姓名:%s 挂单编号:%dn,,mani.hao);printf(n);goto leap0;leap5:printf(请选择统计方法,按性别统计输入 1 ,按任意年龄区段输入 2n);scanf(%d,&m);if(m=1) / 筛选 男女q=0;for(i=0;i=k-1;i+)if(strcmp(mani.sex,男)=0)q+;printf(男患者 %d 个,女患者 %d 个n,q,k-q);if(m=2) / 筛选任意年龄区段x=0;printf(请输入要筛选的年龄区段n);scanf(%d %d,&y,&z);for(i=0;i=
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025版智能通风排烟系统安装与智能化改造合同文本
- 2025版智能建筑项目施工班组承包服务合同范本
- 2025版全新员工试用期入职劳动合同及福利待遇协议
- 2025年度高性能河沙资源买卖合同
- 2025年度维修保养外包服务合同
- 2025诚意金协议范本:企业项目合作诚意保证金
- 2025版石材及辅料一体化建筑施工总承包合同
- 2025房地产战略合作地产项目工程监理合同
- 2025年度WTO与全球供应链金融服务合同
- 2025年度医院食堂配餐安全责任协议书范本
- 纪委案件审理课件教材
- 生活中的会计课件
- 辽宁大学学生手册
- CorelDRAW教学讲解课件
- 湘美版美术一年级上册全册课件
- 酒水购销合同范本(3篇)
- 师说一等奖优秀课件师说优质课一等奖
- 学习罗阳青年队故事PPT在急难险重任务中携手拼搏奉献PPT课件(带内容)
- 小学生打扫卫生值日表word模板
- 新水浒q传乡试会试测验题目
- 小学一年级开学第一课
评论
0/150
提交评论