pascal语言编写学生管理系统（含文件读写，从文件中读取学生数据，并且可以将更改后的学生数据写入文件中保存起来）

约定不等于承诺〃 2022-03-11 12:20 117阅读 0赞

说明：  
  **该程序能够从文件中读取学生数据，并且可以将更改后的学生数据写入文件中保存起来。**  
一、部分代码：

//主程序
    begin
      e := 0;m := 0;i := 0;j := 0;
      sname := '';ssex := '';sage := '';snation := '';sscore := '';{temp2 := '';}n := '';temp := '';
      writeln('载入数据..');
      //载入数据
      assign(stutxt,'stu.txt');
      reset(stutxt);
      while not eof(stutxt) do
      //能进入循环证明有数据
      begin
    	Inc(m);
    	//开始
    	readln(stutxt,stu[m].name);
    	readln(stutxt,stu[m].sex);
    	readln(stutxt,sage);
    	val(sage,stu[m].age,j);
    	readln(stutxt,stu[m].nation);
    	readln(stutxt,sscore);
    	val(sscore,stu[m].score,j);
    	//每读完5行m要加1
      end;
      writeln('数据载入完毕！');
      
      menu();
      write('请选择（按4键调出菜单）：');
      while true do
        begin
    	  readln(n);
    	  val(n,e,i);
    	  //转换成功
    	  if i=0 then 
    	    begin
    		  if e=1 then
    			inputStu(m)
    			else if e=2 then
    			  outputStu(m)
    			else if e=3 then
    			  sortStu(m)
    			else if e=4 then
    			  menu()
    			else if e=5 then
    			  deleteStu(m)
    			else if e=6 then
    			  updateStu(m)
    			else if e=7 then
    			  begin
    			    save2file(m);
    				writeln('退出！');
    				break;
    			  end
    			else if e=8 then
    			  begin
    				writeln('退出！');
    				break;
    			  end
    			else
    			  begin
    			    writeln('没有该选项！');
    				write('请重新输入：');
    				continue;
    			  end;
    	    end
    	  //转换失败
    	  else 
    	    begin
    		  writeln('您输入的格式不正确！');
    		  write('请重新输入：');
    		  continue;
    		end;
    	write('请选择（按4键调出菜单）：');
    	end;
    	//注意关闭
    	close(stutxt);
    end.

二、运行结果：  
1.界面  
![界面][20190308000842817.png]  
2.查看从文件中读取的学生信息  
![查看从文件中读取的学生信息][20190308001053982.png]  
3.录入学生信息  
![录入学生信息][20190308001343962.png]  
4.排序输出  
![排序输出][20190308001458320.png]  
5.修改学生信息  
![修改学生信息][20190308001612722.png]  
姓名修改  
![姓名修改][20190308001747507.png]  
 剩余修改与姓名修改类似  
6.删除学生信息  
![删除学生信息][20190308001953481.png]  
7.保存修改并退出  
 先增加一个学生xxx  
![增加一个学生][2019030800223468.png]  
 保存并退出  
![保存并退出][2019030800233133.png]  
 重新进入程序，发现上次的更改生效（xxx成功录入）  
![在这里插入图片描述][20190308002423935.png]

[20190308000842817.png]: /images/20220311/759559c394164f5188293589d0d0173c.png
[20190308001053982.png]: /images/20220311/64d4bc52580c47c59b831a334b901d0c.png
[20190308001343962.png]: /images/20220311/bb8201453a4749218ee949b5dfa6bd1f.png
[20190308001458320.png]: /images/20220311/5ec4cb54ce6c48daae48469909bc2ebf.png
[20190308001612722.png]: /images/20220311/d224bc26fc0646f599084f7b32c3c9c7.png
[20190308001747507.png]: /images/20220311/edf372f953834eabacdf597ace01ed5b.png
[20190308001953481.png]: /images/20220311/105e22ec37a6496ebe8a22aad4a69865.png
[2019030800223468.png]: /images/20220311/f774656d208644ecb0848d72ce3dd104.png
[2019030800233133.png]: /images/20220311/229b7be95c6445a482fa5ea4ce9bdaba.png
[20190308002423935.png]: /images/20220311/4a679d54b5a54617a35a4baf1ab96a62.png