东北大学计算机学院绩点公示,#求教#教务处查不了绩点了后续

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

听说教务处查不了绩点了，学过编程的文科生心里痒痒

用turbo pascal 7.0编了个程，

求各位软件计算机大佬批评指正。

program JIDIANJISUAN;

type

arrtype1=array[1..1000]of integer;

arrtype2=array[1..1000]of real;

var

GPA:real;

Chongkao,Guake:arrtype1;

Xuefen,Chengji,GPAn:arrtype2;

a,b,c,d,e,f,g,h,i,j:integer;

x,x1,y,z,z1:integer;

den,num:real;

begin

writeln('Welcome to use GPA calculator, please follow the instructions.');

writeln('And,"You"=95,"Liang"=85,"Zhong"=75,"Jige"=65,"Bujige"=0,"Hege"=80,"Buhege"=0');

writeln('If you failed a course and attended to a make-up examination,');

writeln('then the grade is 0, and the number of re examinations is 2');

for x:=1 to 1000 do

Chongkao[X]:=1;

x1:=1;

writeln('Please input the number of your courses in the first semester:');

readln(a);

if a>0 then

for x:=1 to a do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[z1]);

Chongkao[Guake[z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the second semester:');

readln(b);

if b>0 then

for x:=a+1 to a+b do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+1+z1]);

Chongkao[Guake[a+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the third semester:');

readln(c);

if c>0 then

for x:=a+b+1 to a+b+c do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+1+z1]);

Chongkao[Guake[a+b+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the fourth semester:');

readln(d);

if d>0 then

for x:=a+b+c+1 to a+b+c+d do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+c+1+z1]);

Chongkao[Guake[a+b+c+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the fifth semester:');

readln(e);

if e>0 then

for x:=a+b+c+d+1 to a+b+c+d+e do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+c+d+1+z1]);

Chongkao[Guake[a+b+c+d+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the sixth semester:');

readln(f);

if f>0 then

for x:=a+b+c+d+e+1 to a+b+c+d+e+f do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+c+d+e+1+z1]);

Chongkao[Guake[a+b+c+d+e+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the seventh semester:');

readln(g);

if g>0 then

for x:=a+b+c+d+e+f+1 to a+b+c+d+e+f+g do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+c+d+e+f+1+z1]);

Chongkao[Guake[a+b+c+d+e+f+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the eighth semester:');

readln(h);

if h>0 then

for x:=a+b+c+d+e+f+g+1 to a+b+c+d+e+f+g+h do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+c+d+e+f+g+1+z1]);

Chongkao[Guake[a+b+c+d+e+f+g+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the ninth semester:');

readln(i);

if i>0 then

for x:=a+b+c+d+e+f+g+h+1 to a+b+c+d+e+f+g+h+i do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+c+d+e+f+g+h+1+z1]);

Chongkao[Guake[a+b+c+d+e+f+g+h+1+z1]]:=2;

end;

end;

x1:=1;

writeln('Please input the number of your courses in the tenth semester:');

readln(j);

if j>0 then

for x:=a+b+c+d+e+f+g+h+i+1 to a+b+c+d+e+f+g+h+i+j do

begin

writeln('Please input the grade, point of course',x1);

readln(Chengji[x],Xuefen[x]);

inc(x1);

end;

writeln('If you failed some courses, please input the number,if not, please input 0:');

readln(z);

if z>0 then

begin

writeln('please input each order number of your failed course and press Enter:');

for z1:=1 to z do

begin

readln(Guake[a+b+c+d+e+f+g+h+i+1+z1]);

Chongkao[Guake[a+b+c+d+e+f+g+h+i+1+z1]]:=2;

end;

end;

den:=0;

num:=0;

for y:=1 to x do

begin

GPAn[y]:=Chengji[y]/10-5;

end;

for y:=1 to x do

den:=den+Xuefen[y]*Chongkao[y];

for y:=1 to x do

num:=num+GPAn[y]*Xuefen[y];

GPA:=num/den;

writeln('Your GPA is:',GPA:6:6);

readln;

end.