Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2017, 10:26   #1
RiffleShuffle
Новичок
Джуниор
 
Регистрация: 12.01.2017
Сообщений: 2
По умолчанию Pascal. Составить процедуру.

Помогите пожалуйста, кто сможет. Задание: "Составить процедуру, вычисляющую суммы элементов главной диагонали квадратной матрицы. Применить данную процедуру для заданных матриц c(n,n) и p(m,m)." Программа в целом работает, но нужно её разбить на 2 процедуры: процедуру вычисления и процедуру вывода, не знаю как это сделать.
Изображения
Тип файла: png Screenshot_1.png (19.1 Кб, 130 просмотров)
RiffleShuffle вне форума Ответить с цитированием
Старый 12.01.2017, 11:04   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

во-первых, нужно выложить на форум код программы, а не картинку.

во-вторых, если вы написали программу с процедурой vvod - где заполняете матрицу случайными числами, выводите её на экран, вычисляете сумму и выводите результат, то что Вам мешает выделить нужные участки кода в отдельные процедуры?

в-третьих, вычисление суммы организовано КРАЙНЕ неэффективно.
посмотрите, Вы же перебираете все N*N элементы, хотя нужно перебрать всего N элементов.

т.е. вместо двух вложенных циклов for и проверки if i=j then
достаточно:
Код:
leps := 0;
for i:=1 to s do leps := leps + l[i,i];
Serge_Bliznykov вне форума Ответить с цитированием
Старый 12.01.2017, 11:48   #3
RiffleShuffle
Новичок
Джуниор
 
Регистрация: 12.01.2017
Сообщений: 2
По умолчанию

Понял, спасибо. разбить на отдельные участки разбил, но вот в ответе нули появились
RiffleShuffle вне форума Ответить с цитированием
Старый 12.01.2017, 12:03   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от RiffleShuffle Посмотреть сообщение
но вот в ответе нули появились
это плохо.
вероятно, ошибки в коде у Вас.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить процедуру замены в паскаль katyawapka Помощь студентам 4 24.01.2014 09:12
MS-Exel, VBA. составить процедуру-функцию построения матрицы. Elly_Dorian Помощь студентам 0 14.05.2013 15:25
Pascal.Используя процедуру sort_file ,составить программу сортировки текстового файла Артур Артурович Помощь студентам 3 13.01.2013 22:22
составить подпрограмму-процедуру для вычисления матрицы bananklubnika Помощь студентам 1 30.05.2010 23:22
Процедуру и функцию помогите составить плиз Oleg36 Помощь студентам 2 26.12.2008 11:27