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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Блок-схема, но можно и программу в Паскаль или С++ (http://www.tehnari.ru/f41/t248582/)

99alinka

04.09.2016 23:50

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

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

Vladimir_S

05.09.2016 10:01

Цитата:

Сообщение от 99alinka (Сообщение 2412518)

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

Код:

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

05.09.2016 16:42

Спасибо!!!

99alinka

05.09.2016 16:43

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

Vladimir_S

05.09.2016 16:55

Цитата:

Сообщение от 99alinka (Сообщение 2412697)

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

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

99alinka

07.09.2016 08:52

Спасибо!!!

Часовой пояс GMT +4, время: 09:28.