Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
velvet666
0 / 0 / 0
Регистрация: 26.09.2010
Сообщений: 28
1

объединение массивов

26.09.2010, 22:32. Просмотров 927. Ответов 2
Метки нет (Все метки)

помогите решить задачу...
Объединить массивы А и В так, чтобы сначала располагались неотрицательные элементы в порядке убывания, затем отрицательные элементы массива А, затем отрицательные элементы массива В, порядок следования среди которых надо изменить на противоположный.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2010, 22:32
Ответы с готовыми решениями:

Объединение массивов
Здравствуйте! Помогите пожалуйста... Заданы два одномерных массива...

Объединение массивов
Здравствуйте, помогите решить задачу: Из двух двумерных массивов создать...

Объединение двух одномерных массивов в один
Доброго времени суок!Помогите объединить два массива: я написал код создания...

Найти произведения массивов. Произведение двух массивов описать как процедуру
Даны массивы A(5,5) B(5,5) C(5,5) D(5,5) F(5,5). Найти произведения массивов....

Решение задач на обработку одномерных массивов. Использование массивов в качестве параметров в подпрограммах
В массиве x(n) подсчитать количество положительных k1 и количество...

2
Puporev
Модератор
54676 / 42098 / 29067
Регистрация: 18.05.2008
Сообщений: 99,339
27.09.2010, 09:36 2
Лучший ответ Сообщение было отмечено velvet666 как решение

Решение

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
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Vvod(var v:mas;var x:byte;c:char);
var i:byte;
begin
writeln('Массив ',c);
repeat
write('Размер массива до ',nmax div 2,' =');
readln(x);
until x in [1..nmax div 2];
for i:=1 to x do
 begin
  v[i]:=random(20)-9;
  write(v[i]:3);
 end;
writeln;
writeln;
end;
var a,b,c:mas;
    na,nb,nc,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
Vvod(a,na,'A');
Vvod(b,nb,'B');
nc:=0;
{неотрицательные из массива А}
for i:=1 to na do
if a[i]>=0 then
 begin
  inc(nc);
  c[nc]:=a[i];
 end;
{неотрицательные из массива В}
for i:=1 to nb do
 if b[i]>=0 then
 begin
  inc(nc);
  c[nc]:=b[i];
 end;
{сортируем по убыванию}
for i:=1 to nc-1 do
for j:=i+1 to nc do
if c[i]<c[j] then
 begin
  x:=c[i];
  c[i]:=c[j];
  c[j]:=x;
 end;
{отрицательные из массва А в прямом порядке}
for i:=1 to na do
if a[i]<0 then
 begin
  inc(nc);
  c[nc]:=a[i];
 end;
{отрицательные из массва В в обратном порядке}
for i:=nb downto 1 do
if b[i]<0 then
 begin
  inc(nc);
  c[nc]:=b[i];
 end;
writeln('Объединенные массивы:');
for i:=1 to nc do
write(c[i]:3);
readln
end.
0
velvet666
0 / 0 / 0
Регистрация: 26.09.2010
Сообщений: 28
27.09.2010, 18:13  [ТС] 3
ого...спасиба...я канеш еще не проверяла...но за помощь спасиба..)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2010, 18:13

Объединение массивов
Задачка вот такая: &quot;Задача по теме &quot;массив&quot;. &quot;Объединение массивов&quot;....

Объединение массивов
Люди решите плз задачу. Даны 2 массива &quot;a&quot; и &quot;b&quot; размерами k и m, заполненные...

Объединение Массивов
Помогите написать программу (паскаль) пожалуйста : Заданы два одномерных...


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

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

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