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...