Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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



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

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

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

во-вторых, если вы написали программу с процедурой 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, 12:48   #3
RiffleShuffle
Новичок
 
Регистрация: 12.01.2017
Сообщений: 2
Репутация: 10
По умолчанию

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

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить процедуру замены в паскаль 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 12:27




11:59.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru