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

Найти сумму элементов k — го столбца матрицы, симметричных относительно центра столбца

18.06.2013, 12:58. Показов 2163. Ответов 22
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
ребят помогите в ABC Pascal
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.06.2013, 12:58
Ответы с готовыми решениями:

Найти номера двух симметричных относительно центра массива элементов, произведение которых максимально
в паскаль найти номера двух симметричных относительно центра массива элементов, произведение которых максимально

Для каждого столбца матрицы с чётным номером вычислить сумму квадратов элементов этого столбца
. Создать матрицу 4х4. Для каждого столбца с четным номером вычислить сумму квадратов элементов этого столбца. Вывести результат. ...

Процедура: найти сумму для столбца матрицы и поделить ее на максимальный по модулю элемент столбца
Всем привет! Написал программу по процедурам, когда работает, когда не очень. Иногда деление на 0, иногда не выводит полностью исходные...

22
0 / 0 / 0
Регистрация: 18.06.2013
Сообщений: 13
18.06.2013, 14:32  [ТС]
Студворк — интернет-сервис помощи студентам
Taftis, ну хоть на этом спс
0
SausageFlat
 Аватар для Striker
242 / 221 / 154
Регистрация: 19.08.2012
Сообщений: 499
Записей в блоге: 1
18.06.2013, 15:08
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Re1337, держите...
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
const
  nmax = 10;
 
var
  i, j, k, n, s: integer;
  mas: array[1..nmax, 1..nmax] of integer;
 
begin
  for i := 1 to nmax do
    for j := 1 to nmax do
      mas[i, j] := random(9) + 1;
  
  for i := 1 to nmax do
  begin
    for j := 1 to nmax do
      write(mas[i, j]:4);
    writeln;
  end;
  readln(k);
  n := nmax;
  
  for i := 1 to nmax div 2 do
  begin
    if(mas [i, k] = mas[n, k]) then
      s := s + mas[i, k] + mas[n, k];
    dec(n);
  end;
  
  
  Writeln;
  Writeln(s);
end.
0
0 / 0 / 0
Регистрация: 18.06.2013
Сообщений: 13
18.06.2013, 21:06  [ТС]
Striker, спасибо бро очень выручил извини то что не сразу написал не смог зайти если за эту прогу препод завтра скажет что то то я его убью;ddd
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.06.2013, 21:06

Найти сумму элементов первой строки матрицы и сумму элементов первого столбца транспонированной к ней матрицы А'
' найти сумму элементов первой строки матрицы А(15х15) и сумму элементов первого столбца транспонированной к ней матрицы А'. Матрицу А...

Получить суммы элементов симметричных относительно центра последовательности
Дано дійсні числа а1,а2,...,а2n. Одержати a1+а2n, а2+а2n-1,...,аn+аn+1 Официальными языками форума являются русский и английский

Подсчитать сумму произведений цифр числа, расположенных на симметричных относительно центра позициях
Дано натуральное число не, не превосходящее 2 000 000 000. Подсчитать сумму произведений цифр этого числа, расположенных на симметричных...

Подсчитать суммы пар элементов массива, симметричных относительно центра
Еще не освоил материал, а уже нужна практика. Ребят, кто знает и может помочь с данным? Вывод на консоль всех результатов подсчета...

Найти сумму элементов первого столбца без одного последнего элемента, сумму элементов второго столбца без двух последних...
Здравствуйте, форумчане! У меня вот такая вот задачка: Задан двумерный массив. Найти сумму элементов первого столбца без одного...


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

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
Новые блоги и статьи
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным?
anaschu 12.07.2026
Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .
сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию.
anaschu 12.07.2026
Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .
Сукцессия 26. Мат модель создана.
anaschu 12.07.2026
Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .
Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста".
Hrethgir 12.07.2026
Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок
anaschu 12.07.2026
# От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .
сукцессия 24. Промежуточное общее описание модели
anaschu 12.07.2026
Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .
сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры.
anaschu 12.07.2026
Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .
сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато
anaschu 11.07.2026
Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru