Блок-схема, но можно и программу в Паскаль или С++

[99alinka]

Блок-схема, но можно и программу в Паскаль или С++

Здравствуйте! Помогите, пожалуйста, решить задачу. Нужно составить блок-схему, но можно и программу. Задача: даны 5 чисел a,b,c,d,e. Подсчитать, сколько раз повторяется каждое число (если входные данные 2 5 2 5 2, то в ответе соотношение 2:3, 5:2).

 

[Vladimir_S]

Здравствуйте! Помогите, пожалуйста, решить задачу. Нужно составить блок-схему, но можно и программу. Задача: даны 5 чисел a,b,c,d,e. Подсчитать, сколько раз повторяется каждое число (если входные данные 2 5 2 5 2, то в ответе соотношение 2:3, 5:2).

Ну вот - на Паскале:

Var
 A:Array[1..5] of Byte;
 M:Set of Byte;
 i,j,p:Byte;

Begin
 M:=[];
 for i:=1 to 5 do
  begin
   write(Chr(96+i),' = ');
   readln(A[i]);
  end;
 for j:=1 to 5 do
  if Not(A[j] in M) then
   begin
    p:=1;
    M:=M+[A[j]];
    if j<5 then
     for i:=j+1 to 5 do
      if A[i]=A[j] then Inc(p);
    writeln(A[j],':',p);
   end;
 Readln
End.

 

[99alinka]

Спасибо!!!

 

[99alinka]

А можете все же составить блок-схему? Потому что я не знаю, как на ней обозначить этот цикл

 

[Vladimir_S]

А можете все же составить блок-схему? Потому что я не знаю, как на ней обозначить этот цикл

Увы - блок-схемами не занимаюсь. Но есть в Сети программы и OnLine-сервисы, которые по готовым программам рисуют блок-схемы. Поищите.

 

[99alinka]

Спасибо!!!