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

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

18.06.2013, 12:58. Показов 2199. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Ноутбук Альфария
kumehtar 24.08.2026
Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?
Мастера простых решений
DevAlt 23.08.2026
В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки
DevAlt 23.08.2026
Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины.
zorxor 22.08.2026
Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом
anaschu 21.08.2026
Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире.
kumehtar 19.08.2026
Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .
Когда логика программы не спасает от человеческих ошибок
Maks 18.08.2026
В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит
kumehtar 17.08.2026
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru