Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [C++] Переписать программу с Pascal на С++


Автор: L1nkin 13.12.2008, 20:38
Код

const
 znak:array [1..3] of char=('+','-','*');
var
  Form1: TForm1;
  N, M : Integer;
  S,K : Longint;
  B:string;
  a: array [1..15] of integer;

implementation

{$R *.dfm}
Function GetMul(var p: integer):Longint; //long int I FYNKCIA!!! return <переменная типа long>
var tm:Longint;
begin
  tm:=a[p];
  while (p<N) and (B[p]='*') do begin
    tm:=tm*a[p+1];
    inc(p);
  end;
  GetMul:=tm;
end;

function GetRes:longint; //longint i FYNKCIA!!!
var tm: Longint;
  p:integer;
begin
  p:=1;
  tm:=GetMul(p);
  while (p<N) And (B[p] In ['+','-']) do begin
    inc(p);
    case B[p-1] of
      '+': tm:=tm+GetMul(p);
      '-': tm:=tm-GetMul(p);
    end;
  end;
  GetRes:=tm;
end;

procedure Arrange(Nabor: string; Place: Integer); // VOID i FYNKCIA!!!
  var
    i: Integer;
    s1:Longint;
  begin
    if (Place > M) then begin
        B:=Nabor;
        s1:=GetRes;
        if s1=s then
          Form1.Memo1.Lines.Add(inttostr(s1)+'='+Nabor);
    end
    else
      for i := 1 to 3 do begin
        Arrange(Nabor + znak[i], Place + 1);
      end;
  end;


Пожалуйста, помогите!

Автор: Sannis 14.12.2008, 00:53
Хм, а в чём у вас возникла сложность? Нужно то всего лишь заменить begin/end на {/} и вспомнить что в C массивы индексируются с нуля.

Автор: L1nkin 14.12.2008, 22:22
Цитата(Sannis @ 14.12.2008,  00:53)
Хм, а в чём у вас возникла сложность? Нужно то всего лишь заменить begin/end на {/} и вспомнить что в C массивы индексируются с нуля.

Нужно сделать это в максимально сжатые сроки... А я это буду делать долго(

Автор: Sannis 15.12.2008, 04:08
И какие они? smile Начните, больше будет шанс на помощь smile

Автор: L1nkin 15.12.2008, 19:56
Цитата(Sannis @ 15.12.2008,  04:08)
И какие они? smile Начните, больше будет шанс на помощь smile

Начал...Возникли сложности с функцией GetRes. Помогите пожалуйста.
Вот пока какой код имею)

Код

const char znak[3]={'+','-','*'};
int N,M,a[15];
long S,K;
CString B;


long GetMul(int p)
{
    long tm;
    tm=a[p];
    while( (p<N)&&(B[p]=='*') )
    {tm=tm*a[p+1]; p++;}
    return tm;
}

long GetRes()
{
    long tm; int p=0;
    tm=GetMul(p);
    while( (p<N)&&(B[p] in ['+','-']) )
    {p++;
     case B[p-1] of
         '+': tm=tm+GetMul(p);
         '-': tm=tm-GetMul(p);
     }
    return tm;
}


void Arrange(CString nabor; int Place)
{
    int i; long s1;
    if(Place>M)
    {B=Nabor;
     s1=GetRes;
     if(s1==s)
         B=Nabor;// steret
    }
    else
    {for(i=0;i<3;i++)
      Arrange(Nabor+znak[i],Place+1);
    }
}

Автор: Sannis 15.12.2008, 21:37
Код

    while( (p<N)&&(B[p] in ['+','-']) )
    {p++;
     case B[p-1] of
         '+': tm=tm+GetMul(p);
         '-': tm=tm-GetMul(p);
     }

должно выглядеть так:
Код

    while( (p<N) && ( B[p] == '+' || B[p] == '-' ) )
    {
        p++;
        switch( B[p-1] )
        {
            '+': tm=tm+GetMul(p); break;
            '-': tm=tm-GetMul(p); break;
        }
     }

Автор: L1nkin 15.12.2008, 22:34
Спасибо большое!
Только вот компилятор ругается.


'+': tm=tm+GetMul(p); break;    {error C2143: syntax error : missing ';' before ':'}
 '-': tm=tm-GetMul(p); break;     {error C2143: syntax error : missing ';' before ':'}
}                                                {warning C4060: switch statement contains no 'case' or 'default' labels}

Автор: Sannis 16.12.2008, 00:29
Пардон,
Код

    while( (p<N) && ( B[p] == '+' || B[p] == '-' ) )
    {
        p++;
        switch( B[p-1] )
        {
            '+': tm=tm+GetMul(p); break;
            '-': tm=tm-GetMul(p); break;
            default: tm=tm;
        }
     }
. Но это ещё не всё, И должно иметь тип, который приводится к числовому, например char. Собственно я бы так и объявлял его:
Код

char B[128];



Кстати, полезная вещь: http://abyss-group.narod.ru/docs/articles/pas2c.htm

Автор: Dmi3ev 16.12.2008, 00:42
Sannis,  может не так
Цитата

    while( (p<N) && ( B[p] == '+' || B[p] == '-' ) )
    {
        p++;
        switch( B[p-1] )
        {
            '+': tm=tm+GetMul(p); break;
            '-': tm=tm-GetMul(p); break;
            default: tm=tm;
        }
     }

а так хотя бы (особо не разбирался), но:
Код

    while( (p<N) && ( B[p] == '+' || B[p] == '-' ) )
    {
        p++;
        switch( B[p-1] )
        {
           case '+': tm=tm+GetMul(p); break;
           case '-': tm=tm-GetMul(p); break;
            default: tm=tm;
        }
     }


Добавлено через 4 минуты и 57 секунд
и зачем там default, если в первоисточнике его нет)))

Добавлено через 5 минут и 42 секунды
Цитата

Хм, а в чём у вас возникла сложность? Нужно то всего лишь заменить begin/end на {/} и вспомнить что в C массивы индексируются с нуля.

у Вас тоже сложности похоже возникают)))

Добавлено через 6 минут и 53 секунды
есть в интернете проги, которые могут переводить из pascal в c++, я не пользовался, но знаю о их существовании...

Автор: Sannis 16.12.2008, 01:31
Цитата(Dmi3ev @  16.12.2008,  00:42 Найти цитируемый пост)
у Вас тоже сложности похоже возникают)))

Привычка к подсветке, да и время уже не то smile Тем более, что у автора есть компилятор под рукой, а в моём распоряжении только codepad.org, так что предпочитаю оставлять автору возможность и самому подумать smile

Приведённый кусок можно привести с минимальными ошибками к такому виду:
Код

#include<iostream>
#include<string>

char znak[] = {'+', '-', '*'};
int N, M;
long s;
string B;

int a[15];
int a_len = 15;

long GetMul(int p)
{
  long tm = a[p];

  while( p < N && B[p] == '*' )
  {
    tm *= a[p];
    p++;
  }

  return tm;
}

long GetRes()
{
  int p = 1;
  long tm = GetMul(p);

  while( (p < N) && ( B[p] == '+' || B[p] == '-' ) )
  {
    p++;
    switch( B[p-1] )
    {
      case '+': tm = tm+GetMul(p); break;
      case '-': tm = tm-GetMul(p); break;
    }
  }
  return tm;
}

void Arrange(string Nabor, int Place)
{
  int i;
  long s1;
  if (Place > M)
  {
    B = Nabor;
    s1 = GetRes();

    if( s1 == s )
    {
      cout << s1 << ' = ' << Nabor;
    }
  }
  else
  {
      for( i = 0; i < 2; i++)
        Arrange(Nabor + znak[i], Place + 1);
  }
}

Вот только как он состыкуется с остальным кодом? smile

Автор: Dmi3ev 16.12.2008, 01:52
Да я так понимаю он в билдере фигачит, потому что это не весь код, наверное. А если это консольное приложение, то без функции MAIN тут не обойтись. Ладно, я так, для прикола заглянул, удачи, разбирайтесь...

Автор: Sannis 16.12.2008, 02:38
Цитата(Dmi3ev @  16.12.2008,  01:52 Найти цитируемый пост)
Ладно, я так, для прикола заглянул, удачи, разбирайтесь... 

Заходите ещё smile

Автор: L1nkin 16.12.2008, 18:57
Разрабатываю я приложение в Visual.
Да это не полный код, это основные процедуры. Сегодня опять работал над кодом....Правда в итоге программа не работает. Стал проверять этапы выполнения с помощью MessageBox. Останавливается в GetMul на while второе условие(где элемент строки проверяет)и как только решил посмотреть собственно элемент вот этим AfxMessageBox(B[p]); методом, программа стала вылетать на нем...Чует мое сердце что со строкой что-то не так.
Вот код(MessageBoxы не удалял...)
Код

const char znak[3]={'+','-','*'};
int N,M,a[15];
long S,K;
CString B;

long GetMul(int p)
{
    long tm; char text[10],*b;
    itoa(p,text,10);
    AfxMessageBox(text);
    tm=a[p-1];
    AfxMessageBox("123");
    AfxMessageBox(B[p]);
    AfxMessageBox("123");
    while( (p<N)&&(B[p]=='*') )
    {AfxMessageBox("GetMUl");tm=tm*a[p]; p++;}
    return tm;
}

long GetRes()
{
    long tm; int p=1;
    tm=GetMul(p);
    while( (p<N) && (B[p]=='+'||B[p]=='-') )
    {p++;
     if(B[p-1]=='+') 
        tm=tm+GetMul(p);
             if(B[p-1]=='-')
        tm=tm-GetMul(p);
    
     /*switch(B[p-1]) 
     {
         '+': tm=tm+GetMul(p); break;
         '-': tm=tm-GetMul(p); break;
     }*/
    }
    
    return tm;
}


void Arrange(CString Nabor, int Place)
{
    int i; long s1; char *text;
    AfxMessageBox("4");
    if(Place>M)
    {B=Nabor;
     s1=GetRes();
     if(s1==S)
     {B=Nabor;
      text=Nabor.GetBuffer(0);
      AfxMessageBox(text);
     }
      
        
    }
    else
    {
      for(i=0;i<3;i++)
    
      Arrange(Nabor+znak[i],Place+1);
    }
}

void dlg::OnButton2() 
{
    char *text,text2[5];
    UpdateData(true);
    N=m_Edit2;
    S=m_Edit1;
    m_Grid1.SetRow(0);
    for(int i=0;i<2;i++)
    {   m_Grid1.SetCol(i);
        itoa(i+1,text2,10);
        m_Grid1.SetText(text2);}
    
    for(i=0;i<N;i++)
    {m_Grid1.SetCol(i);
     text1=m_Grid1.GetText();
     text=text1.GetBuffer(0);
     a[i]=atoi(text);
     //itoa(a[i],text,10);
    AfxMessageBox(text);}
    M=N-1;
    B="";
    Arrange("",1);
    
}


Sannis, большое спасибо, буду пробывать с этим кодом... Так же могли бы вы мне подсказать, какие ошибки я допустил в своем коде.

Автор: L1nkin 16.12.2008, 19:35
Немного подредактировал код... Все равно вылеает с какой то странной ошибкой: Debug Assertion Failed!  File: afx.inl    Line: 177


Вот код полность:
Код

#include "stdafx.h"
#include "Podgoni.h"
#include "dlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
const char znak[3]={'+','-','*'};
int N,M,a[15];
long S,K;
CString B;
/////////////////////////////////////////////////////////////////////////////
// dlg dialog


dlg::dlg(CWnd* pParent /*=NULL*/)
    : CDialog(dlg::IDD, pParent)
{
    //{{AFX_DATA_INIT(dlg)
    m_Edit1 = 0;
    m_Edit2 = 0;
    //}}AFX_DATA_INIT
}


void dlg::DoDataExchange(CDataExchange* pDX)
{
    CDialog::DoDataExchange(pDX);
    //{{AFX_DATA_MAP(dlg)
    DDX_Control(pDX, IDC_MSFLEXGRID1, m_Grid1);
    DDX_Text(pDX, IDC_EDIT1, m_Edit1);
    DDX_Text(pDX, IDC_EDIT2, m_Edit2);
    //}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(dlg, CDialog)
    //{{AFX_MSG_MAP(dlg)
    ON_BN_CLICKED(IDC_BUTTON1, OnButton1)
    ON_BN_CLICKED(IDC_BUTTON2, OnButton2)
    //}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// dlg message handlers

void dlg::OnButton1() 
{

    UpdateData(true);
    m_Grid1.SetCols(m_Edit2);
    UpdateData(false);
}

long GetMul(int p)
{
    long tm;
    tm=a[p-1];
    while( (p<N)&&(B[p]=='*') )
    {tm=tm*a[p+1]; p++;}
    return tm;
}

long GetRes()
{
    long tm; int p=1;
    tm=GetMul(p);
    while( (p<N) && (B[p]=='+'||B[p]=='-') )
    {p++;
     switch(B[p-1]) 
     {
         case '+': tm=tm+GetMul(p); break;
         case '-': tm=tm-GetMul(p); break;
     }
    }
    return tm;
}


void Arrange(CString Nabor, int Place)
{
    int i; long s1; char *text;
    if(Place>M)
    {B=Nabor;
     s1=GetRes();
     if(s1==S)
     {B=Nabor;
      text=Nabor.GetBuffer(0);
      AfxMessageBox(text);
     }  
    }
    else
    {for(i=0;i<3;i++)
      Arrange(Nabor+znak[i],Place+1);
    }
}

void dlg::OnButton2() 
{
    char *text,text2[5]; int i; CString text1;
    UpdateData(true);
    N=m_Edit2;
    S=m_Edit1;
    m_Grid1.SetRow(0);
    for(i=0;i<2;i++)
    {   m_Grid1.SetCol(i);
        itoa(i+1,text2,10);
        m_Grid1.SetText(text2);}
    
    
    for(i=0;i<N;i++)
    {m_Grid1.SetCol(i);
     text1=m_Grid1.GetText();
     text=text1.GetBuffer(0);
     a[i]=atoi(text);
     AfxMessageBox(text);
    }
    M=N-1;
    B="";
    Arrange("",1);
    
}


Сейчас буду пробывать вашу версию, Sannis.

UPD: Попробывал-та же ошибка...

Автор: Sannis 16.12.2008, 20:16
Попробуйте вывести значение p, оно может выходить за границы строки, в этом случае нужно проверять индексы.
MFC я не знаю, так что с привязкой алгоритма к визуально части помочь не смогу.

Автор: L1nkin 16.12.2008, 20:27
Цитата(Sannis @  16.12.2008,  20:16 Найти цитируемый пост)
Попробуйте вывести значение p, оно может выходить за границы строки, в этом случае нужно проверять индексы.MFC я не знаю, так что с привязкой алгоритма к визуально части помочь не смогу.

Пробывал выводить значение p. С ним все в порядке. Так же пробовал просто обращаться к 0 и 1му элемнту строки B. Все равно ошибку выдает после того как жму кнопку 2.
Визуальная часть и не нужна, нужно чтобы сама программа выводила правильный результат.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)