Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 20
1

Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места, а элементы таблицы B – на четные

23.05.2011, 14:46. Показов 3426. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста с решением.

Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места, а элементы таблицы B – на четные.

Спасибо большое

помогите кто может пожалуйста!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2011, 14:46
Ответы с готовыми решениями:

Таблицы целых чисел. Сформировать новую таблицу, в которую поместить сначала элементы той, где меньше нулей
Даны две таблицы целых чисел А и В из n элементов.Сформировать новую таблицу С, в которую поместить...

Заменить все четные элементы таблицы уменьшив их на 10
в одномерном массиве порядка N , заполненном числами с клавиатуры выполнить обработку элементов:...

Увеличить на 1 все элементы таблицы = 5 или 4 и заменить остальные их суммой со след. элементом таблицы, оставляя последний без изменений
Пожалуйста, помогите решить задачу!!! Линейный массив. Дана таблица, состоящая из 10 элементов :...

Слейте две линейные таблицы А и В в новую таблицу С
Слейте две линейные таблицы А и В в новую таблицу С, поставив элементы таблицы А на нечетные места,...

3
Путешественник вселенной
189 / 156 / 119
Регистрация: 01.03.2011
Сообщений: 664
25.05.2011, 15:32 2
Если я что нибудь в чем нибудь понимаю то программа должна работать так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var a,b:array[1..15] of integer; c:array[1..31] of integer; i:byte;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random(10)+1;
Write('a[',i,']=',a[i],' ');
b[i]:=random(30)-20;
Write('b[',i,']=',b[i],' ');
end;
Writeln;
for i:=1 to 31 do
begin
if i mod 2<>0
then c[i]:=a[i]
else c[i]:=b[i];
Write('c[',i,']=',c[i],' ');
end;
readln;
end.
1
3 / 4 / 0
Регистрация: 18.11.2010
Сообщений: 126
29.06.2011, 09:36 3
Спасибо! пригодилась задачка))))

Добавлено через 38 секунд
Цитата Сообщение от Просто лис Посмотреть сообщение
Если я что нибудь в чем нибудь понимаю то программа должна работать так:
спс что решил.... а можно блок-схему?)))

Добавлено через 17 минут
спс)) уже блок схема не нада))

помоги написать пояснения к кажой строчке... ну begin,end не нада)))
0
Путешественник вселенной
189 / 156 / 119
Регистрация: 01.03.2011
Сообщений: 664
29.06.2011, 11:24 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var a,b:array[1..15] of integer; c:array[1..31] of integer; i:byte;
begin
randomize;     {Ïîäêëþ÷àåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë}
for i:=1 to 15 do {Çàïóñê öèêëà ñ ñ÷åò÷èêîì îò 1 äî 15}
begin
a[i]:=random(10)+1; {Çàïîëíåíèå ìàññèâà À ñëó÷àéíûìè ÷èñëàìè îò 1 äî 10}
Write('a[',i,']=',a[i],' '); {Âûâîä i-ãî ýëåìåíòà ìàññèâà À}
b[i]:=random(30)-20; {Çàïîëíåíèå ìàññèâà B ñëó÷àéíûìè ÷èñëàìè îò -20 äî 9}
Write('b[',i,']=',b[i],' ');  {Âûâîä i-ãî ýëåìåíòà ìàññèâà B}
end;
Writeln;  {Ïåðåõîä íà íîâóþ ñòðîêó}
for i:=1 to 30 do  {Çàïóñê öèêëà ñ ñ÷åò÷èêîì îò 1 äî 30}
begin
if i mod 2<>0 {Óñëîâèå íà íå÷åòíîñòü}
then c[i]:=a[i] {Åñëè íîìåð íå÷åòíûé òî ìàññèâó Ñ ïðèñâàåâàåì ýëåìåíò ìàññèâà À}
else c[i]:=b[i];  {Èíà÷å ïðèñâàåâàåì ýëåìåíò ìàññèâà Â}
Write('c[',i,']=',c[i],' '); {Âûâîäèì i-é ýëåìåíò ìàññèâà Ñ}
end;
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2011, 11:24

Объединить две линейные таблицы новую таблицу, расположив элементы согласно условию
Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места,...

Записать положительные элементы таблицы А в таблицу В, а отрицательные элементы таблицы А - в табл С
Не могу понять, что я делаю не так, почему не заполняются 2я и 3я таблицы... unit Zad48;...

Даны таблицы А[1..n] ,В[1..m]. Построить таблицу С в которой сначала размещаются все элементы А, затем все элементы таблицы В
кто сможет решите: Даны таблицы А ,В. Построить таблицу С в которой сначала размещаются все...

Как сравнить две таблицы и совпадающие элементы перенести в другую таблицу
Помогите пожалуйста! ни как не могу сообразить! Необходимо написать макрос который сравнивает две...


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

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

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