Рекурсия в Delphi(Pascal) и в C++

@no swear · Регистрация: 01.07.2016

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

Создаю такую тему потому что столкнулся с трудностями при переводе программы с Паскаля на C++. Дело в том что я сначала писал на C++ но рекурсия не работала(работала только в одно сторону) потом решил реализовать алгоритм на паскале и всё получилось. Почему на C++ рекурсия коряво работает?

Delphi

uses
  SysUtils;
 
const
    size = 24;
 
type
    intmas = array[1..size] of longint;
    charmas = array[2..size] of char;
 
var
    x: intmas;
    sgnm: charmas;
    n, i: integer;
    s: longint;
    flag: boolean;
 
procedure rec(k: integer; sum: longint);
begin
    //writeln('in');
    if k > 1 then
    begin
        sgnm[k] := '+';
        rec(k - 1, sum + x[k]);
        sgnm[k] := '-';
        rec(k - 1, sum - x[k]);
    end
    else
    begin
        if sum + x[1] = s then
        begin
            //flag := true;
            for i := 1 to n do
            begin
                if (i >= 2) and (i <= n) then write(sgnm[i]);
                write(x[i]);
                if i = n then write('=', s);
            end;
            halt;
        end;
    end;
end;
 
begin
    reset(input, 'c:\\input.txt');
    rewrite(output, 'c:\\output.txt');
    read(n, s);
    for i := 1 to n do read(x[i]);
    flag := false;
    rec(n, 0);
    if not flag then write('No solution');
end.

C++

#include "stdafx.h"
#include <fstream>
const int size = 24;
long long s, mas[size];
char sgnm[size];
bool flag = false;
std::ifstream fin("c:\\input.txt");
std::ofstream fout("c:\\output.txt");
 
void rec(int k, long long sum)
{
    fout << "in" << std::endl;
    if (k > 0)
    {
        sgnm[k] = '+';
        return rec(k - 1, sum + mas[k]);
        sgnm[k] = '-';
        return rec(k - 1, sum - mas[k]);
    }
    else
    {
        if (sum + mas[0] == s) flag = true;
    }
}
 
int main()
{
    int n;
    fin >> n >> s;
    for (int i = 0; i < n; ++i)
    {
        fin >> mas[i];
    }
    rec(n - 1, 0);
    for (int i = 1; i < n; ++i)
    {
        fout << sgnm[i] << ' ';
    }
    return 0;
}

На C++ как видите я хочу вывести только знаки(+ или -), вывод всего выражения целиком не проблема

@nmcf · 16.11.2017, 19:24

return убери.

@no swear · 16.11.2017, 19:39 **[ТС]**

Спасибо огромное! А в чём разница между return и простой записью имени функции без return-а?

@COKPOWEHEU · 16.11.2017, 19:58

return это выход из функции

C

if (k > 0)
    {
        sgnm[k] = '+';
        return rec(k - 1, sum + mas[k]); //вот тут выход из функции
        sgnm[k] = '-'; //следовательно, этот код и код ниже не выполнится никогда
        return rec(k - 1, sum - mas[k]);
    }

@no swear · 16.11.2017, 20:05 **[ТС]**

Спасибо за ответ. Очень помогли

Рекурсия в Delphi(Pascal) и в C++

Решение

Решение

@nmcf 7792 / 6559 / 2984 Регистрация: 14.04.2014 Сообщений: 28,668
	16.11.2017, 19:24	2
	Сообщение было отмечено no swear как решение Решение return убери. 1

@no swear 192 / 166 / 82 Регистрация: 01.07.2016 Сообщений: 943
	16.11.2017, 19:39 [ТС]	3
	Спасибо огромное! А в чём разница между return и простой записью имени функции без return-а? 0

@no swear 192 / 166 / 82 Регистрация: 01.07.2016 Сообщений: 943
	16.11.2017, 20:05 [ТС]	5
	Спасибо за ответ. Очень помогли 0