1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| ProtasSoft |
Сообщение
#1
|
|
Новичок ![]() Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
Задана большая матрица вещественных чисел размером 1000 на 2000 в текстовом файле.
Необходимо произвести попарную обработку обработку ее строк, т.е. для каждой пары СТРОКАi и СТРОКАj строк необходимо вычислить функцию от элементов этих строк, например, Ain - элементы СТРОКИi и Bjn - элементы СТРОКИj. Из результатов вычисления функции F(Ai1,...,Ai1000;Bj1,...,Bj2000) сформировать новую матрицу и записать в новый файл. Подскажите как мне действовать. Насколько я понимаю с большими массивами Borland Pascal не работает. |
![]() ![]() |
| klem4 |
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата где-то в ней ошибки. 1) для функции funky не определены размеры прочтенного массива 2) непонятная рекурсия в той-же ф-и (вызываешь ф-ю в ней самой с совершенно непонятными параметрами) 3) синтаксические ошибки Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
ProtasSoft Обработка прямоугольных матриц 12.08.2005 21:18
kent
Используй динамическую матрицу. 12.08.2005 21:27
volvo
Borland Pascal - нет. Зато Free Pascal прекрасно … 12.08.2005 21:32
ProtasSoft У меня нет Free Pascal. Если поделитесь дистрибути… 12.08.2005 21:51
volvo klem4,
Если бы тебе предложили тот компилятор, ко… 13.08.2005 15:01
volvo Последнюю версию (2.0.0) можно взять на официально… 12.08.2005 22:02
Malice
Совсем не обязательно считывать сразу весь масси… 12.08.2005 23:05
volvo
... изобретения велосипеда. А зачем? Если на 32-б… 12.08.2005 23:21
Malice Согласен, не подумай, что я против FP, но вдруг эт… 12.08.2005 23:27
klem4 А вот мое мнение что FPC тут не выход, так как нав… 13.08.2005 14:05
ProtasSoft FPC я скачал и установил.
Вопрос следующий: подск… 15.08.2005 16:08
klem4 Не очень ясен вопрос... могу предположить что тебе… 15.08.2005 16:09
volvo ProtasSoft,
не путай такое (Паскаль не использует … 15.08.2005 19:19
ProtasSoft procedure EnterMatrixFromFile (var Matr: Matrix);
… 15.08.2005 20:32
Malice
j всегда равен 1 ? Поставь j=1 до цикла While. 15.08.2005 20:57
klem4 у тебя файл текстовый и информация в нем записана … 15.08.2005 20:55
klem4 примерно это должно выглядеть вот так :
{$N… 15.08.2005 21:36
volvo klem4, смысл читать содержимое, как строку? Внимат… 15.08.2005 22:44
Malice
iy тоже, имхо, сбрасывать надо.. 15.08.2005 23:38
ProtasSoft Вот этот код работает
program ReadMatrixFromFile;… 16.08.2005 13:25
volvo Да, :rolleyes: тогда iy := 1 между первым и вторы… 15.08.2005 23:48
volvo ProtasSoft, ТОЛЬКО приведенный тобой код работает?… 16.08.2005 13:36
ProtasSoft Если что-то не так сказал прошу прощения.
Далее на… 16.08.2005 14:28
klem4 Я убрал все синтаксические ошибки, и кое-что добав… 16.08.2005 15:29
volvo klem4, как ты думаешь, что будет в массиве Matr по… 16.08.2005 16:52
klem4 Да, это я проглядел :yes: ... ProtasSoft в заголо… 16.08.2005 16:54
ProtasSoft Коллеги, вот что у меня получилось с учетом Ваших … 16.08.2005 19:48
volvo
Насколько я вижу, эта программа и не должна работ… 16.08.2005 20:35
ProtasSoft Изменил , все равно не работает. :unsure: 16.08.2005 20:51
volvo Значит, так... Поменяй следующее:
1. procedure Pr… 16.08.2005 21:05
ProtasSoft Я извиняюсь, вроде заработало. 16.08.2005 21:25
ProtasSoft Коллеги, вот что у меня получилось
program Matrix… 17.08.2005 15:59
ProtasSoft Коллеги, пробовал ниже приведенную программку на м… 18.08.2005 14:52
volvo Заархивируй свой исходник вместе с файлом данных и… 18.08.2005 15:05
volvo ProtasSoft, та программа, которую ты привел, завер… 18.08.2005 15:39
ProtasSoft Огромное спасибо. Заработало!
:flowers:
Сообщ… 18.08.2005 16:18
ProtasSoft Снабдил программу Гаммой-функцией и процедурой инт… 19.08.2005 20:55
volvo Если ты про проблему с компиляцией функции Simps, … 19.08.2005 21:13
ProtasSoft После запуска проги выскакивает системная ошибка.… 19.08.2005 21:34
volvo const
NMAX = 20;
MMAX = 20;
увеличивать не пр… 19.08.2005 21:43
volvo А вот и причина возникающей ошибки (RunTime Error … 19.08.2005 22:08
ProtasSoft Можно это так обойти
function Gamma(x: extended):… 19.08.2005 22:33
klem4 Так к слову : в паскале есть встроенная константа … 19.08.2005 22:46
volvo
:yes: ProtasSoft, ты будешь смеяться, но и функц… 19.08.2005 22:50![]() ![]() |
|
Текстовая версия | 6.11.2025 3:38 |