Unit MyUnit;

Inteface

uses crt;
type 
trg=record
     x1,y1,x2,y2,x3,y3:real; //координаты
    end;

function prin(t:trg):boolean; {принадлежность треугольника кругу}

Implementation

function prin(t:trg):boolean;
begin
 prin:=((sqr(t.x1)+sqr(t.y1))<1)
   and ((sqr(t.x2)+sqr(t.y2))<1)
   and ((sqr(t.x3)+sqr(t.y3))<1)
end;

End.

program Osnova;

uses
  crt, Syschestvovanie_treygolnika, Ploshad, Perimetr;
  type 
trg=record
     x1,y1,x2,y2,x3,y3:real; 
      s, p: real;//площадь, периметр
    end;
var
  f1, f2: file of trg;
  z: trg;
  n, i, k, kl: integer;
  a, b: real;

begin
  clrscr;
  randomize;
  assign(f1, 'input');
  rewrite(f1);
  assign(f2, 'output');
  rewrite(f2);
  writeln('Введите число треугольников:');
  readln(n);
  for i := 1 to n do
  begin
    z.x1 := (-1.2 + 2.4) * random;
    z.y1 := (-1.2 + 2.4) * random;
    z.x2 := (-1.2 + 2.4) * random;
    z.y2 := (-1.2 + 2.4) * random;
    z.x3 := (-1.2 + 2.4) * random;
    z.y3 := (-1.2 + 2.4) * random;
    write(f1, z)
  end;
  writeln('Содержание файла F1');
  seek(f1, 0);
  k := 0;
  kl := 0;
  while not eof(f1) do
  begin
    read(f1, z);
    k := k + 1;
    writeln(k:2, ')   A (', z.x1:5:2, ' ', z.y1:5:2, ')   B (', z.x2:5:2, ' ', z.y2:5:2, ')'
                 '    C (', z.x3:5:2, ' ', z.y3:5:2, ')');
    if k mod 20 = 0 then
    begin
      writeLn('Press Enter');
      readln
    end;
    if prin(z) then
    begin
      kl := 1;
      z.s := plos(z);
      z.p := perm(z);
      write(f2, z);
    end;
  end;
  close(f1);
  if kl = 0 then
  begin
    writeLn('Нет треугольников, целиком лежащих в данном круге');
    close(f2);
    exit
  end;
  repeat
    writeln('Введите интервал для поиска a < b');
    readln(a, b);
  until a < b;
  seek(f2, 0);
  writeln('Содержание файла F2');
  k := 0;
  kl := 0;
  while not eof(f2) do
  begin
    read(f2, z);
    k := k + 1;
    writeln(k:2, ')   A (', z.x1:5:2, ' ', z.y1:5:2, ')   B (', z.x2:5:2, ' ', z.y2:5:2, ')'
                 '    C (', z.x3:5:2, ' ', z.y3:5:2, ')');  
    writeln( 'S = ', z.s:5:2, '   P = ', z.p:5:2);
    if k mod 20 = 0 then
    begin
      writeLn('Press Enter');
      readln
    end;
    if ((z.s >= a) and (z.s <= b)) or ((z.p >= a) and (z.p <= b)) then kl := kl + 1;
  end;
  writeln('Количество треугольников, у которых площадь или периметр');
  writeln('попадают в заданный интервал=', kl);
  close(f2);
end.

Unit syschestvovanie_treygolnika;

Interface

uses crt;
type 
trg=record
     x1,y1,x2,y2,x3,y3:real; //координаты
    end;

function prin(t:trg):boolean; {принадлежность треугольника кругу}

Implementation

function prin(t:trg):boolean;
begin
 prin:=((sqr(t.x1)+sqr(t.y1))<1)
   and ((sqr(t.x2)+sqr(t.y2))<1)
   and ((sqr(t.x3)+sqr(t.y3))<1)
end;

End.

unit Ploshad;

interface

uses  crt,syschestvovanie_treygolnika;
type 
trg=record
     x1,y1,x2,y2,x3,y3:real; 
      s, p: real;//площадь, периметр
    end;
function plos(t: trg): real;

implementation

function plos(t: trg): real;
begin
  plos := ((t.x1 - t.x3) * (t.y2 - t.y3) - (t.x2 - t.x3) * (t.y1 - t.y3)) / 2
end;
End.

unit Perimetr;

interface

uses
  crt,syschestvovanie_treygolnika;
  type 
  trg=record
     x1,y1,x2,y2,x3,y3:real; 
      s, p: real;//площадь, периметр
    end;
function perm(t: trg): real;
implementation

function perm(t: trg): real;
begin
  perm := sqrt(sqr(t.x1 - t.x2) + sqr(t.y1 - t.y2))
       + sqrt(sqr(t.x2 - t.x3) + sqr(t.y2 - t.y3))
       + sqrt(sqr(t.x3 - t.x1) + sqr(t.y3 - t.y1))
end;
End.

trg=record      
       x1,y1,x2,y2,x3,y3:real;        
       s, p: real; //площадь, периметр     
      end;