Отладить рекурсию - C++ Builder - Ответ 6976749

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include<stdio.h>
#include "oo.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
   void tria(float xA,float yA,float xB,float yB,float xC,
float yC)
{
float xP,yP,xQ,yQ,xR,yR;
 xP=xB+xC;yP=yB+yC;
 xQ=xC+xA;yQ=yC+yA;
 xR=xA+xB;yR=yA+yB;
 Form1->Canvas->MoveTo(xP,yP);Form1->Canvas->LineTo(xQ,yQ);
 Form1->Canvas->LineTo(xR,yR);
 
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
tria(237.5,87.5,212.5,37.5,187.5,87.5);
tria(275,87.5,225,87.5,225,37.5);
tria(225,125,275,100,225,75);
tria(225,162.5,225,112.5,275,112.5);
tria(187.5,112.5,212.5,162.5,237.5,112.5);
tria(150,112.5,200,112.5,200,162.5);
tria(200,75,150,100,200,125);
tria(200,37.5,200,87.5,150,87.5);
}
//---------------------------------------------------------------------------