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

объединение массивов - Turbo Pascal

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


http://www.cyberforum.ru/turbo-pascal/thread299926.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2010, 22:32
Я подобрал для вас темы с готовыми решениями и ответами на вопрос объединение массивов (Turbo Pascal):

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

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

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

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

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

2
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
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
Привет! Вот еще темы с решениями:

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

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

Объединение массивов
Заданы два одномерных массива различных размеров. Объединить их в один массив,...

Объединение двух массивов без повторяющихся элементов
1)Даны два динамических массива. Размерность задается пользователем. Нужно...


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

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

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