Factorial en VB y C#

En un post anterior se vio el algoritmo para desarrollar una aplicacion para devolver el factorial de un numero, ahora se implementa ese algoritmo en VS en el lenguaje VB

El codigo para Consola en VB es:

Module Module1

    Sub Main()
        Console.Write("Ingresa N: ")
        Dim N = Val(Console.ReadLine)
        If (N >= 0) Then
            Dim Fact = 1
            If (N > 0) Then
                Do
                    Fact = Fact * N
                    N = N - 1
                Loop While N > 1
            End If
            Console.WriteLine("El Factorial es: " & Fact)
        Else
            Console.WriteLine("Error: no se puede continuar...")
        End If
        Console.ReadLine()
    End Sub

End Module

El Codigo para C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Factorial
{
    class Program
    {
        static void Main(string[] args)
        {            
            Console.Write("Ingrese N: ");
            int N =  int.Parse( Console.ReadLine() );            
            if( N>=0 ){
                int Fact = 1; 
                if( N > 0 ){
                    do{          
                        Fact = Fact * N;
                        N = N - 1;
                    }while(N>1);            
                }
            Console.WriteLine("El Factorial es: " + Fact);
            }else{
                Console.WriteLine("Error: No se puede calcular...");
            }
            Console.ReadKey();
        }
    }
}

Como se observa utilizamos dos lenguajes diferentes pero gracias al algoritmo unico y al diagrama de flujo y al pseudocodigo obtenido por este, puede escribirse en cualquiera de los lenguajes sin problemas, la logica es la misma, aunque entre uno y otro lenguaje existan algunas diferencias.

Posted in: c#,Consola,Visual Basic