pascal程式設計 急將n個學生成績從鍵盤輸入,按

2021-06-26 18:53:32 字數 2853 閱讀 3566

1樓:陽光上的橋

vari,n,x,c0,c60,c70,c80,c90:integer;

begin

write('n=?');readln(n);

writeln('請輸入',n,'個學生成績');

for i:=1 to n do

begin

read(x);

case i div 10 of

6:c6:=c6+1;

7:c7:=c7+1;

8:c8:=c8+1;

9:c9:=c9+1;

10:c9:=c9+1;

else c0:=c0+1;

end case

end;

writeln('0-59分人數:',c0);

writeln('60-69分人數:',c6);

writeln('70-79分人數:',c7);

writeln('80-89分人數:',c8);

writeln('90-100分人數:',c9);

end.

2樓:匿名使用者

var s:array [1..2,1..20] of integer;

r:array [5..9] of integer;

n,i,j:integer; k:boolean;

begin

readln(n); for i:=5 to 9 do r[i]:=0;

for i:=1 to n do begin

write(' ',i,') :'); readln(s[1,i]);

j:=s[1,i] div 10; if j=10 then j:=9;

if j<5 then j:=5; r[j]:=r[j]+1; s[2,i]:=j;

end;

for i:=5 to 9 do begin

if i=5 then write(' 0--',i*10+9,':') else

if i=9 then write(' 90--',i*10+10,':') else

write(' ',i*10,'--',i*10+9,':'); k:=true;

for j:=1 to n do if s[2,j]=i then

begin write(' ',s[1,j]:4); k:=false; end;

write('':20-r[i]*3); if k then write('':4);

writeln(' yi gong ',r[i],' ren');

end; readln;

end.

3樓:匿名使用者

program aa;

varput1:string[3];

put2,code:integer;

range:integer;

num:array[1..5]of integer;

begin

writeln;

write('input:');

read(put1);

while put1<>'#' do beginval(put1,put2,code);

range:=put2 div 10;

if (range<6)and(range>=0) then num[1]:=num[1]+1;

case range of

6:num[2]:=num[2]+1;

7:num[3]:=num[3]+1;

8:num[4]:=num[4]+1;

9:num[5]:=num[5]+1;

10:num[5]:=num[5]+1;

end;

write('input:');

readln(put1);

end;

writeln('the result is:');

writeln('0-59:',num[1]);

writeln('60-69:',num[2]);

writeln('70-79:',num[3]);

writeln('80-89:',num[4]);

write('90-100:',num[5]);

end.

試過了,可行,樓主可以試一下.

好苦啊~~~

c語言定義乙個一維陣列,輸入n個學生的考試成績統計各分數段的人數(分數段為:90-100,80-89,70-79,60-69 10

4樓:匿名使用者

#include

int main() ;

char s[7] = ;

printf("請輸入成績:");

< 5;++i)if(grade[i]) printf("%s成績,%d個人。\n",s[i],grade[i]);

printf("\n");

return 0;}

用c語言,輸入乙個班10個學生的成績,統計各分數段[0,60),[60,70),[70,80),[80,90),[90-100]的人數。

5樓:暢景彰

這個是你要的程式,vc6.0通過除錯執行了。

#include

void main()

;float score;

for(;no<=10;no++)

printf("0~60:%d\n60~70:%d\n70~80:

%d\n80~90:%d\n90~100:%d\n",count[0],count[1],count[2],count[3],count[4]);}

pascal程式設計急求

好像上面兩位都有點問題 第一題program exe1 vars real i,n,k integer begin s 0.0 readln n for i 1 to n do if odd i then s s 1 ielse s s 1 i writeln s 0 6 end.第二題progra...

vb程式設計問題輸入字元型再輸入整數n將

n val inputbox 請輸入乙個整數n str ahsdjsdssads str right str,len str n left str,n private sub command1 click dim t n t inputbox 輸入 du字zhi 符串dao n inputbox 輸...

pascal語言 求n個自然數的最大公約數和最小公倍數 急

lz,怪不得沒人答題啦 用pascal實現 求n個自然數的最大公約數和最小公倍數 是很難的用for語句也可以,但要想很久 我也想了很久 勸你別用這個題目了 可以用求2個自然數的最大公約數和最小公倍數要明確一些嘛 program sd const m 3 var a array 1.m of inte...