прочитать из файла

← →
Anna (2007-03-12 21:17) [0]

помогите пожалуйста, только начинаю программировать

Формат входных данных: первая строка файла содержит M и N - число точек в первом и втором множестве. Каждая из последующих M строк – координаты x и y очередной точки первого множества, записанные через один или несколько пробелов. Наконец, следующие N строк содержат информацию о точках второго множества в том же формате

как мне прочитать входные данные в два массива mas1 и mas2??

← →
trubin © (2007-03-12 21:44) [1]

Как отделены друг от друга числа M и N содержащиеся в первой строке? Пробелом?

← →
trubin © (2007-03-12 22:12) [2]

Что-то типа ниже указанного:

var
mas1, mas2: array of TPoint;

procedure ParseStr(Str: string; FirstDig, SecondDig: Integer);
var
i: Integer;
begin
Str:= Trim(Str);
i:= Pos(" ", Str);
FirstDig:= StrToInt(Copy(Str, 1, i-1));
SecondDig:= StrToInt(Trim(Copy(Str, i, MaxInt)));
end;

procedure MakeMassive(FileName: string);
var
f: TextFile;
i, M, N, x, y: Integer;
s: string;
begin
AssignFile(f, FileName);
Reset(f);
Readln(f, s);
ParseStr(s, M, N);
SetLength(mas1, M);
SetLength(mas2, N);

for i:= 0 to M-1 do
begin
Readln(f, s);
ParseStr(s, x, y);
mas1[i].x:= x;
mas1[i].y:= y;
end;

for i:= 0 to N-1 do
begin
Readln(f, s);
ParseStr(s, x, y);
mas2[i].x:= x;
mas2[i].y:= y;
end;
end;

CloseFile(f) забыл.

прочитать из файла Найти похожие ветки