Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
2 / 2 / 2
Регистрация: 11.12.2011
Сообщений: 21

нужна помощь в решение матрицы (сессия)

23.12.2011, 19:06. Показов 895. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Не пойму как вычислять задачи с условиями , заданными в "строчках" , "столбцах".
Пример условий задачи: ( нужен принцип построения задач, в билетах много типичных просто , нужно понять разницу как делать чтоб в строках , и как в столбцах).
1)В матрице а[9,6] найти произведение положительных элементов во всех нечетных строках. если таких элементов нет, выдать соответствующее сообщение на экран.
2)В матрице а[9,6] найти произведение положительных элементов во всех нечетных столбцах. если таких элементов нет, выдать соответствующее сообщение на экран.

буду очень благодарен . Спасибо заранее )
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.12.2011, 19:06
Ответы с готовыми решениями:

решение программ, нужна помощь. СРОЧНО!
3. Текущее показание электронных часов: m ч (0 ≤ m ≤ 23) п мин (0≤ n ≤ 59) kc (0≤ k≤59). Какое время будут показывать часы через p ч q...

Решение уравнений методом Лобачевского - нужна помощь
Необходимо написать программу, находящую корни уравнения методом Лобачевского. Возможно, у кого-то в наработках есть что-то вроде...

Нужна помощь с выводом матрицы...
Нужно из двух массивов по 5 элементов сформировать матрицу ( 5 столбцов и 2 строки). Думаю я сделал всё правильно, но при...

8
--\.founder./--
 Аватар для WebMax 2.0
565 / 565 / 392
Регистрация: 20.10.2011
Сообщений: 867
23.12.2011, 19:19
Цитата Сообщение от frost61 Посмотреть сообщение
1)В матрице а[9,6] найти произведение положительных элементов во всех нечетных строках. если таких элементов нет, выдать соответствующее сообщение на экран.
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
uses crt;
const m=9; n=6;
var a:array [1..m,1..n] of integer;
i,j,p:integer;
 
begin
   Writeln('Матрица: ');
   For i:=1 to m do
      begin
      p:=1;
      For j:=1 to n do
        begin
        randomize;
        a[i,j]:=random(51)-25;
        write(a[i,j]:4);
        end;
      writeln;
      end;
   writeln;
   For i:=1 to m do
     begin
     p:=1;
     For j:=1 to n do
        begin
        if odd(i) and(a[i,j]>0) then p:=p*a[i,j];
        end;
     if odd(i) and (p>1) then writeln('Произведение полож. эт-тов в ',i,'-й строке = ',p)
     else
     if odd(i) then Writeln('В ',i,'-й строке нет положительных эл-тов.');
     end;
end.
1
2 / 2 / 2
Регистрация: 11.12.2011
Сообщений: 21
23.12.2011, 19:58  [ТС]
Цитата Сообщение от WebMax 2.0 Посмотреть сообщение
Сообщение от frost61
1)В матрице а[9,6] найти произведение положительных элементов во всех нечетных строках. если таких элементов нет, выдать соответствующее сообщение на экран.
поясни пожалуйста каким действием ты фильтруешь только нечетные строки.

Добавлено через 35 минут
А именно конкретно
Цитата Сообщение от WebMax 2.0 Посмотреть сообщение
if odd(i) and(a[i,j]>0) then p:=p*a[i,j];
можно попросить пояснить .
odd это с четными, как сделать эту же задачу , только с другим условием

Цитата Сообщение от frost61 Посмотреть сообщение
2)В матрице а[9,6] найти произведение положительных элементов во всех нечетных столбцах. если таких элементов нет, выдать соответствующее сообщение на экран.
...пожалуйста
1
--\.founder./--
 Аватар для WebMax 2.0
565 / 565 / 392
Регистрация: 20.10.2011
Сообщений: 867
23.12.2011, 21:57
Цитата Сообщение от frost61 Посмотреть сообщение
odd это с четными, как сделать эту же задачу , только с другим условием
Функция Odd(x) возвращает значение True , если число нечетное , иначе False.


Цитата Сообщение от frost61 Посмотреть сообщение
2)В матрице а[9,6] найти произведение положительных элементов во всех нечетных столбцах. если таких элементов нет, выдать соответствующее сообщение на экран.
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
uses crt;
const m=9; n=6;
var a:array [1..m,1..n] of integer;
i,j,p:integer;
 
begin
   Writeln('Матрица: ');
   For i:=1 to m do
      begin
      p:=1;
      For j:=1 to n do
        begin
        randomize;
        a[i,j]:=random(51)-25;
        write(a[i,j]:4);
        end;
      writeln;
      end;
   writeln;
   For i:=1 to n do
     begin
     p:=1;
     For j:=1 to m do
        begin
        if odd(i) and(a[j,i]>0) then p:=p*a[j,i];
        end;
     if odd(i) and (p>1) then writeln('Произведение полож. эл-тов в ',i,'-м столбце = ',p)
     else
     if odd(i) then Writeln('В ',i,'-м столбце нет положительных эл-тов.');
     end;
end.
0
2 / 2 / 2
Регистрация: 11.12.2011
Сообщений: 21
23.12.2011, 22:32  [ТС]
не вижу принципиальной разницы ... то-есть решение и для строк и для столбцов одинаковое??
0
--\.founder./--
 Аватар для WebMax 2.0
565 / 565 / 392
Регистрация: 20.10.2011
Сообщений: 867
23.12.2011, 22:44
Найди 4 отличия

Pascal
1
2
3
4
5
6
7
8
9
10
11
For i:=1 to m do
     begin
     p:=1;
     For j:=1 to n do
        begin
        if odd(i) and(a[i,j]>0) then p:=p*a[i,j];
        end;
     if odd(i) and (p>1) then writeln('Произведение полож. эт-тов в ',i,'-й строке = ',p)
     else
     if odd(i) then Writeln('В ',i,'-й строке нет положительных эл-тов.');
     end;
Pascal
1
2
3
4
5
6
7
8
9
10
11
For i:=1 to n do
     begin
     p:=1;
     For j:=1 to m do
        begin
        if odd(i) and(a[j,i]>0) then p:=p*a[j,i];
        end;
     if odd(i) and (p>1) then writeln('Произведение полож. эл-тов в ',i,'-м столбце = ',p)
     else
     if odd(i) then Writeln('В ',i,'-м столбце нет положительных эл-тов.');
     end;
1
2 / 2 / 2
Регистрация: 11.12.2011
Сообщений: 21
24.12.2011, 00:18  [ТС]
Цитата Сообщение от WebMax 2.0 Посмотреть сообщение
p:=1;
* * *For j:=1 to n do
тоесть что указываем во втором цикле , то и будет определятся, здесь n, 6 столбцы .
если правильно понял , то спасибо )

Добавлено через 50 секунд
помоги Найти сумму k первых членов последовательности ) последняя осталась )
0
56 / 56 / 14
Регистрация: 02.03.2010
Сообщений: 407
24.12.2011, 08:09
Цитата Сообщение от frost61 Посмотреть сообщение
тоесть что указываем во втором цикле , то и будет определятся, здесь n, 6 столбцы .
если правильно понял , то спасибо )

Добавлено через 50 секунд
помоги Найти сумму k первых членов последовательности ) последняя осталась )
Что ты понял? Тебе структуру массива надо понять,а не " что указывается...".
Матрица характеризуется двумя величинами (двумерная если) это "строка" и "столбец".
При операции допустим присвоения массиву (допустим массив задан как a:array.....) это будет выглядеть так a[строка,столбец]:=<какое либо число,символ(соответствующего массиву типа)>.
Естественно, что если мы имеем цикл типа
Pascal
1
2
3
for i:=1 to n do
for j:=1 to n do
a[i,j]:=....
То мы и будем работать сначала со всеми элементами первой строки, затем второй, третей, i-й.
Если изменить последовательность переменных в скобках на такую:
Pascal
1
2
3
for i:=1 to n do
for j:=1 to n do
a[j,i]:=....
То и будем брать первый столбец и проходиться по всем его элементам, потом второй столбец, потом третий, i-й.
Думаю должно быть понятно.
в данном случае можно было обойтись и без odd, просто запись так выглядит совсем немного короче и солиднее, но если ты не бум-бум и преподы об этом знают, то советую писать так как понятно тебе дабы не было лишних вопросов потом.
1
2 / 2 / 2
Регистрация: 11.12.2011
Сообщений: 21
24.12.2011, 09:44  [ТС]
Цитата Сообщение от Sunman Посмотреть сообщение
Что ты понял? Тебе структуру массива надо понять,а не " что указывается...".
Матрица характеризуется двумя величинами (двумерная если) это "строка" и "столбец".
При операции допустим присвоения массиву (допустим массив задан как a:array.....) это будет выглядеть так a[строка,столбец]:=<какое либо число,символ(соответствующего массиву типа)>.
Естественно, что если мы имеем цикл типа
Код Pascal
1
2
3
4
for i:=1 to n do
for j:=1 to n do
a[i,j]:=....
То мы и будем работать сначала со всеми элементами первой строки, затем второй, третей, i-й.
Если изменить последовательность переменных в скобках на такую:
Код Pascal
1
2
3
4
for i:=1 to n do
for j:=1 to n do
a[j,i]:=....
То и будем брать первый столбец и проходиться по всем его элементам, потом второй столбец, потом третий, i-й.
Думаю должно быть понятно.
в данном случае можно было обойтись и без odd, просто запись так выглядит совсем немного короче и солиднее, но если ты не бум-бум и преподы об этом знают, то советую писать так как понятно тебе дабы не было лишних вопросов потом.
спасибо за пояснение ) но я еще по предыдущему методами проб и ошибок понял ) Экзамен зачтен на 5 , отстрелялся)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.12.2011, 09:44
Помогаю со студенческими работами здесь

нужна помощь в составлении программы(матрицы)
Даны матрицы: A(N,K), B(K,N). для каждой матрицы найти сумму положительных и сумму отрицательных элементов и все положительные элименты...

Нужна помощь по курсовой работе. Матрицы.
Нужна помощь, по курсовой работе, матрицы 1. Найти наименьший, по абсолютной величине, элемент главной диагонали матрица s(n, n ) 2...

Матрицы, срочна нужна помощь, пожалуйста
Ребята помогите решить задачу на C до сдачи осталось 50 мин. Пожалуйста В данной квадратной целочисленной матрице 6*6 указать индексы...

Нужна помощь в построении симметричной матрицы 9x9...
Необходимо создать квадратную матрицу целых чисел размером 9х9. По условию необходимо заполнить матрицу случайными числами. Отобразить...

Массив: Нужна помощь в реализации кода для ввода симметричной матрицы.
Здравствуйте! Есть программа, которая позволяет пользователю вводить матрицу смежности графа, а так же редактировать её. Так же,...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru