Работа с типизированными файлами

[Макс Башкинов]

Привет форумчане, помогите решить задачу по программированию на Delphi.
Текст задачи:

Прямая на плоскости задается уравнением ax+by+c=0, где a и b одновременно не равны нулю. Будем рассматривать только прямые, для которых коэффициенты a,b,c - целые числа. Пусть f - файл, содержащий коэффициенты нескольких прямых (не менее трех).
Переписать из файла f в файл g коэффициенты тех прямых, которые:
a) параллельны первой из прямых, заданной в файле f;
b) указаны в пункте а, но дополнительно требуется, чтобы все прямые были различны;

Не могу понять, каким образом записать в файл коэффициенты нескольких прямых, чтобы нормально считать их, а потом еще и сравнивать. Надеюсь хоть немного поможете, или дадите советы как организовать, а то мыслей уже нету.

[NewLamer&Programer]

хоть язык бы указал для начала...

на делфи:

Vat StrList: TstringList;
begin
StrList:= TStringList.Create(self);
StrList:= 'x = ' + x + '; y = ' + y;
StrList.SaveToFile('C:\');
StrList.Free;
end;

[Макс Башкинов]

хоть язык бы указал для начала...

угадал, делфи
но если а1*в2 = а2*в1 - прямые 1 и 2 параллельны.
имелось ввиду коэффициенты a,b,c.
а как их потом считать надо же и проверить.

п.с а что значит self

[Макс Башкинов]

а если у меня тип record, то это сработает?

StrList:= 'x = ' + x + '; y = ' + y;

[NewLamer&Programer]

Сообщение от Макс Башкинов

а если у меня тип record, то это сработает?

StrList:= 'x = ' + x + '; y = ' + y;

record это не тип , а структура...

[Макс Башкинов]

Сообщение от NewLamer&Programer

record это не тип , а структура...

ну это уже я так назвал.
суть не в том

List:= 'a = ' + inttostr(a) + '; b = ' + inttostr(b);
переменные целого типа же, то Incompatible types: 'TStringList' and 'String'

[NewLamer&Programer]

List[i]:= ...;

TStringList это массив, соответственно присваивать нужно конкретному элементу

[Макс Башкинов]

TStringList это массив значит..

Сообщение от NewLamer&Programer

List[i]:= ...;

TStringList это массив, соответственно присваивать нужно конкретному элементу

так все равно типы не совпадают

[NewLamer&Programer]

давай код тогда, а то телепатия сбоит по ночам

[Serge_Bliznykov]

Макс Башкинов
примерно так:

type MyLineKoef = record 
  a,b,c : longint
end;

function isLinesParallel( L1, L2 : MyLineKoef) : boolean;
begin
  if ЛинииПаралелльны 
    then isLinesParallel := true
    else isLinesParallel := False;
end;

var
   f, g : file of MyLineKoef;
   FirstLine, OneLine : MyLineKoef;
begin
   AssingFile(f, 'MyLines.dat');
   Reset(f);
   if eof(f) then begin
       {  Ошибка! Нет данных в файле! }
        Halt(100); {стоп-машина!}
   end;

   Read(f, FirstLine ); {прочитали коэффициенты 1-й линии}

   AssingFile(g, 'NewLines.dat');
   Rewrite(g);

   while Not Eof(f) do begin
       Read(f, OneLine);
       if isLinesParallel(FirstLine, OneLine) then Write(f, OneLine);
   end;

   Close(f);
   Close(g); 
end.