Взаимная рекурсия - C++ Builder - Ответ 588794

#include <vcl.h>
#pragma hdrstop
 
#include "prog.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool p1(int x)
  {
if(x==0) return false;
 else if((x%2)==0) return p1(x/2);
  else return p2(x/2); //ошибка на этой строчке
}
bool p2(int x)
{if(x==0) return true;
 else if((x%2)==0) return p2(x/2);
  else return p1(x/2);
};
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x=StrToInt(Edit1->Text);
if(p1(x)==false) Label1->Caption="ЧЁТНОЕ";
else  Label1->Caption="не ЧЁТНОЕ";
}