Arbol binario. Preorden

Árbol binario

• Preorden: (raíz, izquierdo, derecho). Para recorrer un árbol binario no vacío en preorden, hay que realizar las siguientes operaciones recursivamente en cada nodo, comenzando con el nodo de raíz:

1. Visite la raíz
2. Atraviese el sub-árbol izquierdo
3. Atraviese el sub-árbol derecho

• Inorden: (izquierdo, raíz, derecho). Para recorrer un árbol binario no vacío en inorden (simétrico), hay que realizar las siguientes operaciones recursivamente en cada nodo:

1. Atraviese el sub-árbol izquierdo
2. Visite la raíz
3. Atraviese el sub-árbol derecho

• Postorden: (izquierdo, derecho, raíz). Para recorrer un árbol binario no vacío en postorden, hay que realizar las siguientes operaciones recursivamente en cada nodo:

1. Atraviese el sub-árbol izquierdo
2. Atraviese el sub-árbol derecho
3. Visite la raíz

1. Hacer un programa en qbasic t turbo pascal y subir pantallazo del código. 
leer un numero por pantalla e imprimir la tabla de multiplicar. 
Gracias

PROGRAM EJER48;

        USES CRT;

        VAR tabla, x, num:INTEGER;

BEGIN

     ClrScr;

     WRITE ('Introduzca un numero para hacer su tabla de

multiplicar: ');

     READLN (num);      WRITELN ('');

     REPEAT

           WRITELN (tabla);

           x:= x + 1;

           tabla:= num * x;

     UNTIL x=11;

END.

PROGRAM EJER48;

        USES CRT;

        VAR num,sem:INTEGER;

BEGIN

     ClrScr;

     WRITE('Introduzca un numero entero: ');    READLN(num);

     FOR sem:=1 TO 10 DO

     BEGIN

          WRITE(num); WRITE(' * '); WRITE(sem); WRITE(' = ');

          WRITELN(num*sem);

     END;

END.

program tabla_multiplicar; 
uses crt; 
const 
maximo=10; 
var 
n,i:integer; 
begin 
writeln ('introduzca el numero, para sacar su tabla de multiplicar'); 
readln (n); 
for i:=1 to maximo do 
writeln (i,'x',n,'=',(n*i)); 
readln; 
end.

...