Одномерный массив

[nikolay61]

Очень часто песня состоит из нескольких куплетов и припева, которые выполняются следующим образом: первый куплет, припев, второй куплет, припев, ..., последний куплет, припев. Но в песеннике запись песни приводится следующим образом: первый куплет, припев, а дальше тексты следующих куплетов. Напишите программу, которая бы определяла исполнение песни по тексту с альбома.
................................... ......................... . .
понятное дело с перебором массива с помощью ФОР. А вот как именно припевы вставить между куплетами?
Пример: Введение (3 A P B C) Выведение (A P B P C P) //Р - это припевы.

[BDA]

Уточните, какие именно данные подаются на вход. Это число, обозначающее количество куплетов и запись песни в сокращенном виде, где каждый куплет и припев обозначены латинской буквой?

[Serge_Bliznykov]

nikolay61, а Вы пример сами придумали, или его дали Вам?
насколько я понял по описанию

первый куплет, припев, а дальше тексты следующих куплетов.

в заданном примере записи песни: (3 A P B C)
З - это первый куплет
A - это припев
Р - это второй куплет
....

значит, вывод написан НЕВЕРНО!


Ну и согласен с BDA - нужно определиться с тем, как данные подаются на вход программы!

[nikolay61]

Сообщение от BDA

Уточните, какие именно данные подаются на вход. Это число, обозначающее количество куплетов и запись песни в сокращенном виде, где каждый куплет и припев обозначены латинской буквой?

Нет, дают три куплета. Каждый куплет обозначается первой буквой куплета. В данном случае А, В, С. Припев обозначен буквой -Р.
В сборнике песен напечатан куплет-припев- и дальше просто куплеты. А мы поем: перввый куплет-припев, второй-припев и т.д.

[BDA]

Ну а что за "З" в Вашем примере входных данных тогда?

[nikolay61]

Сообщение от BDA

Ну а что за "З" в Вашем примере входных данных тогда?

три куплета

[Vanta11a]

read(pfile,number_of_parts);
read(pfile,part);
read(pfile,part_one_and_half);
write(part_one,' ', part_one_and_half,' ');
for (i:=2 to number_of_parts) do
begin
read(pfile,part);
write(part,' ', part_one_and_half,' ');
end;

Что-то типа.
Считали число куплетов, считали первый куплет и припев, вывели всю эту радость. Потом читаем со второго куплета по число куплетов, выводя содержимое куплета и припев.

[Mad_Cat]

три куплета

а для чего она тут?

var s:string;
buf:string;
i:byte;
n:byte;
begin
s:='3APBC';
delete(s,1,1);
n:=length(s);
for i:=2 to n+1 do
if s[i-1]<>'P' then buf:=buf+s[i-1]+'P';
s:=buf;
writeln(s);
end.

APBPCP