Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.12.2014
Сообщений: 3

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

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

Студворк — интернет-сервис помощи студентам
Задание
Соедините две матрицы A и B в новую матрицы C,поставив элементы матрицы A на нечетные места, а элементы матрицы B на четные.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.12.2014, 18:28
Ответы с готовыми решениями:

Соедините две матрицы A и B в новую матрицу C
Доброго времени суток форумчане! Помогите с заданием соедините две матрицы A и В в новую матрицу C, поставив элементы матрицы A на...

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

Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением элементов каждой строки первой матрицы на наибольш
Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением элементов каждой строки первой матрицы ...

2
0 / 0 / 1
Регистрация: 17.09.2012
Сообщений: 28
24.12.2014, 23:44
Лучший ответ Сообщение было отмечено 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
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
25.12.2014, 11:25
Можно сократить.
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.12.2014, 11:25
Помогаю со студенческими работами здесь

1)Даны две действительные квадратные матрицы порядка n. Получить новую матрицу : А) умножение элементов каждой строки первой матрицы на наибольшее из
1)Даны две действительные квадратные матрицы порядка n. Получить новую матрицу : А) умножение элементов каждой строки первой матрицы на...

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

Даны две действительные квадратные матрицы порядка n, получить новую матрицу
Помогите пожалуйста реализовать задание! Задача: Даны две действительные квадратные матрицы порядка n. Получить новую матрицу путем...

Соедините две матрицы A и B в новую матрицу C, поставив строки A на нечетные места, а строки матрицы B на четные
Здравствуйте! Задача такая : &quot;Соедините две матрицы A и B в новую матрицу C, поставив строки A на нечетные места, а строки матрицы B на...

2) Даны две действительные квадратные матрицы порядка n. Получить новую матрицу прибавлением к элементам каждо
2) Даны две действительные квадратные матрицы порядка n. Получить новую матрицу прибавлением к элементам каждого столбца первой матрицы...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru