Написать нерекурсивную функцию вычисления выражения, используя стек

[Max00766]

Написать не рекурсивную функцию, которая используя стек, вычисляет значение F(m,n) для любой пары положительных чисел n и m за соотношением:
latex.gif
Я не мог понять даже задания, преподаватели всегда отмахивались и мне на форме помогли написать код, но я так и не понял задания и поэтому не могу понять правильный ли код или нет. Так же в коде не понятно почему нельзя ввести 0 значения для переменных. Буду очень благодарен за разъяснения по коду и помощь. Заранее огромное спасибо.
Код:

type TStack = ^Stack;
     Stack = record
               x: longint;
               next: TStack
             end;
 
procedure cr(s: string; var x: longint);
begin
  repeat
    write(s, ' > 0;  ', s, ' = ');
    readln(x)
  until x > 0
end;
 
procedure push(var st: TStack; t: longint);
var tmp: TStack;
begin
  new(tmp);
  tmp^.x := t;
  tmp^.next := st;
  st := tmp
end;
 
procedure pop(var st:TStack; var t: longint);
var tmp: TStack;
begin
  t := st^.x;
  tmp := st;
  st := st^.next;
  dispose(tmp)
end;
 
var m, n: longint;
    st: TStack;
 
begin
  cr('m', m);
  cr('n', n);
  push(st, m);
  while st <> nil do
    begin
      pop(st, m);
      if (m = 0) or (n = 0)
        then n := m + n + 1
        else begin
          dec(m);
          push(st, m);
          inc(m);
          push(st, m);
          dec(n)
        end;
    end;
  writeln('f(m, n) = ', n);
  readln
end.

[p51x]

была же уже тема и там все описали

[Max00766]

Сообщение от p51x

была же уже тема и там все описали

Не могу понять почему 0 не принимает

[BDA]

Не принимает ноль, потому что по условию числа должны быть положительными. Ну или измените условие "x > 0" в процедуре cr, если так хочется нули ввести.

[Max00766]

Сообщение от BDA

Не принимает ноль, потому что по условию числа должны быть положительными. Ну или измените условие "x > 0" в процедуре cr, если так хочется нули ввести.

Но в условии есть же m*n=0, а такое возможно же только если одно из слагаемых будет = 0
А вообще программа написана правильно, стоит дальше разбираться с ней, просто что бы зря не потратил время на нее?

[BDA]

В условии сказано "вычисляет значение F(m,n) для любой пары положительных чисел n и m". "такое возможно же только если одно из слагаемых будет = 0" - согласен. Да, программа похожа на верную. Но время советую потратить и разобраться с рекурсией (тогда бы и желания ввести нули не было).

[Max00766]

Сообщение от BDA

В условии сказано "вычисляет значение F(m,n) для любой пары положительных чисел n и m". "такое возможно же только если одно из слагаемых будет = 0" - согласен. Да, программа похожа на верную. Но время советую потратить и разобраться с рекурсией (тогда бы и желания ввести нули не было).

Спасибо, просто все форумы штурмую, так как самому сложно разобраться, а в универе курсач дали, 10 минут про стеки рассказали и сказали делайте и что бы прогу уже показывали. Пытаюсь найти помощь где только могу

[Max00766]

Кто-то может перевести код программы из Паскаля в Си?

type TStack = ^Stack;
     Stack = record
               x: longint;
               next: TStack
             end;
 
procedure cr(s: string; var x: longint);
begin
  repeat
    write(s, ' > 0;  ', s, ' = ');
    readln(x)
  until x > 0
end;
 
procedure push(var st: TStack; t: longint);
var tmp: TStack;
begin
  new(tmp);
  tmp^.x := t;
  tmp^.next := st;
  st := tmp
end;
 
procedure pop(var st:TStack; var t: longint);
var tmp: TStack;
begin
  t := st^.x;
  tmp := st;
  st := st^.next;
  dispose(tmp)
end;
 
var m, n: longint;
    st: TStack;
 
begin
  cr('m', m);
  cr('n', n);
  push(st, m);
  while st <> nil do
    begin
      pop(st, m);
      if (m = 0) or (n = 0)
        then n := m + n + 1
        else begin
          dec(m);
          push(st, m);
          inc(m);
          push(st, m);
          dec(n)
        end;
    end;
  writeln('f(m, n) = ', n);
  readln
end.

[BDA]

Осталось дописать код в функции:

#include <stdio.h>
#include <stdlib.h>

typedef struct Stack {
    int x;
    struct Stack *next;
} Stack;
typedef Stack* TStack;

void cr(char *s, int *x)
{
    //...
}

void push(TStack *st, int t)
{
    //...
}

void pop(TStack *st, int *t)
{
    //...
}

int main(void)
{
    int m, n;
    TStack st = NULL;
    //...
    printf("f(m, n) = %d\n", n);
    return 0;
}

[Max00766]

Сообщение от BDA

Осталось дописать код в функции:

#include <stdio.h>
#include <stdlib.h>

typedef struct Stack {
    int x;
    struct Stack *next;
} Stack;
typedef Stack* TStack;

void cr(char *s, int *x)
{
    //...
}

void push(TStack *st, int t)
{
    //...
}

void pop(TStack *st, int *t)
{
    //...
}

int main(void)
{
    int m, n;
    TStack st = NULL;
    //...
    printf("f(m, n) = %d\n", n);
    return 0;
}

А где можно найти аналогии стандартных функций паскаля в Си?