上机实验报告
生物数据上机实验报告
一、实验名称生物数据上机实验二、实验目的1. 熟悉生物数据处理的常用软件及其基本操作。
2. 学习生物数据的整理、分析和可视化方法。
3. 培养对生物数据的敏感性和分析能力。
三、实验原理生物数据是指生物科学研究中收集到的各种数据，包括基因组学、蛋白质组学、代谢组学等领域的实验数据。
本实验旨在通过上机操作，学习如何使用生物信息学软件对生物数据进行整理、分析和可视化，从而更好地理解生物学现象和规律。
四、实验器材1. 电脑2. 生物信息学软件（如R、Python、MATLAB等）3. 生物数据集五、实验步骤1. 数据整理- 下载并导入生物数据集。
- 检查数据完整性，包括数据类型、缺失值等。
- 对数据进行清洗，去除异常值和噪声。
2. 数据分析- 使用R或Python等软件进行数据分析。
- 根据实验目的，选择合适的统计方法进行分析，如相关性分析、差异分析等。
- 使用可视化工具（如ggplot2、Seaborn等）展示分析结果。
3. 结果可视化- 将分析结果以图表形式展示，如散点图、柱状图、热图等。
- 对图表进行美化，包括字体、颜色、标题等。
4. 结果讨论- 根据分析结果，对生物学现象进行解释和讨论。
- 提出进一步研究的方向和假设。
六、实验结果1. 数据整理- 导入数据集：成功导入基因组学数据集，数据包含基因表达水平、样本信息等。
- 数据检查：发现数据集中存在缺失值，已进行清洗处理。
2. 数据分析- 相关性分析：分析基因表达水平与样本信息之间的相关性，发现某些基因与样本类型之间存在显著相关性。
- 差异分析：分析不同样本类型之间的基因表达差异，发现某些基因在特定样本类型中表达水平显著升高或降低。
3. 结果可视化- 散点图：展示基因表达水平与样本信息之间的相关性。
- 柱状图：展示不同样本类型中基因表达水平的差异。
- 热图：展示基因表达水平的聚类情况。
4. 结果讨论- 根据分析结果，推测特定基因可能与特定样本类型相关，进一步研究该基因在生物学过程中的作用。
上机实验报告(精选11篇)
上机实验报告篇1用户名se××××学号姓名学院①实验名称：②实验目的：③算法描述（可用文字描述，也可用流程图）：④源代码：（.c的文件）⑤用户屏幕（即程序运行时出现在机器上的画面）：2．对c文件的要求：程序应具有以下特点：a可读性：有注释。
b交互性：有输入提示。
c结构化程序设计风格：分层缩进、隔行书写。
3.上交时间：12月26日下午1点-6点，工程设计中心三楼教学组。
请注意：过时不候哟！四、实验报告内容0．顺序表的插入。
1.顺序表的删除。
2．带头结点的单链表的\'插入。
3.带头结点的单链表的删除。
注意：1.每个人只需在实验报告中完成上述4个项目中的一个，具体安排为：将自己的序号对4求余，得到的数即为应完成的项目的序号。
例如：序号为85的同学，85%4=1，即在实验报告中应完成顺序表的删除。
2.实验报告中的源代码应是通过编译链接即可运行的。
3.提交到个人空间中的内容应是上机实验中的全部内容。
上机实验报告篇2一、《软件技术基础》上机实验内容1．顺序表的建立、插入、删除。
2．带头结点的单链表的建立（用尾插法）、插入、删除。
二、提交到个人10m硬盘空间的内容及截止时间1．分别建立二个文件夹，取名为顺序表和单链表。
2．在这二个文件夹中，分别存放上述二个实验的相关文件。
每个文件夹中应有三个文件(.c文件、.obj文件和.exe文件)。
3. 截止时间：12月28日（18周周日）晚上关机时为止，届时服务器将关闭。
三、实验报告要求及上交时间（用a4纸打印）1．格式：《计算机软件技术基础》上机实验报告用户名se××××学号姓名学院①实验名称：②实验目的：③算法描述（可用文字描述，也可用流程图）：④源代码：（.c的文件）⑤用户屏幕（即程序运行时出现在机器上的画面）：2．对c文件的要求：程序应具有以下特点：a 可读性：有注释。
b 交互性：有输入提示。
上机实验报告会计
一、实验目的1. 熟悉会计信息系统的基本操作流程；2. 掌握会计信息系统的基本功能；3. 了解会计信息系统在会计工作中的实际应用；4. 提高会计信息处理和分析能力。
二、实验环境1. 操作系统：Windows 102. 软件环境：用友财务软件U8.723. 硬件环境：普通PC机三、实验内容1. 系统初始化2. 账套管理3. 会计科目设置4. 账务处理5. 财务报表生成四、实验步骤1. 系统初始化（1）进入用友财务软件U8.72，选择“系统”菜单下的“系统初始化”选项；（2）输入账套名称、账套路径、会计期间等信息；（3）设置会计科目编码方案，确定会计科目编码级次和级长；（4）设置会计凭证类型，如收款凭证、付款凭证等；（5）设置账簿，包括日记账、总账、明细账等；（6）设置外币，如美元、欧元等；（7）设置会计报表，包括资产负债表、利润表、现金流量表等。
2. 账套管理（1）选择“系统”菜单下的“账套管理”选项；（2）选择需要管理的账套；（3）对账套进行备份、恢复、修改等操作。
3. 会计科目设置（1）选择“系统”菜单下的“会计科目设置”选项；（2）输入会计科目编码、科目名称、科目类型、余额方向等信息；（3）设置会计科目对应的账簿类型，如日记账、总账、明细账等。
4. 账务处理（1）选择“业务”菜单下的“凭证录入”选项；（2）输入凭证日期、凭证编号、摘要、借贷方科目、金额等信息；（3）选择凭证类型，如收款凭证、付款凭证等；（4）保存凭证，并进行审核、记账等操作。
5. 财务报表生成（1）选择“报表”菜单下的“报表管理”选项；（2）选择需要生成的报表，如资产负债表、利润表等；（3）根据需要设置报表参数，如会计期间、报表格式等；（4）生成报表，并打印输出。
五、实验结果与分析1. 通过实验，掌握了会计信息系统的基本操作流程，熟悉了会计信息系统的各项功能；2. 在实验过程中，学会了如何进行系统初始化、账套管理、会计科目设置、账务处理和财务报表生成等操作；3. 通过实际操作，提高了会计信息处理和分析能力；4. 发现了会计信息系统在实际应用中的优点，如提高工作效率、降低差错率、便于数据查询等。
c++上机实验报告(精品)
XX大学C++上机实验报告（一）学院:XX学院班级：XXX姓名：XXX学号：*******指导老师：XXX日期：年月日实验三类的定义和使用一．实验目的1.掌握类的概念、类的定义格式、类与结构的关系、类的成员属性和类的封装性；2.掌握类对象的定义；3.理解类的成员的访问控制的含义，公有、私有和保护成员的区别；4.掌握构造函数和析构函数的含义与作用、定义方式和实现，能够根据要求正确定义和重载构造函数。
能够根据给定的要求定义类并实现类的成员函数；5.掌握友元函数的含义，友元函数和成员函数的区别。
二．实验内容及要求1、定义一个圆类，计算圆的面积和周长。
要求：分别用成员函数和友元函数来求圆的面积和周长。
2、定义一个学生类，其中有3个数据成员有学号、姓名、年龄，以及若干成员函数。
同时编写主函数使用这个类，实现对学生数据的赋值和输出。
要求：1）使用成员函数实现对输出的输入、输出；2）使用构造函数和析构函数实现对数据的输入、输出。
3、定义日期类型Date。
要求有以下面成员：1）可以设置日期；2）日期加一天操作；3）输入函数，输入格式为“XXXX年XX月XX日”。
三．实验要求1）写出程序，并调试程序，要给出测试数据和实验结果。
2）整理上机步骤，总结经验和体会。
3）完成实验日志和上交程序。
四．算法思想1.圆类程序中，用Circle构造函数和Length友元函数分别计算圆的的面积和周长。
再通过主函数调用：Date d;cout<<"请输入圆半径r:";cin>>m;Circle p(m);Length(p);实现输入半径r并输出相关计算值。
2.学生类根据要求分别用构造函数Student(double n,int o,char c[50])和析构函数~Student()，实现学生信息的录入与输出。
于是，当在主程序中，定义学生类Student s(n,o,c)是调用构造函数录入信息，所在作用范围结束时，系统会自动调用析构函数输出信息。
信息检索上机实验报告
1. 掌握信息检索的基本原理和方法。
2. 熟悉常用的信息检索工具和系统。
3. 提高信息检索技能，提高信息获取效率。
二、实验环境1. 操作系统：Windows 102. 浏览器：Chrome3. 信息检索工具：百度、谷歌、必应等三、实验内容1. 实验一：信息检索原理与方法（1）了解信息检索的基本概念，如信息、知识、数据等。
（2）掌握信息检索的流程，包括信息收集、信息处理、信息检索、信息评估等。
（3）了解信息检索的基本方法，如布尔检索、短语检索、自然语言检索等。
（4）通过实验，学会使用信息检索工具进行信息检索。
2. 实验二：信息检索工具的使用（1）了解百度、谷歌、必应等搜索引擎的特点和优缺点。
（2）学会使用搜索引擎的高级搜索功能，如关键词搜索、按时间搜索、按网站搜索等。
（3）掌握使用学术搜索引擎，如CNKI、万方、维普等，获取学术资源。
（4）通过实验，学会使用信息检索工具获取所需信息。
3. 实验三：信息检索策略的制定（1）了解信息检索策略的概念和作用。
（2）掌握信息检索策略的制定方法，如关键词选择、检索式构造等。
（3）通过实验，学会制定有效的信息检索策略。
1. 实验一：信息检索原理与方法（1）阅读相关教材和资料，了解信息检索的基本原理和方法。
（2）在浏览器中输入关键词，观察搜索结果，了解搜索算法。
（3）分析搜索结果，总结信息检索的方法。
2. 实验二：信息检索工具的使用（1）在浏览器中输入关键词，使用百度、谷歌、必应等搜索引擎进行搜索。
（2）尝试使用搜索引擎的高级搜索功能，观察搜索结果的变化。
（3）使用学术搜索引擎，查找相关学术资源。
3. 实验三：信息检索策略的制定（1）根据实验要求，确定关键词。
（2）构造检索式，进行信息检索。
（3）分析检索结果，调整检索策略。
五、实验结果与分析1. 实验一：信息检索原理与方法通过实验，掌握了信息检索的基本原理和方法，了解了信息检索的流程。
同时，学会了使用信息检索工具进行信息检索。
操作系统上机实验报告
操作系统上机实验报告实验一进程的建立1.实验目的学会通过基本的Windows进程控制函数，由父进程创建子进程，并实现父子进程协同工作。
2.实验软硬件环境Dev-C++3.实验内容创建两个进程，让子进程读取一个文件，父进程等待子进程读取完文件后继续执行，实现进程协同工作。
进程协同工作就是协调好两个进程，使之安排好先后次序并以此执行，可以用等待函数来实现这一点。
当需要等待子进程运行结束时，可在父进程中调用等待函数。
4.实验程序及分析实验程序源代码如下：父进程：#include<stdio.h>#include<windows.h>int main(){STARTUPINFO si;PROCESS_INFORMA TION pi; //当Windows创建新进程时，将使用这两个结构体的有关成员。
所以在创建子进程之前应该对结构体进行声明和初始化。
ZeroMemory(&pi,sizeof(pi));ZeroMemory(&si,sizeof(si));si.cb=sizeof(STARTUPINFO);if(CreateProcess("lab1.2.exe",NULL,NULL,NULL,FALSE,CREATE_NEW_CONSOLE,NULL ,NULL,&si,&pi))//创建一个新进程，若是成功，就返回1，进而实现if选择{printf("子进程已创建～\n");int i,sum=0;for(i=1;i<=100;++i){sum+=i;printf("sum=%d\n",sum);} //进行1+2+3+….+100计算WaitForSingleObject(pi.hProcess,INFINITE); FILE *fp;fp=fopen("date.txt","r");char ch=fgetc(fp); //创建文件并打开while(ch!=EOF){putchar(ch);ch=fgetc(fp);}fclose(fp); //关闭文件}elseprintf("子进程创建失败～\n");return 0;}子进程：#include<stdio.h>#include<stdlib.h>int main(){printf("子进程运行～\n");FILE *fp;if(fp=fopen("date.txt","w")){printf("已经创建文件!\n");int i;for(i=48;i<58;i++) fputc(i,fp);fputc('\n',fp);fclose(fp);printf("已经写入数据:"); //向文本中写入数据fp=fopen("date.txt","r");char ch=fgetc(fp);while(ch!=EOF){putchar(ch);ch=fgetc(fp); //输出数据}fclose(fp);}else printf("创建文件失败!\n");system("pause");return 0;}5. 实验截图说明及分析6. 实验心得体会掌握了父进程创建子进程的方法，对操作系统多线程认识更深了。
ERP上机实验总结五篇
ERP上机实验总结五篇第一篇：ERP上机实验总结ERP第一次上机实验报告第一次上机，充满了好奇与激情。
于是早早的到实验室打开电脑对着实验指导摸索起来。
持续3小时的奋斗，终于完成了任务。
首先，我粗略地对实验指导浏览了一遍，大体对它有个印象，了解本次上机的大概内容。
这次的主要任务为建账和录入档案信息。
然后，对着实验指导一步一步地进行。
第一步是以系统管理员身份登陆系统，接着增加三个用户和建立华兴公司的账套。
增加的用户则与其在公司里所担任的职位相对应，具体信息和所属部门都有录入。
账套是每个公司都必须设立的，是一组每个企业内相互关联的数据，平时要有相关人员进行建立、修改、输入输出等管理，以确保数据是最新的。
第一次接触账套这个词，担心不理解，然而老师在实验指导中做了详细的说明，每个步骤都有提示，也非常详细，并且还有配图。
老师的这份细心让我很快地就进入状态，操作非常流畅。
虽然在后面的企业修改分类编码方案卡壳了一会儿，主要原因是对编码方案和数据精度不了解，导致对操作步骤有点摸不着头脑，并且电脑系统处理时间过长。
不过有幸和旁边的同学探讨后顺利完成了。
接着跟随实验指导设置了操作员权限和修改账套。
最后，登录企业应用平台，设置档案信息。
刚开始就出现状况了。
当我在登录窗口中输入周建操作员登录时，点进去发现和实验指导上的截图不符，在最上方工具栏里一个个点击工具发现也没有出现想要的界面，纳闷许久，将实验指导步骤再次看了个遍，才发现是最初登陆的窗口非此窗口，而是要从电脑桌面上的另一个软件上登陆。
建立档案时也遇到了小麻烦。
首先你得建立部门档案、设置人员类别才能建立人员档案，设置好客户分类后才能建立客户档案、供应商档案。
这些是我经过一次次惨痛的经历才得知的。
起初，觉得哪个少就先设置哪个，到后来发现有些设置不能用甚至出现错误，跟实验指导上有很大差别，越到后面就越明白自己出错了。
只有删除所有之前设置的档案信息按照实验指导上的步骤一步步从新来过。
上机实验报告实验原理
一、实验背景随着计算机技术的飞速发展，计算机已经成为现代生活和工作中不可或缺的工具。
为了更好地掌握计算机操作技能，提高实际应用能力，我们进行了本次上机实验。
本次实验旨在让学生通过实际操作，理解并掌握计算机的基本原理和操作方法，为今后的学习和工作打下坚实的基础。
二、实验目的1. 熟悉计算机的基本组成和结构；2. 掌握计算机的基本操作方法；3. 理解计算机的工作原理；4. 培养学生的动手实践能力和团队协作精神。
三、实验原理1. 计算机硬件组成计算机硬件主要包括以下几个部分：（1）输入设备：如键盘、鼠标、扫描仪等，用于将信息输入到计算机中。
（2）输出设备：如显示器、打印机、音箱等，用于将计算机处理后的信息输出。
（3）存储设备：如硬盘、U盘、光盘等，用于存储数据和程序。
（4）中央处理器（CPU）：计算机的核心部件，负责执行指令和处理数据。
（5）主板：连接各个硬件部件，提供电力和信号传输。
（6）内存：暂时存储数据和指令，提高计算机运行速度。
2. 计算机软件组成计算机软件主要包括以下几个部分：（1）系统软件：如操作系统、驱动程序等，用于管理计算机硬件资源，提供基本功能。
（2）应用软件：如办公软件、图形处理软件、游戏软件等，用于满足用户特定需求。
3. 计算机工作原理（1）输入：用户通过输入设备将信息输入到计算机中。
（2）处理：CPU根据程序指令，对输入的信息进行处理。
（3）存储：将处理后的信息存储在存储设备中。
（4）输出：将处理后的信息通过输出设备展示给用户。
4. 操作系统原理操作系统是计算机系统中最基本的软件，负责管理计算机硬件资源，提供基本功能。
其原理如下：（1）进程管理：操作系统将计算机资源分配给不同的进程，实现多任务处理。
（2）内存管理：操作系统管理内存空间，实现虚拟内存，提高内存利用率。
（3）文件管理：操作系统管理文件系统，实现文件的创建、删除、读写等操作。
（4）设备管理：操作系统管理输入输出设备，实现设备的分配和调度。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
三一文库（）/总结报告/实习报告上机实验报告一．题目1．建立一个学生档案，内容包括学号，姓名，年龄，性别，数学，物理和英语3门功课成绩。
要求实现以下功能：1)数据输入；2)查询某个学生的成绩；3)按平均排列输出；4)统计某门课各分数段人数；5)删除某个学生记录；2．编程实现对二位数进行加，减，乘运算，每运行一次程序做10道题，完成后给出成绩（每题10分）。
二．设计思想和模块划分1.1．先定义所需要的条件，例如，姓名，学号，性别，三门功课的成绩，平均分等。
2．输入姓名，学号，性别，年龄，三门功课的成绩后，就输出相应的姓名，学号，性别，年龄，三门功课的成绩。
3．打印表头；4．在求出平均分，并打印出平均分。
5．在查找学生，并打印出学生的相关资料；并按照平均分的高低排列；6．在统计学生各科成绩是否》=60分，如果是就是通过，否就是没通过，最后打印出最后的结果。
7．删除学生，选中删除的学生，如果确定要，那么该学生的一切记录就变为0；2．1．随机调用函数，产生两个其值为10到99的随机整数分别放在c,d中用作运算时的运算数。
2．随机调用函数，产生一个值为1到3的随机整数放入b中，用来选择不同的运算。
根据b的值选择不同的运算。
当b=1时，去进行c+d的运算练习；当b＝2时，去进行c-d的运算练习；当b=3时，去进行cd的运算练习。
每完成一个算题就给出是否正确的信息。
3．根据答案正确与否统计。
正确时，显示right;错误时，显示wrong。
4．步骤1.2.3.4.重复10次。
5．输出学生成绩。
三．运行结果1.Inputthe1student:num:03name:wfage:18sex:fmath:98phy:7 5eng:65Inputthe2student:num:06name:scage:17sex:fmath:78 phy:45eng:65Inputthe3student:num:09name:ytage:17sex:mma th:69phy:75eng:501.readin2.finds3.del4.tj5.exit1-----------------------------table--------------------------------------------------------------------------------------------------------------------------------numnameage sexmathphyengave---------------------------------------------------------------------------------------------------3wf18f98.075.065.079.3---------------------------------------------------------------------------------------------------9yt17m69.075.050.064.7----------------------------------------------------------------------------------------------------6sc17f78.045.065.062.7----------------------------------------------------------------------------------------------------1.readin2.finds 3.del4.tj5.exit2Intonumber:3-----------------------------------------numnameagesexmathphyengave------------------------------------------------------------------------------------------------3wf18f98.075.065.079.3-------------------------------------------------------------------------------------------------1.readin2.finds3.del 4.tj5.exit3Intonumber:6------------------------------------------------------------------------------------------------numnameagesexmathphyengave------------------------------------------------------------------------------------------------6sc17f78.045.065.062.6------------------------------------------------------------------------------------------------true?Y/Ny1----------------table---------------------------------------------------------------------------------------------------------------numnameagesexmathphyengave-------------------------------------------------------------------------------------------------3wf18f98.075.065.079.3--------------------------------------------------------------------------------------------------9yt17m69.075.050.064.7--------------------------------------------------------------------------------------------------000f0.00.00.00.0-------------------------------------------1.readin2.fi nds3.del4.tj5.exit41.inputthemath2.inputthephy3.inputth eeng1math:passnumis:3nopassnumis:02.32+82=114right!97*1 5=1455right!99-58=41right!76-66=10right!58+13=71right!3 7+49=86right!99+52=151right!49*69=5462wrong!73-38=31wro ng!86+34=120right!markis80四．主要错误改正方法1.在本题的编写过程中常出现begin和end不配对，只要始它们的个数相同就可以了，就可以了。
在程序中常出现的unknownidentifier 没有定义的错误，只要在程序前加上定义，就可以了。
还有就是typemismatch的类型不匹配，只要根据前后内容，重新定义，就可以了。
2.在本题编写中，题目要求是两个两位数运算，如果写成c:=random(100)在运行过程中，就会出现一位数运算，只要把它写成c:=random(90)+10，就可以了。
五．实习小结1．第一题的程序编写比较复杂，需要较多的定义，因而在后面的程序部分，就常出现标识符重复，而导致的类型不匹配。
还有就是每个部分编好后，上下不能连接，而无法调用。
2．第二题较第一题简单，和书上的例题类似，所以，比较简单，但从中也出现一些不问题。
以上两大题中出现的问题，要在同学的帮助下，才能完成。
总的来说两题程序比较困难六．程序清单1.programtwins;constm=3;n=3;typestudent=recordnum:integ er;name:string[3];age:integer;sex:char;s:array[1..n]ofreal;math,eng,phy:real;ave:real;end;sarr=array[1..m]ofst udent;ta=array[1..m]ofstudent;f=string[6];varstu:sarr;c t:ta;k,d:integer;procedurereadin(varstu:sarr);constwron g='0=data=100,again!';varj,i:integer;a:student;beginwri teln;writeln('Input',m,'numnamesexmathphyeng','ofstuden t.');forj:=1tomdobeginwriteln;writeln('Inputthe',j,'stu dent:');withadobeginwrite('num:');readln(num);write('na me:');readln(name);write('age:');readln(age);write('sex :');readln(sex);while(sex'm')and(sex'f')dobeginwrite('s ex:');readln(sex)end;fori:=1tondobegincaseiof1:beginwri te('math:');readln(s[i]);while(s[i]0)or(s[i]100)dobegin writeln(wrong);write('math:');readln(s[i]);end;end;2:be ginwrite('phy:');readln(s[i]);while(s[i]0)or(s[i]100)do beginwriteln(wrong);write('phy:');readln(s[i]);end;end; 3:beginwrite('eng:');readln(s[i]);while(s[i]0)or(s[i]10 0)dobeginwriteln(wrong);write('eng:');readln(s[i]);end; end;end;end;stu[j]:=a;end;writeln;end;end;procedureave( varstu:sarr);varj,i:integer;k:real;beginforj:=1tomdobeg ink:=0;withstu[j]dobeginfori:=1tondok:=k+s[i];ave:=k/ne nd;end;end;procedurepx(varstu:sarr);vartm:ta;j,i,p:inte ger;beginforj:=1tomdobeginp:=j;fori:=j+1tomdoifstu[i].a vestu[p].avethenp:=i;tm[1]:=stu[p];stu[p]:=stu[j];stu[j]:=tm[1];end;end;procedurehead(ct:ta);vari:integer;begi nwrite('');fori:=1to72dowrite('-');writeln;write('','nu m':4,'','name':9,'','age':8,'','sex':5,'','math':6,'',' phy':9,'','eng':8,'');writeln('ave':6,'');write('');for i:=1to72dowrite('-');writeln;withct[1]dobeginwrite('',n um:7,'',name:8,'',age:8,'',sex:5,'');fori:=1tondowrite( s[i]:7,'');write(ave:10,'');writeln;end;write('');fori: =1to72dowrite('-');writeln;end;procedurefind(varstu:sar r);varn,i:integer;u:boolean;beginu:=true;whileudobeginw rite('Intonumber:');readln(n);fori:=1tomdobeginifstu[i] .num=nthenbeginct[1]:=stu[i];u:=false;d:=iend;end;end;e nd;proceduredel(varstu:sarr);vari:integer;b:char;beginh ead(ct);write('true?Y/N');readln(b);ifb='y'thenbeginwri te('1');withstu[d]dobeginnum:=0;name:='0';age:=0;sex:=' f';fori:=1tondos[i]:=0;ave:=0end;endelseend;proceduretj (varstu:sarr);varw1,q1,q2,num,j:integer;h1,h2,h3:boolea n;beginh1:=false;h2:=false;h3:=false;q1:=0;q2:=0;writel n('':30,'1.inputthemath2.inputthephy3.inputtheeng');rea dln(w1);casew1of1:h1:=true;2:h2:=true;3:h3:=true;end;if h1thenbeginbeginforj:=1tomdowithstu[j]doifstu[j].math=6 0thenq1:=q1+1elseq2:=q2+1;writeln('math:');end;ifh2then beginbeginforj:=1tomdowithstu[j]doifstu[j].phy=60thenq1:=q1+1elseq2:=q2+1;writeln('phy:');end;ifh3thenbeginbeg inforj:=1tomdowithstu[j]doifstu[j].eng=60thenq1:=q1+1el seq2:=q2+1;writeln('eng:');end;end;end;end;writeln('':5 ,'passnumis:',q1);writeln('':5,'nopassnumis:',q2);end;p rocedurehead1(varstu:sarr);varj,i:integer;beginwriteln( '----------------table--------------':60);writeln;write ('');fori:=1to72dowrite('-');writeln;write('','num':4,' ','name':9,'','age':8,'','sex':5,'','math':6,'','phy':9 ,'','eng':8,'');writeln('ave':6,'');write('');fori:=1to 72dowrite('-');writeln;forj:=1tomdobeginwithstu[j]dobeg inwrite('',num:7,'',name:8,'',age:8,'',sex:5,'');fori:= 1tondowrite(s[i]:7:1,'');write(ave:10:1,'');writeln;end ;write('');fori:=1to72dowrite('-');writeln;end;end;begi nreadin(stu);ave(stu);k:=0;whilek5dobeginwriteln('1.rea din2.finds3.del4.tj5.exit');read(k);readln;while(k1)and (k2)and(k3)and(k4)and(k5)dobeginwriteln('mistake,Please again');read(k)end;casekof1:beginpx(stu);head1(stu)end; 2:beginfind(stu);head(ct)end;3:beginfind(stu);del(stu); px(stu);head1(stu)end;4:begintj(stu);end;5:writeln('exi t!');end;end;end..2.programshadow;vara,b,c,d,e:integer; right:boolean;procedures1;beginwriteln('right!');right: =trueend;procedures2;beginwriteln('wrong!');right:=falseend;procedures3(x,y:integer);varh:integer;beginwrite(x ,'+',y,'=');readln(h);ifh=x+ythens1elses2end;procedures 4(x,y:integer);varh,w:integer;beginifxythenbeginw:=x;x: =y;y:=wend;write(x,'-',y,'=');readln(h);ifh=x-ythens1el ses2end;procedures5(x,y:integer);varh:integer;beginwrit e(x,'*',y,'=');readln(h);ifh=x*ythens1elses2end;beginra ndomize;e:=0;fora:=1to10dobeginc:=random(90)+10;d:=rand om(90)+10;b:=random(3);casebof0:s3(c,d);1:s4(c,d);2:s5( c,d);end;ifrightthene:=e+10;end;writeln('markis',e:3)en d.。