Контрольная работа: Анализ входного файла программы и вывод результатов в выходной файл

razX,razY,OsnX,OsnY,nomervershiny: integer;

iosi,xosi,xx: integer;

sumploshadi,hh:real;

l1,l2:integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); // Процедурасозданияформы

var

stemp: string;

bb:boolean;

begin

Vv.Lines.LoadFromFile('input.txt'); // Загружаемкоординатысфайла

Memo.Lines.LoadFromFile('TOSHONADO.txt'); // Загружаемкоординатысфайла

n:= StrToInt(Vv.Lines[0]); //Cчитываем количество треугольников

s:=Vv.Lines[0];

Vv.Lines.Delete(0);

{Заполняемкоординатыв TMemo1}

For i:=0 to n-1 do begin

oskolok[1].X:=StrToInt(Vv.Lines[i*6]);

oskolok[1].Y:=StrToInt(Vv.Lines[i*6+1]);

oskolok[2].X:=StrToInt(Vv.Lines[i*6+2]);

oskolok[2].Y:=StrToInt(Vv.Lines[i*6+3]);

oskolok[3].X:=StrToInt(Vv.Lines[i*6+4]);

oskolok[3].Y:=StrToInt(Vv.Lines[i*6+5]);

{Находим сумму площадей всех введеных треугольников}

sumploshadi:=sumploshadi+Abs((1/2)*((oskolok[2].Y-

oskolok[1].Y)*oskolok[3].X+

(oskolok[1].X-oskolok[2].X)*oskolok[3].Y+