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