Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.81/153: Рейтинг темы: голосов - 153, средняя оценка - 4.81
1 / 1 / 0
Регистрация: 28.10.2009
Сообщений: 20

Чтение массива из файла.

28.10.2009, 22:43. Показов 31907. Ответов 29
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, подскажите алгоритм чтения из текстового файла двумерного массива(матрицы).
Причём так, чтобы при считывании элементов из внешнего файла, составить новый массив, который в последующем можно будет обрабатывать в программе.

то есть если в файле такой массив:
14 23
25 11

То программа должна считать его так, чтобы:
Mas[1,1]=14
Mas[1,2]=23
Mas[2,1]=25
Mas[2,2]=11
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.10.2009, 22:43
Ответы с готовыми решениями:

Чтение массива из файла
Есть текстовый файл. Выглядит он вот так: 5 3 3 4 5 7 1 2 3 8 9 Нужно прочитать массив из 3 строки. Из 2-ой у меня получается: ...

Чтение массива из файла
На плоскости задано десять точек. Найдите квадрат максимальной площади с вершинами в заданных точках. Программа должна считать выходые...

Запись - чтение двумерного массива в файл - из файла
Ребят, помогите пожалуйста к задаче https://www.cyberforum.ru/pascal/thread100714.html написать две процедуры записи массива в файл...

29
Почетный модератор
 Аватар для Puporev
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
29.10.2009, 08:59
Лучший ответ Сообщение было отмечено как решение

Решение

Студворк — интернет-сервис помощи студентам
Inadequate, Вот здесь что считаем?
Pascal
1
2
3
4
5
while not EOF(f) do
  begin
    read(f,ch);
    inc(strok)//Это не строки, а количество элементов в матрицу
  end;
Надо уж было допитсать как у mamedovvms,

Добавлено через 1 минуту
А вообще на вопрос автора в первом посте был дан правильный ответ во втором посте. А потом автора понесло...
3
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
29.10.2009, 09:03
Цитата Сообщение от Puporev Посмотреть сообщение
Inadequate, Вот здесь что считаем?
Pascal
1
2
3
4
5
while not EOF(f) do
 begin
 read(f,ch);
 inc(strok)//Это не строки, а количество элементов в матрицу
 end;
Надо уж было допитсать как у mamedovvms,
ну насколько мне известно матрица mxn означает что у нее m строчек на n столбцов...
переменная типа strok:integer а значит и подразумевает она их количество...
там все ровно...
А вообще на вопрос автора в первом посте был дан правильный ответ во втором посте. А потом автора понесло...
не спорю ответом на тот вопрос который он задал является пост #2
1
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
29.10.2009, 09:08
Цитата Сообщение от Inadequate Посмотреть сообщение
ну насколько мне известно матрица mxn означает что у нее m строчек на n столбцов...
переменная типа strok:integer а значит и подразумевает она их количество...
там все ровно...
может запустишь и проверишь, чему оно у тебя будет равно, то что ты подразумеваешь и то что делает задача бывает что результат получается разный
2
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
29.10.2009, 09:26
2mamedovvms, запустил все как и предполагалось работает и считает....

Добавлено через 1 минуту
хотя сейчас попробую для разных посчитать...
1
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
29.10.2009, 09:44
да не может у тебя вот этот код считать количество строк, что ты не говори
Pascal
1
2
3
4
5
while not EOF(f) do
 begin
 read(f,ch);
 inc(strok)//Это не строки, а количество элементов в матрицу
 end;
он у тебя считает колличество элементов в матрице
2
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
29.10.2009, 10:06
Лучший ответ Сообщение было отмечено как решение

Решение

2mamedovvms, 2Puporev, да ребят впредь буду проверять даже то что думаю сто пудов правильно... но никто из нас не написал правильный код... так что не обольщаемся... он будет выглядеть вот так и это 100 процентный вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses
  crt;
var
  strok,stolb,ch:integer;
  f:text;
begin
  clrscr;
  strok:=0;
  stolb:=0;
  assign(f,'input.txt');
  reset(f);
  {ñ÷èòûâàåì êîëè÷åñòâî ñòðîê}
  while not EOF(f) do
  begin
    readln(f,ch);
    inc(strok)
  end;
  close(f);
  reset(f);
  {ñ÷èòûâàåì êîëè÷åñòâî ñòîëáöîâ}
  while not EOLn(f) do
  begin
    read(f,ch);
    inc(stolb)
  end;
  writeln(strok,' ',stolb);
  close(f)
end.
Добавлено через 14 минут
тут вся фишка в том этом:
Pascal
1
2
3
4
5
6
...
  end;
  close(f);
  reset(f);
  {считываем количество столбцов}
...
без этого считать будет неверно!
3
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
29.10.2009, 10:14
Лучший ответ Сообщение было отмечено как решение

Решение

тут вся фишка в том этом:
Код Pascal

1
2
3
4
5
6



...
end;
close(f);
reset(f);
{считываем количество столбцов}
...

без этого считать будет неверно!
ну вообще то это само собой разумеется

Добавлено через 3 минуты
может надо было еще и все типы переменных написать. а может еще и за человека решить задачу его? а что неправильного в #13
4
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
29.10.2009, 10:23
я не гордый я этого не знал...
2mamedovvms, я конечно pдесь относительно недавно, но понял что тут более грамотные люди решают чтобы помочь менее грамотным... у вас не было этого написанно... откуда мне и всем кто будет читать эту тему знать кто и что себе подоазумевает...

Не по теме:

да и Puporev которого я считаю весьма не глупым человеком тоже написал что будет закрывать файл после того как посчитает и n и m...


ну и в конце концов, черт возьми в результате всего этого я стал чуть умнее...
2mamedovvms,Puporev, ребята thx
2
1 / 1 / 0
Регистрация: 28.10.2009
Сообщений: 20
29.10.2009, 16:27  [ТС]
Ура!

S2dent, Inadequate, Puporev, mamedovvms, спасибо за оказанную помощь!
0
0 / 0 / 0
Регистрация: 11.10.2009
Сообщений: 17
08.05.2010, 19:22
А как вивести ету матрицу?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.05.2010, 19:22

Как осуществлять чтение массива из текстового файла?
подскажите

Чтение массива из файла
Одномерный массив считывается из файла исходных данных in.txt, а затем без изменений записывается в файл результатов out.txt . Конкретно...

Чтение текстового файла и заполнение массива символами из него
Добра всем! Такая проблема возникла , так как не силен в Паскале: Есть текстовый файл ,который заполнен текстом следующим образом - ...

Чтение из файла массива.
Я никак не могу написать программу для чтения с файла строк и записывания их в массив типа "string". Turbo Pascal 7.0. И...

Чтение одномерного массива из текстового файла
В текстовом файле file3.txt находится последовательность целых чисел в виде одномерного массива. Как считать этот массив из файла, чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
30
Ответ Создать тему
Новые блоги и статьи
Мастера простых решений
DevAlt 23.08.2026
В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки
DevAlt 23.08.2026
Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины.
zorxor 22.08.2026
Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом
anaschu 21.08.2026
Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире.
kumehtar 19.08.2026
Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .
Когда логика программы не спасает от человеческих ошибок
Maks 18.08.2026
В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит
kumehtar 17.08.2026
Мысли в слух
kumehtar 17.08.2026
Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru