Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

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

 
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;


 
trubin ©   (2007-03-12 22:14) [3]

CloseFile(f) забыл.



Страницы: 1 вся ветка

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
15-1173150683
Slider007
2007-03-06 06:11
2007.04.01
С днем рождения ! 6 марта


2-1173521890
ctudent
2007-03-10 13:18
2007.04.01
Банальный вопрос!


15-1173308821
mr 666
2007-03-08 02:07
2007.04.01
Где в WinXP


2-1173152733
Интересующийся
2007-03-06 06:45
2007.04.01
Два вопроса про форму


2-1173549871
Washington
2007-03-10 21:04
2007.04.01
Создание объектов