Pascal/Turbo Pascal - recursividad con funciones

 
Vista:

recursividad con funciones

Publicado por Alvaro Escudero (2 intervenciones) el 20/08/2019 23:06:09
hola buenas tardes: tengo el siguiente enunciado
Suponiendo que solo se tiene definidas sobre los números naturales las funciones primitivas pred y
suc como :
Suc(x) = x +1
Pred(x)= x – 1 si x>0 y Pred(x)= 0 si no es >0

Defina recursivamente las siguientes funciones en pascal sobre los números naturales:
a) Mult NxN→N {el producto de naturales, es decir Mult(x,y)=x*y}
b) Monus NxN→N {definida como Monus(x,y)= x - y, si x>y y Monus(x,y)=0 si no(x<y) }

si no pueden ayudarme con monus lo entendere pero me gustaria poder slucionar el caso de la multiplicacion
desde ya muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

recursividad con funciones

Publicado por ramon (2158 intervenciones) el 23/08/2019 14:26:20
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
{Es to te servirá de ayuda }
 
program multiplica;
uses
  crt;
 
 var
   resul, n, b : integer;
 
  function mult(d,h : integer) : integer;
  begin
     if h <= 0 then
     mult := 0
   else
      mult := d + mult(d,h - 1);
   end;
 
   begin
      clrscr;
      n := 4;
      b := 6;
      resul := mult(n,b);
      writeln(' El Resultado Es = ',resul);
      readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar