Форум «Всё о Паскале» _ Задачи _ Формирование массива - чередование
Автор: Домовой 4.04.2006 0:23
Добрый вечер или как Вообщем у меня такое задание. Пользователь задает 2 массива, причем количество индексов может быть различным, например у массива B - 10 а у массива C - 7. Итак, и из этих 2 массивов требуется сформировать один - A. Причем следующим образом: первые два элемента берем из массива C, вторые 2 из массива B, третьи 2 из массива C и так далее, по чередованию. Если один из массивов заканчивается, то другой прибиваем вниз главного. Вот, что у меня получилось:
Код
program massive_2_6; CONST start=1; end1=5; end2=5; mainend=end1+end2; var b: ARRAY [start..end1] OF INTEGER; c: ARRAY [start..end2] OF INTEGER; a: ARRAY [start..mainend] OF INTEGER; i, yesb, yesc, cntb, cntc: byte; context: INTEGER;
for i:=start to end2 DO begin readln(context); c[i]:=context; end;
yesc:=1; yesb:=0; cntb:=1; cntc:=1;
for i:=start to mainend DO begin if (yesc<>0) then begin if (yesc<3) then begin a[i]:=c[cntc]; cntc:=cntc+1; yesc:=yesc+1; end else begin yesc:=0; yesb:=1; end; if (yesb<>0) then begin if (yesb<3) then begin a[i]:=b[cntb]; cntb:=cntb+1; yesb:=yesb+1; end else begin yesc:=1; yesb:=0; end; end; end;
end;
for i:=start to mainend DO begin write(a[i], ' '); end; readln; end.
Понимаю, код большой и никто разбираться в нем не хочет. Но хотел спросить - у меня правильно идут только первые 3 элемента нового массива A, т.е. они формируются правилно, а остальные - все нули, к сожалению. Может, кто подскажет другую технологию, более совершенную? Спасибо.
Автор: volvo 4.04.2006 0:39
Цитата(Домовой @ 3.04.2006 20:23)
Может, кто подскажет другую технологию
Может быть
... curr_b := 1; curr_c := 1; i := 1; while (curr_c <= end2) and (curr_b <= end1) do begin
for j := 1 to 2 do if curr_c <= end2 then begin a[i] := c[curr_c]; inc(i); inc(curr_c); end; for j := 1 to 2 do if curr_b <= end1 then begin a[i] := b[curr_b]; inc(i); inc(curr_b); end;
end;
while curr_c <= end2 do begin a[i] := c[curr_c]; inc(i); inc(curr_c); end; while curr_b <= end1 do begin a[i] := b[curr_b]; inc(i); inc(curr_b); end; ...
Автор: Домовой 4.04.2006 1:57
Ага, спасибо. Я тоже нашел альтернативу:
Код
for i:=start to mainend DO begin if startc=1 then begin a[i]:=c[posc]; cnt:=cnt+1; posc:=posc+1; if cnt>=2 then begin cnt:=0; startc:=0; startb:=1; end; end else if startb=1 then begin a[i]:=b[posb]; cnt:=cnt+1; posb:=posb+1; if cnt>=2 then begin cnt:=0; startc:=1; startb:=0; end; end;
end;
Что радует, это работает, но, к сожалению, только тогда - когда оба массива по индексам одинаковы и четны, например 4 и 4, 8 и 8, 10 и 10... Хотел српосить - как возможно поставить проверку. Ну например, если первый массив - 10 а второй 7 индексов содержит, то как к концу общего массива просто преписать оставшиеся 3 из первого?