编译原理实现报告含完整代码

实验报告

一、实验名称：Pascal程序设计

二、试验目的

●练习简单的Pascal程序设计

●熟悉TurboPascal集成环境

●学习程序的调试过程

三、实验设备

●PC兼容机

●DOS操作系统或Windows操作系统

●TurboPascal软件等

四、实验要求

●独立完成程序的输入和运行

●记录程序的调试过程

●记录程序的运行结果

五、实验内容

六、实验过程记录

图一

图二七、源程序

program message(input,output);

type

student=record

name:string;

sex:string;

age:integer;

mz:string;

zcj:integer;

end;

type

stu=array[1..30] of student;

var a:student;

student1:stu;

name:string;

sex:string;

age:integer;

mz:string;

zcj:integer;

n:integer;

k:integer;

begin

n:=1;

writeln('mz:han,meng,man');

repeat

write('NO.',n,'student name:'); readln(name);

write('NO.',n,'student sex:');

readln(sex);

write('NO.',n,'student age');

readln(age);

write('NO.',n,'student mz');

readln(mz);

write('NO.',n,'student zcj');

readln(zcj);

student1[n].name:=name;

student1[n].sex:=sex;

student1[n].age:=age;

student1[n].mz:=mz;

student1[n].zcj:=zcj;

inc(n);

until n>30;

for k:=1 to 29 do

for n:=1 to 29 do

if student1[n].zcj

begin

a:=student1[n];

student1[n]:=student1[n+1];

student1[n+1]:=a;

end;

writeln('Name Sex Age mz zcj');

for k:=1 to 30 do

writeln(student1[k].name:6,' ',student1[k].sex:2,' ',student1[k].age:3,' ',student1[k].mz:8,' ',student1[k].zcj);

readln;

end.