Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
VL
0 / 0 / 0
Регистрация: 16.05.2012
Сообщений: 22
1

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

17.05.2012, 14:53. Просмотров 704. Ответов 1
Метки нет (Все метки)

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

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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2012, 14:53
Ответы с готовыми решениями:

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

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

Слияние двух упорядоченных списков в один упорядоченный
Даны два списка упорядоченные по не убыванию.Объединить их в третий список упорядоченный по не...

Записать числа двух упорядоченных массивов в массив С в том же порядке, не используя алгоритма сортировки.
Помогите решить задачу используя процедуры: Создать два одномерных массива А и В различной...

Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону
вот, что получилось, как-то не очень работает program zd115; uses crt; var b:array of...

1
BumerangSP
4292 / 1414 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
17.05.2012, 16:43 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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
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, ' element ');
    readln(a[i]);
  end;
  write('vvdite K ');
  readln(k);
  for i := 1 to k do
  begin
    write('vvedite ', i, ' element ');
    readln(b[i]);
  end;
  clrscr;
  write('Massiv s dlinoi N ');
  for i := 1 to n do
    write(a[i]:4);
  writeln;
  for i := 1 to n do
    for j := 1 to n - 1 do
      if a[i] < a[j] then
      begin
        f := a[i];
        a[i] := a[j];
        a[j] := f;
      end;
  write('Massiv s dlinoi K ');
  for i := 1 to k do
    write(b[i]:4);
  
  
  writeln;
  for i := 1 to k do
    for j := 1 to k - 1 do
      if b[i] < b[j] then
      begin
        f := b[i];
        b[i] := b[j];
        b[j] := f;
      end;
  for i := 1 to n do 
    c[i] := a[i];
  for i := 1 to k do 
    c[i + n] := b[i];
  
  for i := 1 to n + k do
    for j := 1 to (n + k) - 1 do
      if c[i] > c[j] then
      begin
        f := c[i];
        c[i] := c[j];
        c[j] := f;
      end;
  
  for i := 1 to n + k do
    write(c[i]:4);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2012, 16:43

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

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

Заполнить массив по улитке в обратную сторону
. Объявить двумерный массив (матрицу) размерностью NxN (величина задана в разделе кон-стант)....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru