Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Anna © (2007-03-12 21:17:00)
помогите пожалуйста, только начинаю программировать

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

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

trubin (2007-03-12 22:14:00) [1]
CloseFile(f) забыл.

trubin (2007-03-12 22:12:00) [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;

trubin (2007-03-12 21:44:00) [3]
Как отделены друг от друга числа M и N содержащиеся в первой строке? Пробелом?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »