Взаимная рекурсия

@Fuse · Регистрация: 14.11.2009

Author24 — интернет-сервис помощи студентам

Всем привет!нужна помощь в решении задачи:

функция вычисления четности (нечетности) единиц в двоичном представлении числа

код в делфи нужно реализовать в билдере

Delphi

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function p1(n:byte):boolean;
    function p2(n:byte):boolean;
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
  If p1(15)=false then Edit1.Text:='Четное' else Edit1.Text:='Нечетное';
end;
function Tform1.p1(n:byte):boolean;
begin
  if n=0 then result:=false
  else if (n mod 2)=0 then result:=p1(n div 2)
       else result:=p2(n div 2);
end;
function Tform1.p2(n:byte):boolean;
begin
  if n=0 then result:=true
  else if (n mod 2)=0 then result:=p2(n div 2)
       else result:=p1(n div 2);
end;
end.

пример вывода

Число 15 в десятичной равно 1111, т.е. число единиц четное.

пытался реализовать сам,но не не вышло

C++

#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="не ЧЁТНОЕ";
}

@Inadequate · 09.03.2010, 14:10

Unit1.h

C++

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TEdit *Edit1;
    TLabel *Label1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    bool __fastcall p1(int x);
    bool __fastcall p2(int x);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__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="не ЧЁТНОЕ";
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::p1(int x)
{
  if(x==0) return false;
    else if((x%2)==0) return p1(x/2);
      else return p2(x/2);
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::p2(int x)
{
  if(x==0) return true;
    else if((x%2)==0) return p2(x/2);
      else return p1(x/2);
}
//---------------------------------------------------------------------------

C++ Builder 2009

@Fuse · 10.03.2010, 14:57 **[ТС]**

спс,я забыл ашку скинуть,там чуть чуть отличается

только теперь другая проблема,после компиляции выскакивает вот такая ошибка

[Linker Error] Unresolved external 'WinMain' referenced from E:\PROGRAMMS\BUILDER C++\LIB\C0W32.OBJ

@Fuse 2 / 2 / 3 Регистрация: 14.11.2009 Сообщений: 44
	10.03.2010, 14:57 [ТС]	3
	спс,я забыл ашку скинуть,там чуть чуть отличается только теперь другая проблема,после компиляции выскакивает вот такая ошибка [Linker Error] Unresolved external 'WinMain' referenced from E:\PROGRAMMS\BUILDER C++\LIB\C0W32.OBJ 0