Вот задачка: учитель объявил результаты контрольной работы. Определите процентное содержание выставленных им пятерок,четверок,троек и двоек.
В готовой программе на экран выводится общий ряд оценок и их процентное соотношение.Решение сделано так,что выводятся и колы.Как их можно убрать,что изменить в решении?
Помогите плиз!Экзамен на носу!
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
const N = 20;
{A : array [1..20] of Integer=(4,2,3,4,5,4,2,4,4,3,5,3,2,5,3,2,3,5,3,5);}
var A : Array[1..N] of Integer;
B : Array[1..5] of Integer;
C : Array[1..5] of Real;
I : Integer;
K : Real;
begin
Randomize;
K:=100/N;
for i:=1 to N do begin
A[i]:=Random(5)+1;
write(A[i],',');
end;
writeln;
for i:=2 to 5 do begin
B[i]:=0;
end;
for i:=2 to N do begin
B[A[i]]:=B[A[I]]+1;
end;
for i:=2 to 5 do begin
C[i]:=B[i]*K;
writeln(i,':',C[i]: 2: 2);
end;
readln;
end.
М | Тэги!! |
const N = 20;
var A : Array[1..N] of Integer;
B : Array[1..5] of Integer;
C : Array[1..5] of Real;
I : Integer;
K : Real;
begin
Randomize;
K:=100/N;
for i:=1 to N do begin
A[i]:=Random(4)+2;
write(A[i],',');
end;
writeln;
for i:=1 to 5 do begin
B[i]:=0;
end;
for i:=1 to N do begin
B[A[i]]:=B[A[I]]+1;
end;
for i:=2 to 5 do begin
C[i]:=B[i]*K;
writeln(i,':',C[i]: 2: 2);
end;
readln;
end.
Ozzя,спасибо тебе
Эх,есть еще хорошие люди ))
Добавлено через 6 мин.
Lapp:
Ну да ,вот такие мы заочники лентяи и балбесы
Зато всю остальную контрольную сама делала,вот! Ну куда ж без вас,без программеров
Ozzя сделал именно то,что нужно ))