Как рассчитать все параметры треугольника?

Для расчета основных параметров треугольника (таких как: периметр, площадь, длины сторон, углы, координаты, радиусы вписанной и описанной окружностей, а также координаты их центров) можно воспользоваться следующим классом TTriangle. Все формулы, используемые в коде, а также пример работы класса в практической реализации см. на странице "Расчет треугольника"

 
TTriangle = class
  private
    fx1, fy1 : Double;
    fx2, fy2 : Double;
    fx3, fy3 : Double;
    function GetDistAB: Double;
    function GetDistAC: Double;
    function GetDistBC: Double;
    function GetPerimeter: Double;
    function GetArea: Double;
    function GetAngleA: Double;
    function GetAngleB: Double;
    function GetAngleC: Double;
    function GetRadiusIn: Double;
    function GetRadiusOut: Double;
    function GetCenterOut: TFPoint;
    function GetCenterIn: TFPoint;
    function PointsInLine: Boolean;
  public
    // Задание треугольника координатами его вершин
    constructor Create( ax1,ay1, ax2,ay2, ax3,ay3: Double); overload;
    // Задание треугольника длинами его сторон
    constructor Create( a, b, c: Double); overload;
    //функция нахождения длины отрезка
    function Dist( ax1, ay1, ax2, ay2: Double): Double;   
  published
    // координаты первой вершины A
    property X1: Double read fx1 write fx1;
    property Y1: Double read fy1 write fy1;
    // координаты второй вершины B
    property X2: Double read fx2 write fx2;
    property Y2: Double read fy2 write fy2;
    // координаты третьей вершины С
    property X3: Double read fx3 write fx3;
    property Y3: Double read fy3 write fy3;
    property DistAB: Double read GetDistAB; // Длина AB
    property DistBC: Double read GetDistBC; // Длина BC
    property DistAC: Double read GetDistAC; // Длина AC
    property Perimeter: Double read GetPerimeter; // Периметр
    property Area: Double read GetArea;  // Площадь
    property AngleA: Double read GetAngleA; // Угол A
    property AngleB: Double read GetAngleB; // Угол B
    property AngleC: Double read GetAngleC; // Угол C
    // Радиус вписанной окружности
    property RadiusIn: Double read GetRadiusIn;
    // Радиус описанной окружности 
    property RadiusOut: Double read GetRadiusOut;
    // Центр описанной окружности
    property CenterOut: TFPoint read  GetCenterOut;
    // Центр вписанной окружности
    property CenterIn: TFPoint read  GetCenterIn;
  end;
 
{ TTriangle }
 
constructor TTriangle.Create(ax1, ay1, ax2, ay2, ax3, ay3: Double);
begin
  fx1 := ax1;
  fy1 := ay1;
  fx2 := ax2;
  fy2 := ay2;
  fx3 := ax3;
  fy3 := ay3;
end;
 
 
constructor TTriangle.Create(a, b, c: Double);
Var cosa: Double;
begin
  fx1 := 0;
  fy1 := 0;
  fx2 := 0;
  fy2 := c;
  cosa := (b*b+c*c - a*a)/(2*b*c);
  fy3 := b * cosa;
  fx3 := b * sin(arccos(cosA));
end;
 
 
function TTriangle.Dist(ax1, ay1, ax2, ay2: Double): Double;
begin
 Result := sqrt((ax2-ax1)*(ax2-ax1)+(ay2-ay1)*(ay2-ay1));
end;
 
 
function TTriangle.GetAngleA: Double;
Var a, r: Double;
begin
 a := (fx2-fx1)*(fx3-fx1)+(fy2-fy1)*(fy3-fy1);
 r := a/DistAB/DistAC;
 Result := arccos(r);
end;
 
 
function TTriangle.GetAngleB: Double;
Var a, r: Double;
begin
 a := (fx1-x2)*(fx3-fx2)+(fy1-fy2)*(fy3-fy2);
 r := a/DistAB/DistBC;
 Result := arccos(r);
end;
 
 
function TTriangle.GetAngleC: Double;
Var a, r: Double;
begin
 a := (fx2-x3)*(fx1-fx3)+(fy2-fy3)*(fy1-fy3);
 r := a/DistBC/DistAC;
 Result := arccos(r);
end;
 
 
function TTriangle.GetArea: Double;
begin
 Result := sqrt((Perimeter/2*(Perimeter/2-DistAB)*
                (Perimeter/2-DistBC)*(Perimeter/2-DistAC)));
end;
 
 
function TTriangle.GetCenterIn: TFPoint;
Var
  Lc, Lb, La             : Double;
  cx, cy, bx, by, ax, ay : Double; 
  K1, K2                 : Double;
begin
  Lb := DistBC/DistAB;
  Lc := DistBC/DistAC;
 
  cx := (fx2+Lc*fx1)/(Lc+1);
  cy := (fy2+Lc*fy1)/(Lc+1);
 
  bx := (fx3+Lb*fx1)/(Lb+1);
  by := (fy3+Lb*fy1)/(Lb+1);
 
  if cx <> fx3 then K1 := (cy-fy3)/(cx-fx3) else K1 := 1e+96;
  if bx <> fx2 then K2 := (by-fy2)/(bx-fx2) else K2 := 1e+96;
 
  Result.x := (K1*fx3-K2*fx2+(fy2-fy3))/(K1-K2);
  if Result.x <> fx3 then
    Result.y := K1*(Result.x-fx3)+fy3
  else
    Result.y := K2*(Result.x-fx2)+fy2;
end;
 
 
function TTriangle.GetCenterOut: TFPoint;
Var ma, mb : Double;  //  коэффициенты наклона линий
begin
  if fx2 <> fx1 then ma := (fy2-fy1)/(fx2-fx1) else ma := 1e95;
  if fx3 <> fx2 then mb := (fy3-fy2)/(fx3-fx2) else mb := 1e95;
  Result.x := (ma*mb*(fy1-fy3) + mb*(fx1+fx2) - 
               ma*(fx2+fx3))/(2*(mb-ma));
  if ma <> 0 then
    Result.y :=  -1/ma*(Result.x - (fx1+fx2)/2) + (fy1+fy2)/2
  else
    Result.y :=  -1/mb*(Result.x - (fx2+fx3)/2) + (fy2+fy3)/2;
end;
 
 
function TTriangle.GetDistAB: Double;
begin
  Result := Dist ( fx1, fy1, fx2, fy2);
end;
 
 
function TTriangle.GetDistAC: Double;
begin
  Result := Dist ( fx1, fy1, fx3, fy3);
end;
 
 
function TTriangle.GetDistBC: Double;
begin
  Result := Dist ( fx2, fy2, fx3, fy3);
end;
 
 
function TTriangle.GetPerimeter: Double;
begin
  Result := DistAB + DistBC + DistAC;
end;
 
 
function TTriangle.GetRadiusIn: Double;
begin
  if not PointsInLine then
    Result := 2 * Area / Perimeter;
end;
 
 
function TTriangle.GetRadiusOut: Double;
begin
  if not PointsInLine then
    Result := (DistAB*DistBC*DistAC)/(4*Area);
end;
 
 
function TTriangle.PointsInLine: Boolean;
Var a : double;
begin
  Result := false;
  a := fx1*fy2+fx2*fy3+fx3*fy1-fx3*fy2-fx2*fy1-fx1*fy3;
  if abs(a - 1e-20) < 1e-19 then
    Result := true;
end;

Пример использования класса для задачи "Как найти площадь треугольника, заданного длинами сторон a=10, b=12, c=11?"

procedure TForm1.Button1Click(Sender: TObject);
Var T: TTriangle;
begin
   T := TTriangle.Create( 10, 12, 11);
   showmessage( FloatToStr( T.Area));
end;

Пример использования класса для задачи "Как найти периметр треугольника, заданного координатами вершин A(0,0), B(1,0), C(1,1)?"

procedure TForm1.Button1Click(Sender: TObject);
Var T: TTriangle;
begin
   T := TTriangle.Create( 0, 0, 1, 0, 1, 1);
   showmessage(FloatToStr( T.Perimeter));
end;

Добавить комментарий  |  29439 просмотров  | Tags: Алгоритмы

Отправил Henrytum Чт, 04/16/2020 - 22:19

https://equinecryogenicservice.net/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://pershingllc.us/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://mysticauction.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://wood-tek.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://mylotterypick.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://cisnerosinvestmentsgroup.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://michellesandlin.net/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://www.silversteer.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://sriaadhilakshmi.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://jacobdelafon.biz/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://www.why-pay-more.biz/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://www.frameitaly.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://brisemarine-martinique.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://yhunter.ru/away.php?url=https://viagrawithoutdoctorspres.com/
https://lisadwrites.net/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://fourseasonsawnings.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://magmodules.froglinks.org/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com&quot
https://trueskinhealth.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://virtualfactory.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://minercorp.info/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com

Отправил DonaldMease Чт, 04/16/2020 - 21:09

does cialis lower blood pressure and cialis without a doctor's prescription and canada price on cialis and cialis maximum dosage and lowest cialis prices and coupon for cialis by manufacturer and lowest cialis prices and 30ml liquid cialis and cost of cialis 20mg tablets and warnings for cialis

Отправил JerryNoM Чт, 04/16/2020 - 19:58

https://digitallandrun.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://wavetechnicalservices.net/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://www.amateurpornplaza.com/cgi-bin/at3/out.cgi?id=46&tag=toplist&trade=https://cialisxtl.com
https://healthywaybread.co/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://kentuckybet.net/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://drivingcustomershappy.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://atacarnet.support/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://crisisready.net/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://fsmods.ru/go?https://cialisxtl.com
https://aktautorg.com/redirect?url=https://cialisxtl.com
https://katzdevelopment.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://eastmarkalliance.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://drinkbettercoffees.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://arcoplast-bio.info/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://emergencyroomwait.com/__media__/js/netsoltrademark.php?d=cialisxtl.com

Отправил morhailia Чт, 04/16/2020 - 19:30

viagra professional 100 mg pills or cheap generic viagra/cialis or cheap cialis tablets

Отправил Chriswaime Чт, 04/16/2020 - 18:13

cialis professional sale or best place order viagra or viagra sale uk cheap or cheap levitra prices generic vicodin xanax or cheap viagra canadian pharmacy or buy cialis las vegas or cialis walmart or buy generic viagra online overnight or order viagra online legal or buy cialis au

Отправил Ramonblisp Чт, 04/16/2020 - 16:08

viagra for sale and side effects for viagra and canada viagra and cheapest viagra and viagra substitute over counter and buy viagra online and viagra vs cialis and side effects for viagra and how long does it take for viagra to work and viagra without doctor prescription and buy viagra and how to take viagra for maximum effect and viagra prescriptions over internet and buy viagra online and generic viagra available

Отправил Henrytum Чт, 04/16/2020 - 15:45

https://virgincelebrationcruise.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://bladderbalance.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://chempetitive.info/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://www.parkviewx.com/template/scripts/sharer.php?url=https://viagrawithoutdoctorspres.com
https://chanri.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://changing-the-game.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://ww17.memoryonthemove.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://longacre-theatre.org/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://talkingcanhelp.ca/~common/code/adclick.php?id=2&url=https://viagrawithoutdoctorspres.com
https://epbupay.net/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://worlddatainteractive.net/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://www.consolidatedfinancial.us/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://cascapedia.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://www.freecamsly.com/external_link/?url=https://viagrawithoutdoctorspres.com
https://santaclarahostels.info/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://seattletimesstore.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://polkpower.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://baixarsomusica.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://creativesonfire.com/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com
https://2002china.net/__media__/js/netsoltrademark.php?d=viagrawithoutdoctorspres.com

Отправил Neriderma Чт, 04/16/2020 - 15:10

https://vclph24.com buy viagra real https://tadmedz.com how to order generic viagra online https://canadianpharmacystorm.com

Отправил DonaldMease Чт, 04/16/2020 - 14:27

cost of cialis and cialis samples request and free cialis medication for providers and cialis maximum dosage and cialis pills for sale and cialis 20mg and cialis patent expiration and cialis erection penis and show cialis working and daily use of cialis

Отправил JerryNoM Чт, 04/16/2020 - 13:53

https://imirzian.net/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://adunare.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://1001project.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://www.tccd.biz/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://dbaland.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://pivotalvc.net/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://berkshirehathawaync.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://biblicalgifts.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://hitchcock-newyork.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://mycroak.ca/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://efespilsener.org/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://batteryrestore.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://solidaritynetathens.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://patax.com/__media__/js/netsoltrademark.php?d=cialisxtl.com
https://calvertedu.com/__media__/js/netsoltrademark.php?d=cialisxtl.com

Отправил Chriswaime Чт, 04/16/2020 - 13:41

[url=https://wwlawfirm.biz/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]buy cialis retail[/url] or [url=https://syntheticlubricants.co/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]prices of cialis[/url] or [url=https://icmjournal.esicm.org/icmexit.aspx?url=https://canadianpharmacystorm.com]buy cialis england[/url] or [url=https://multigametables.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]can you buy cialis over counter mexico[/url] or [url=https://am-eq.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]can i cut cialis pills[/url] or [url=https://nachytano.cz/redirect.php?url=canadianpharmacystorm.com]how to buy cheap viagra[/url] or [url=https://tvfina.org/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]buy viagra in mexico[/url] or [url=https://lawrenceryckman.org/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]cialis discount coupon[/url] or [url=https://handymanspecial.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]liquid cialis for sale[/url] or [url=https://duilaworangecounty.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]viagra for sale cheap uk[/url]

Отправил Chriswaime Чт, 04/16/2020 - 09:14

[url=https://spincount-dot-yamm-track.appspot.com/Redirect?ukey=1njurRYSKnl90mGGFR1zPpnCa9YyQTBlTOBbd5aQnNcE-411949162&key=YAMMID-51787534&link=https://canadianpharmacystorm.com]viagra sale vancouver[/url] or [url=https://pabloescobar.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]buy viagra over counter uk[/url] or [url=https://alliantbusiness.org/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]buy viagra vancouver bc[/url] or [url=https://coordcare.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]cialis pills toronto[/url] or [url=https://www.ethiopianairports.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]original cialis pills[/url] or [url=https://ccsecunm.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]viagra online buying[/url] or [url=https://anolis.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]viagra sale liverpool[/url] or [url=https://benknuth.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]cialis canada discount[/url] or [url=https://prayers4peace.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]cheap viagra usa[/url] or [url=https://d-watch-jewellery.com/__media__/js/netsoltrademark.php?d=canadianpharmacystorm.com]viagra sale amazon[/url]

Отправил unfoleror Ср, 04/15/2020 - 01:46

cialis sale sydney and generic viagra india and cheap viagra buy uk

Отправил Boappyzep Ср, 04/15/2020 - 01:38

https://vclph24.com buy cialis bangkok https://tadmedz.com do not order mexican viagra https://canpharmb3.com

Отправил morhailia Ср, 04/15/2020 - 01:05

cheap cialis prescription or viagra online order canada or where can you buy viagra yahoo

Отправил DavidBeilt Втр, 04/14/2020 - 23:27

buy levitra online in canada and buy viagra without rx and cialis for sale in australia

Отправил Fifapyday Втр, 04/14/2020 - 21:57

https://vclph24.com ; https://cialisfavdrug.com ; https://canpharmb3.com

Отправил Lloydnuaks Втр, 04/14/2020 - 21:47

https://vclph24.com ; https://cialisfavdrug.com ; https://canpharmb3.com

Отправил Neriderma Втр, 04/14/2020 - 20:19

https://viagrawithoutdoctorspres.com can you really buy cialis online https://tadmedz.com how to order viagra in australia https://canadianpharmacystorm.com

Отправил Fifapyday Втр, 04/14/2020 - 19:59

https://vclph24.com cheap viagra online usa https://cialisxtl.com viagra sale online australia https://canadianpharmacystorm.com

Отправил unfoleror Втр, 04/14/2020 - 18:14

buy cialis discount online and discount cialis no prescription and can you buy cialis over counter us

Отправил morhailia Втр, 04/14/2020 - 17:00

cheap viagra kamagra or real cialis pills or cheap viagra alternative

Отправил DavidBeilt Втр, 04/14/2020 - 15:38

discount canadian pharmacy cialis and buy viagra hong kong and cheap viagra vancouver

Отправил Boappyzep Втр, 04/14/2020 - 15:36

https://viagrawithoutdoctorspres.com is it illegal to order viagra online https://tadmedz.com levitra buy canada https://canadianpharmacystorm.com

Отправил Lloydnuaks Втр, 04/14/2020 - 14:48

https://viagrawithoutdoctorspres.com ; https://cialisfavdrug.com ; https://canpharmb3.com

Отправил Fifapyday Втр, 04/14/2020 - 13:38

https://viagrawithoutdoctorspres.com ; https://cialisfavdrug.com ; https://onlinepharmacyero.com

Отправил Fifapyday Втр, 04/14/2020 - 11:56

https://vclph24.com cialis order uk https://tadmedz.com buy generic levitra from canada https://canpharmb3.com

Отправил Neriderma Втр, 04/14/2020 - 11:20

https://viagrawithoutdoctorspres.com how to buy generic viagra https://cialisfavdrug.com real viagra sale uk https://onlinepharmacyero.com

Отправил unfoleror Втр, 04/14/2020 - 09:51

order generic viagra no prescription and can you buy viagra in dubai and order cialis viagra

Отправил morhailia Втр, 04/14/2020 - 09:02

where to buy cialis online or cialis tablets for sale australia or best pharmacy to buy cialis

Отправил DavidBeilt Втр, 04/14/2020 - 08:08

buy cialis online with american express and discount cialis professional and viagra for sale next day delivery

Отправил Lloydnuaks Втр, 04/14/2020 - 08:03

https://viagrawithoutdoctorspres.com ; https://tadmedz.com ; https://onlinepharmacyero.com

Отправил Fifapyday Втр, 04/14/2020 - 05:57

https://viagrawithoutdoctorspres.com ; https://tadmedz.com ; https://onlinepharmacyero.com

Отправил Boappyzep Втр, 04/14/2020 - 05:04

https://vclph24.com levitra on sale https://tadmedz.com buy cialis tadalafil https://canpharmb3.com

Отправил Fifapyday Втр, 04/14/2020 - 04:48

https://viagrawithoutdoctorspres.com cheapest price for levitra https://cialisfavdrug.com cheap viagra safe https://canpharmb3.com

Отправил Neriderma Втр, 04/14/2020 - 02:34

https://vclph24.com cialis super active+ 20mg pills https://cialisxtl.com viagra sale new zealand https://canpharmb3.com

Отправил unfoleror Втр, 04/14/2020 - 01:24

how to order cialis online safely and can buy cialis uk and cheap viagra quick delivery

Отправил Lloydnuaks Втр, 04/14/2020 - 01:22

https://vclph24.com ; https://tadmedz.com ; https://canpharmb3.com

Отправил DavidBeilt Втр, 04/14/2020 - 01:22

cheap meds viagra and daily cialis discount and cheapest levitra online

Отправил morhailia Втр, 04/14/2020 - 01:08

printable cialis coupon or buy cialis from europe or generic viagra cheap shipping

Отправил Fifapyday Пнд, 04/13/2020 - 22:37

https://viagrawithoutdoctorspres.com ; https://cialisxtl.com ; https://canpharmb3.com

Отправил Fifapyday Пнд, 04/13/2020 - 21:38

https://viagrawithoutdoctorspres.com how to buy viagra canada https://cialisfavdrug.com cialis online best place buy https://canadianpharmacystorm.com

Отправил Boappyzep Пнд, 04/13/2020 - 18:35

https://vclph24.com discount generic levitra https://cialisxtl.com discount name brand cialis https://canpharmb3.com

Отправил Lloydnuaks Пнд, 04/13/2020 - 18:24

https://vclph24.com ; https://cialisxtl.com ; https://onlinepharmacyero.com

Отправил DavidBeilt Пнд, 04/13/2020 - 18:21

buy viagra canada online and cheap legal viagra and buy cheapest cialis online

Отправил Neriderma Пнд, 04/13/2020 - 17:50

https://viagrawithoutdoctorspres.com viagra nz buy online https://cialisfavdrug.com buy levitra online cheap https://canpharmb3.com

Отправил unfoleror Пнд, 04/13/2020 - 17:27

buy cialis from australia and cheap viagra europe and buy cialis australia

Отправил morhailia Пнд, 04/13/2020 - 16:58

cheapest cialis or cialis buy pattaya or cheap viagra soft

Отправил Fifapyday Пнд, 04/13/2020 - 15:04

https://vclph24.com ; https://cialisfavdrug.com ; https://onlinepharmacyero.com

Отправил Fifapyday Пнд, 04/13/2020 - 14:26

https://vclph24.com best site to order viagra https://cialisxtl.com order viagra without rx online https://canpharmb3.com

Последние комментарии

  • Гостевая книга
    vitality ed pills cure for ed or natural ed medications treatment for erectile dysfunction or how to get amoxicillin can i buy amoxicillin over the counter or prednisone 20 mg tablets coupon prednisone 5mg coupon or vacuum pump for ed ed pills for sale
  • Гостевая книга
    erectile dysfunction medication comparison of ed drugs ed cures that work otc ed pills https://canadianpharmacyvikky.com real viagra without a doctor prescription usa ed aids buy prescription drugs online without herbal remedies for ed
  • Гостевая книга
    ed medications over the counter canadian pharmacy vikky best ed drugs new erectile dysfunction treatment https://canadianpharmacyvikky.com ed pills online

Счетчики

  
Copyright © 2010 - 2021 Обучалки. All Rights Reserved.