 Процедура нахождения следа матрицы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Павел |
 15.05.2004 8:34
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 23 Пол: Мужской Репутация:  0   |
Если пишу в основной программе нахождение следа матрицы то все работает, но с процедурой что-то не получается, может кто посмотрит что не так?
Код вставлять не буду - слишком длинный, я файл прикрепил. Прикрепленные файлы 
KURS2.PAS ( 10.45 килобайт )
Кол-во скачиваний: 255 |
   |
 
|
| AlaRic |
15.05.2004 8:56
Сообщение
#2
|
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Напиши что конкретно не получается!
|
|
|
|
| Павел |
15.05.2004 9:03
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 23 Пол: Мужской Репутация: 0 |
Вызываю процедуру, она ошибок не показывает но и не подсчитывает, выводит ноль.
Вот как она выглядит: Код procedure sled (a, b: integer; l: real; var c: massiv); var i, j: integer; begin l:=0; for i:=1 to a do l:=l+c[i,i]; end; {sled} Вот так вызываю процедуру: Код sled (a1, b2, l12, c12); writeln('Sled matrici c12 =', l12:4:0); Что тут не правильно? |
|
|
|
| APAL |
15.05.2004 10:20
Сообщение
#4
|
 Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Я так понял "l:real" - возвращаемый параметр. Может VAR поставить перед ним?
А перед "c: massiv" убрать. Сообщение отредактировано: APAL - 15.05.2004 10:21 -------------------- |
|
|
|
| Павел |
15.05.2004 12:08
Сообщение
#5
|
|
Новичок Группа: Пользователи Сообщений: 23 Пол: Мужской Репутация: 0 |
Большое спасибо, все работает!
|
|
|
|
| APAL |
15.05.2004 15:38
Сообщение
#6
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Не за что! Заходи еще!
 -------------------- |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.07.2025 14:00 |