Free Pascal问题

显示全部楼层 · 2011-11-3 01:02:52

要做一个有N个学生参加英语考试，请统计60分以下、60—69、70—79、80—89、90—100各档人数的程序，下面是我的程序。varn,a,i,you,liang,zhong,jige:integer;beginyou:=0;liang:=0;jige:=0;zhong:=0;readln(n);fori:=1tondoreadln(a);ifa=100anda=90thenyou:=you1elseifa90anda=80thenliang:=liang1elseifa80anda=70thenzhong:=zhong1elseifa70anda=60thenjige:=jige1;writeln(\'you=\'you;\'liang=\'liang;\'zhong=\'zhong;\'jige=\'jige);end.结果错了，哪位大虾帮忙改一下？

千问 · 2011-11-3 01:02:52

fori:=1tondobeginreadln(a);if(a=100)and(a=90)thenyou:=you1elseif(a90)and(a=80)thenliang:=liang1elseif(a80)and(a=70)thenzhong:=zhong1elseif(a70)and(a=60)thenjige:=jige1elsebujige:=bujige1;（还有不及格的）end;writeln(\'you=\'you;\'liang=\'liang;\'zhong=\'zhong;\'jige=\'jige);end.赞同

千问 · 2011-11-3 01:02:52

varn,i,a,b,c,d,e:longint;beginreadln(n);fori:=1tondobeginread(n);casendiv10of10:beginifn=100theninc(a)elsewriteln(\'Inputerror!\');end;9:inc(a);8:inc(b);7:inc(c);6:inc(d);elsebeginif(n=0)and(n60)theninc(e)elsebeginwriteln(\'Inputerror!\');exit;end;end;end;end;writeln(\'You=\',a,\'Liang=\',b,\'Zhong=\',c,\'Jige=\',d,\'Bujige=\',e);end.赞同

千问 · 2011-11-3 01:02:52

varn,a,i,you,liang,zhong,jige:integer;beginyou:=0;liang:=0;jige:=0;zhong:=0;readln(n);fori:=1tondobeginreadln(a);ifa=100anda=90thenyou:=you1elseifa90anda=80thenliang:=liang1elseifa80anda=70thenzhong:=zhong1elseifa70anda=60thenjige:=jige1;end;writeln(\'you=\'you;\'liang=\'liang;\'zhong=\'zhong;\'jige=\'jige);end.你少了一个beginend像你那样的话后面的语句都不会执行加上之后应该就可以了我也素新手回答不好见谅撒赞同

千问 · 2011-11-3 01:02:52

(a=100)and(a=90)，表达式要加括号，不然先算and了赞同

千问 · 2011-11-3 01:02:52

varn,a,i,you,liang,zhong,jige:integer;beginyou:=0;liang:=0;jige:=0;zhong:=0;readln(n);fori:=1tondobeginreadln(a);ifa=100anda=90thenyou:=you1elseifa90anda=80thenliang:=liang1elseifa80anda=70thenzhong:=zhong1elseifa70anda=60thenjige:=jige1;end;writeln(\'you=\'you;\'liang=\'liang;\'zhong=\'zhong;\'jige=\'jige);end.赞同

千问 · 2011-11-3 01:02:52

应该弄个数组吧赞同