Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2017, 19:44   #1
anasttb
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 32
По умолчанию Вывести содержимое файла в массив.

Дан файл:
Привет
18.12
Hello
______
Занести содержимое в массив и вывести массив.
Не могу найти ошибку..
Код:
var
  f: text;
  arr: array [0..4, 0..4] of string;
  i, j: integer;
begin
  Assign(f, 'data.txt');
  Reset(f);
  i := 0;
  while not Eof(f) do begin
    j := 0;
    while not Eoln(f) do begin
      Read(f, arr[i, j]);
      Inc(j);
    end;
    ReadLn(f);
    Inc(i);
  end;
  write( arr[i,j]);
  close(f);
end.

Последний раз редактировалось Arigato; 28.04.2017 в 20:04.
anasttb вне форума Ответить с цитированием
Старый 29.04.2017, 15:50   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Ошибка в одном: если хотим рассмотреть, как строки разместились в массиве, нужно организовать цикл.

Код:
program text_fil ; 
var
  f: text;
  arr: array [0..4, 0..4] of string;
  i, j: integer;
begin
  Assign(f, 'data.txt');
  Reset(f);
  i := 0;
  while not Eof(f) do
   begin
     j := 0;
     while not Eoln(f) do
       begin
         Read(f, arr[i, j]);
         Inc(j);
       end;
     ReadLn(f);
     Inc(i);
   end;
  Close(f);

  for i := 0 to 4 do
    begin
      for j := 0 to 4 do Write( arr[i,j]);
      Writeln ;
    end;
end.
И если в файле строки находятся в таком виде,
0-0 0-1 0-2 0-3 0-4
1-0 1-1 1-2 1-3 1-4
2-0 2-1 2-2 2-3 2-4
3-0 3-1 3-2 3-3 3-4
4-0 4-1 4-2 4-3 4-4
и внутри каждой из строк-данных нет пробела (они рассматриваются как разделители), то все будет тип-топ.

И как всегда - тишина.

Последний раз редактировалось digitalis; 30.04.2017 в 10:37.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вывести содержимое файла в richTextBox santafer Visual C++ 2 07.03.2016 10:13
как вывести содержимое Excel файла в DBGrid Оля2394 БД в Delphi 3 25.05.2015 07:55
Ввести исходный массив из текстового файла. Вывести его в естественном виде. yana33311 Паскаль, Turbo Pascal, PascalABC.NET 2 17.04.2011 11:56
Помогите вывести массив из файла на С + + Olya_Fox Помощь студентам 4 22.10.2009 18:19
Как вывести содержимое файла на экран в паскале? Fatality Помощь студентам 8 23.04.2009 13:48