Задача о проведении смотра

[Serjant0007]

Задача о проведении смотра

На смотре было представлено 4 вокальных номера и художественное чтение. Сколько существует способов проведения смотра, выведите на экран эти способы. P.S. я с помощью математики посчитал что существует 600 способов проведения смотра.

 

[Vladimir_S]

На смотре было представлено 4 вокальных номера и художественное чтение. Сколько существует способов проведения смотра, выведите на экран эти способы. P.S. я с помощью математики посчитал что существует 600 способов проведения смотра.

1. Что понимается под "способом проведения смотра"?
2. Что требуется в задаче - написать программу? Если да, то на каком языке?
3. Какого лешего мы вынуждены из Вас тащить информацию - это, в конце концов, нам надо или Вам? Неужели нельзя толком составить сообщение, чтобы было понятно?

 

[Serjant0007]

Извините пожалуйста! Способ проведения смотра это так: есть 4 вокала и 1 худ чтение их можно расположить по разному, например сначала может выступать первая вокальная группа, потом чтение, потом вторая потом третья и потом 4, чтение можно поставить вначало и это уже будет второй способ. Требуется написать программу: Pascal.

 

[Vladimir_S]

Интересно, с помощью какой математики вы насчитали 600 способов? Если речь идет о перестановках множества из 5 элементов, то ответ такой: 5!=120.
Насчет программы - подумаю.

 

[Vladimir_S]

Придумал. Вот:

Const
 S0:ARRAY[1..5] of STRING=('V1','V2','V3','V4','R');
Var
 i1,i2,i3,i4,i5,j :Integer;
 S:ARRAY[1..5] of STRING;
BEGIN
 j:=1;
 For i1:=1 to 5 do
  begin
   S[1]:=S0[i1];
   For i2:=1 to 5 do
    If S0[i2]<>S[1] then
     begin
      S[2]:=S0[i2];
      For i3:=1 to 5 do
       If (S0[i3]<>S[1]) and (S0[i3]<>S[2]) then
        begin
         S[3]:=S0[i3];
         For i4:=1 to 5 do
          If (S0[i4]<>S[1]) and (S0[i4]<>S[2]) and
             (S0[i4]<>S[3]) then
           begin
            S[4]:=S0[i4];
            For i5:=1 to 5 do
             If (S0[i5]<>S[1]) and (S0[i5]<>S[2]) and
                (S0[i5]<>S[3]) and (S0[i5]<>S[4]) then
              S[5]:=S0[i5];
            Write(S[1]+'-'+S[2]+'-'+S[3]+'-'+S[4]+'-'+S[5]+' ');
            Inc(j);
            If j=6 then
             begin
              j:=1;
              WriteLn;
             end;
           end;
        end;
     end;
  end;

 Readln;
END.

Здесь V1..V4 - вокалисты, R - чтец. Не слишком красивое решение, но если обобщать на произвольное количество участников, то будет уж очень головоломно.

 

[Serjant0007]

Спасибо огромное)))))

 

[Vladimir_S]

Спасибо огромное)))))

Пожалуйста. Разбирайтесь. Удачи!