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

Соединить две матрицы A и B в новую матрицу C

24.12.2014, 18:28. Просмотров 841. Ответов 2
Метки нет (Все метки)

Задание
Соедините две матрицы A и B в новую матрицы C,поставив элементы матрицы A на нечетные места, а элементы матрицы B на четные.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2014, 18:28
Ответы с готовыми решениями:

Получить новую матрицу из произведений минимумов строк одной матрицы и максимумов столбцов другой матрицы
Пусть даны две вещественные матрицы порядка n. Получите новую мат- рицу...

Из заданной матрицы сформировать новую матрицу
Анализ выполнения и отладка программ обработки массивов Необходимо по этой...

Построить новую матрицу, изменяя каждый столбец первой матрицы
с помощью процедур выполнить следующую программу: есть массив А, нужно...

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
Дана действительная матрица размера n*m, в которой не все элементы равны нулю....

Получить новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент
Дана действительная матрица размера n × m, в которой не все элементы равны...

2
serj-rap
0 / 0 / 1
Регистрация: 17.09.2012
Сообщений: 28
24.12.2014, 23:44 2
Лучший ответ Сообщение было отмечено KarinaChumarina как решение

Решение

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
var a,b:array[1..10] of integer;
c:array[1..20] of integer;
i,v,l:integer;
begin
 
writeln('vvedite elementy massiva a');
for i:=1 to 10 do
readln(a[i]);
 
 
writeln('vvedite elementy massiva b');
for i:=1 to 10 do
readln(b[i]);
 
 
v:=1;
l:=1;
for i:=1 to 20 do
begin
if i mod 2 <> 0 then
begin
c[i]:=a[v];
v:=v+1;
end
else if i mod 2 = 0 then
begin
c[i]:=b[l];
l:=l+1;
end;
end;
 
writeln('otvet');
for i:=1 to 20 do
writeln(c[i]);
 
readln();
end.
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
25.12.2014, 11:25 3
Можно сократить.
3 строка: v,l - удалить
16-30 строки заменить на:
Pascal
1
2
3
for i:=1 to 20 do
  If Odd(i) then C[i]:=A[(i div 2)+1]
  else C[i]:=B[i div 2];
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2014, 11:25

Получить новую матрицу путем умножения всех элементов данной матрицы на ее наименьший по модулю элемент
Задана квадратная матрица A размером N x N (N&lt;=10), состоящая из...

Получить новую матрицу путем деления всех элементов исходной матрицы на ее наибольший по модулю элемент
Задан двумерный массив А. Получить новую матрицу путем деления всех элементов...

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
Задание: написать программу согласно заданию. Дана целочисленная матрица...


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

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

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