|
Вопрос # 4 741/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
У меня есть текстовый файл, в котором 2 столбца с числами. между столбцами пробел. Подскажите пожалуйста, как можно сделать чтобы каждый столбец был в отдельном массиве? Заранее спасибо.
 |
Вопрос задал: Potemkin (статус: Посетитель)
Вопрос отправлен: 17 ноября 2010, 13:15
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Potemkin!
А если бы был один массив, то проблем считать не было бы?
код где то такой
var f:file;
d1, d2:integer;
a1, a2:array[1..1000] of integer;
k:integer;
begin
assignfile(f, 'filename.txt');
reset(f);
k := 1;
while not eof (f) do begin
readln(f, d1, d2); // прочитали
a1[k] := d1; a2[k] := d2; // записали куда нужно
k:= k+1; // увеличим индекс для записи.
if k > 1000 then break; // защита, что бы не переполнить массивы
end;
close(f);
end;
Если нужен динамический массив, то переделать не сложно.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 17 ноября 2010, 13:36
Оценка за ответ: 1
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 22 ноября 2010, 08:54; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 17 ноября 2010, 13:29 [#1]:
То есть, у тебя 2 динамических массива, которые ты хочешь заполнить числами из этих столбцов, да?
Выкладывай файл, посмотрим.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Potemkin (статус: Посетитель), 21 ноября 2010, 20:33 [#2]:
да, именно так.
|
|
|
Potemkin (статус: Посетитель), 21 ноября 2010, 20:42 [#3]:
куда отправить файл?
|
|
|
min@y™ (статус: Доктор наук), 22 ноября 2010, 08:54 [#4]:
Цитата (Potemkin):
куда отправить файл?
Выложи где-нибудь, например, на http://slil.ru
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
