Array 64

[DronoDron]

Даны три целочисленных массива A, B и С размера NA, NB, NC соответсвенно, элементы которых упорядочены по убыванию. Объединить эти массивы так чтобы результирующий целочисленный массив D (размера NA+ NB+ NC ) остался упорядоченным по убыванию.

program Array64;
var
a: array [1..10] of real;
b: array [1..10] of real;
C: array [1..10] of real;
D: array [1..30] of real;
temp,na,nb,nc:integer; 
an,bn,cn:integer; 
i:integer; 
begin
writeln('Введите размерности масиивов');
writeln('Введите AN (AN<=10)');
readln(AN);

writeln('Введите BN (BN<=10)');
readln(BN);

writeln('Введите CN (CN<=10)');
readln(CN);

writeln('Значения массива А');
for i:=1 to an do begin write('a[',i,']=');readln(A[i]); end;
writeln('Значения массива B');
for i:=1 to bn do begin write('b[',i,']=');readln(B[i]); end;
writeln('Значения массива C');
for i:=1 to cn do begin write('c[',i,']=');readln(C[i]); end;
na:=1;
nb:=1;
nc:=1;
i:=1; 
while (na<=an)and(nb<=bn)and(nc<=cn) do
begin
if (a[na]>=b[nb]) and (a[na]>=c[nc]) then begin D[i]:=a[na]; inc(na); inc(i); end
else if (b[nb]>=a[na]) and (b[nb]>=c[nc]) then begin D[i]:=b[nb]; inc(nb); inc(i); end
else if (c[nc]>=b[nb]) and (c[nc]>=a[na]) then begin D[i]:=c[nc]; inc(nc); inc(i); end;
end;
while (nb<=bn)and(nc<=cn) do
begin
if b[nb]>=c[nc] then begin D[i]:=b[nb]; inc(nb); inc(i); end
else if c[nc]>=b[nb] then begin D[i]:=c[nc]; inc(nc); inc(i); end;
end;

while (na<=an)and(nc<=cn) do
begin
if a[na]>=c[nc] then begin D[i]:=a[na]; inc(na); inc(i); end
else if c[nc]>=a[na] then begin D[i]:=c[nc]; inc(nc); inc(i); end;
end;

while (na<=an)and(nb<=bn) do
begin
if a[na]>=b[nb] then begin D[i]:=a[na]; inc(na); inc(i); end
else if b[nb]>=a[na] then begin D[i]:=b[nb]; inc(nb); inc(i); end;
end;
while na<=an do begin D[i]:=a[na]; inc(na); inc(i); end;
while nb<=bn do begin D[i]:=b[nb]; inc(nb); inc(i); end;
while nc<=cn do begin D[i]:=c[nc]; inc(nc); inc(i); end;
 
Writeln('Ответ');
Writeln;
Write(' D[]: '); for i:=1 to an+bn+cn do Write(D[i],' ');
end.

Должна выводить ответ по убыванию а он неправильно выводит.
Кто знает напишите.

[Stilet]

Допустимо сортировать после объединения?

[Serge_Bliznykov]

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

Допустимо сортировать после объединения?

рискну ответить за TC

Нет. не допустимо.
Это классическая задача на слияние.
Правда, чаще встречается задача слить два массива. Но и три тоже можно.

[Drung]

Но ведь здесь в задании написано что должно быть по убыванию числа здесь не просто слияние.

[Serge_Bliznykov]

да, я понимаю. не просто слияние, а слияние с сохранением упорядоченности.
(гуглим, например, Сортировка слиянием (англ. merge sort) )

Drung, я не вижу проблем в вашем коде, он работает.
что Вас не устраивает?

может быть, Вы упускаете один очень ВАЖНЫЙ момент?

Даны три целочисленных массива A, B и С размера NA, NB, NC соответственно, элементы которых упорядочены по убыванию.

Вы вводите элементы массивов УПОРЯДОЧЕННЫМи по убыванию?


p.s. кстати, я бы добавил проверки - "защиту от дурака" - при вводе размерности массивов проверял, что размерность меньше 10 и после ввода элементов массива, что их ввели корректно, упорядоченными по убыванию!

[ViktorR]

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

PS: В примере массивы, перед слиянием, должны быть отсортированы соответственно.


Как-то так, ...

[min@y™]

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