VL
0 / 0 / 0
Регистрация: 16.05.2012
Сообщений: 36
1

Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону

18.05.2012, 22:24. Показов 4179. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
вот, что получилось, как-то не очень работает
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program zd115;
uses
crt;
var
b:array [1..100] of integer;
a:array [1..100] of integer;
c:array [1..100] of integer;
k,n,i,f,j,i1,i2:integer;
begin
clrscr;
write('vvdite N');
readln(N);
for i:= 1 to n do
begin
write('vvedite ',i,' ilement');
readln(a[i]);
end;
write('vvdite K');
readln(k);
for i:= 1 to k do
begin
write('vvedite ',i,' ilement');
readln(b[i]);
end;
clrscr;
write('Massiv s dlinoi N ');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Massiv s dlinoi K ');
for i:=1 to k do
write(a[i]:4);
i1 := 1;
i2 := 1;
for i := n+k downto 1 do
if i1>n then
begin
C[i] := a[i2];
inc(i2);
end
else
if i2>k then
begin
C[i] := b[i1];
inc(i1);
end
else
if a[i1]<=b[i2] then
begin
C[i] := b[i1];
inc(i1);
end
else
begin
C[i] := a[i2];
inc(i2);
end;
writeln;
write('Massiv N+k');
for i:=1 to n+k do
write(c[i]:4);
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2012, 22:24
Ответы с готовыми решениями:

Из двух упорядоченных массивов сформируйте одномерный массив, упорядоченный в обратную сторону
Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N,...

Сформировать одномерный массив размером K+N из двух упорядоченных одномерных массивов
Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N,...

слияние двух упорядоченных массивов в один упорядоченный
это слияние двух упорядоченных массивов в один упорядоченный, программу я сама напишу, тока...

Создать из элементов упорядоченных по неубыванию массивов новый массив, упорядоченный по возрастанию
Даны два натуральных числа n и m (n&lt;=100, m&lt;=100) и два упорядоченных по неубывания массивы целых...

1
7 / 7 / 3
Регистрация: 08.08.2011
Сообщений: 27
18.05.2012, 23:09 2
я бы изменил код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses
 crt;
 var
     b:array [1..100] of integer;
     a:array [1..100] of integer;
     c:array [1..100] of integer;
     k,n,i,f,j,i1,i2:integer;
 begin
    clrscr;
    write('vvdite N');
    readln(N);
    for i:= 1 to n do
    begin
      write('vvedite ',i,' ilement');readln(a[i]);
    end;
    write('vvdite K'); readln(k);
    for i:= 1 to k do
    begin
       write('vvedite ',i,' ilement'); readln(b[i]);
    end;
    clrscr;
    write('Massiv s dlinoi N ');
    for i:=1 to n do
       write(a[i]:4);
    writeln;
    write('Massiv s dlinoi K ');
    for i:=1 to k do
       write(a[i]:4);
 
    i1:=1;i2:=1;
    for i:=n+k downto 1 do
           if a[i1]>b[i2] then begin c[i]:=a[i1];inc(i1);end
           else begin c[i]:=b[i2];inc(i2);end;
 
    write('Massiv N+k');
    for i:=1 to n+k do
        write(c[i]:4);
    readln;
END..
30-33 строки
P.S хотите чтобы читали ваш код, оформляйте грамотно, с выравниванием...
1
18.05.2012, 23:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2012, 23:09
Помогаю со студенческими работами здесь

Дан одномерный массив чисел А. Сформируйте два одномерных массива:
одномерный массив Дан одномерный массив чисел А. Сформируйте два одномерных массива: массив В,...

Из двух упорядоченных одномерных массивов длины К и Н сформируйте одномерный массив размером К+Н упорядоченный так же как и исходный
Из двух упорядоченных одномерных массивов длины К и Н сформируйте однормерный массив размером К+Н...

Из двух массивов сформируйте одномерный массив, упорядоченный в обратную сторону
Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N,...

Из двух одинаково упорядоченных одномерных массивов k и s сформировать один массив размером k+s
7.*.1. Помогите, пожалуйста, решить задачу в С++. Из двух одинаково упорядоченных одномерных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru