Чтение информации из файла на Turbo Pascal

← →
KME © (2002-12-24 23:02) [0]

ТРЕБУЕТСЯ РЕАЛИЗОВАТЬ СЛЕДУЮЩУЮ ЗАДАЧУ НА TURBO PASCAL
Содержимое text.txt:

6
1 3
3 1
1 1
3 3
5 2
7 1
--------
Число 6 - это последующее число указаний. Требуется грамотно прочитать всю эту информацию из файла, и разбить ее по массивам.
То есть, если рассматривать вторую линию файла (после шестерки).
Например:
A1[1] := 1;
A2[1] := 3; и т.д.
Проблема заключается в том, что я не знаю как правильно читать данные из файла на Turbo Pascal. Ну просто очень нужно. Пожалуйста, помогите!

← →
Юрий Зотов © (2002-12-24 23:24) [1]

const
Nmax = 10;
var
i, N: integer;
A1, A2: array[1..Nmax] of integer;
F: Text;
begin
Assign(F, "MyData.txt");
Reset(F);
ReadLn(F, N);
for i := 1 to N do ReadLn(F, A1[i], A2[i]);
Close(F);
...

А вообще-то, это азы для детишек. Не знать просто стыдно. Тем более человеку, у которого хобби - " Профессиональное программирование на Borland Delphi, написание программ на заказ в кратчайшие сроки".

Только не надо говорить, что Delphi и Turbo Pascal - разные вещи. Этот код и на Delphi выглядит практически так же (отличия - в трех словах, причем очевидные).

← →
drin © (2002-12-25 02:23) [2]

Могу выслать исходник своего модуля с функциями для чтения/записи в фаил одно/двух-мерных масивов.
В КПИ за него освободили от зачёта.

← →
Добавил (2002-12-25 02:48) [3]

Чтение информации из файла на Turbo Pascal Найти похожие ветки