Изменить условие в решении, Помогите!!Умоляю!! Опции

[Studentka]

Вот задачка: учитель объявил результаты контрольной работы. Определите процентное содержание выставленных им пятерок,четверок,троек и двоек.
В готовой программе на экран выводится общий ряд оценок и их процентное соотношение.Решение сделано так,что выводятся и колы.Как их можно убрать,что изменить в решении?
Помогите плиз!Экзамен на носу!

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

М

Тэги!!

Сообщение отредактировано: Lapp - 10.06.2009 13:19

[Ozzя]

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.

[Lapp]

Решение сделано так,что выводятся и колы.Как их можно убрать,что изменить в решении?

Прыгнуть три раза, хлопнуть в ладоши и сказать: елочка, зажгись!


Добавлено через 3 мин.
Меня уже не первый раз за последнее время радует находчивость преподавателей)). Я ценю хорошее чувство юмора. Особенно соединенное с возможностью заставить лентяев хоть пальцем пошевелить.. на форум, вот, зайти..

[Studentka]

Ozzя,спасибо тебе
Эх,есть еще хорошие люди ))

Добавлено через 6 мин.
Lapp:
Ну да ,вот такие мы заочники лентяи и балбесы
Зато всю остальную контрольную сама делала,вот! Ну куда ж без вас,без программеров

[Lapp]

Ну да ,вот такие мы заочники лентяи и балбесы
Зато всю остальную контрольную сама делала,вот!

Я не вполне понимаю, что ты имеешь в виду, потому что вот это утверждение:

Решение сделано так,что выводятся и колы

- совершенно неверно. Как НЕ выводились колы, так они и НЕ выводятся. Ozzя сделал, что бы они не вводились. Ты не видишь разницы?

Если Ozzе удалось угадать и сделать именно то, что тебе нужно - попроси меня поднять ему рейтинг. За интуицию)).

[Studentka]

Ozzя сделал именно то,что нужно ))

[Lapp]

Ozzя сделал именно то,что нужно ))

Так что - поставить ему +1 ?


Добавлено через 1 мин.
В принципе, когда наберешь, кажется, 20 сообщений, сможешь и сама))