Iteración – Ejemplo 2

Enunciado

Calcular e informar los n primeros términos de la progresión geométrica de razón 3. Versión 2: Se utiliza un ciclo while y la misma variable n como control la cual se decrementa hasta llegar a cero.

Código

Python

def main():
    print( "Progresion geometrica de razon 3 " )
    print( "Geometric progression of ratio 3\n " ) 
    n = int( input( " Cantidad de terminos/Number of terms: " ) )
    
    t = 1
    while n >= 1:
        print( "\t", t )
        t *= 3
        n -= 1

    input( "Presionar/Press Enter to exist " )  
main()

C++

#include <iostream>
using namespace std ;
#include <conio.h>

int main()
{
   int n ; 
   float t ;

   cout << "Progresion geometrica de razon 3" << endl ;
   cout << "Geometric progression of ratio 3" << endl ;	
   cout << "Cantidad de terminos/Number of terms: " ;
   cin >> n ;
   	
   t = 1 ;
   while ( n>=1 )
   {
   	cout << endl << "\t" << t ;
   	t *= 3 ;
      	n-- ;
   }
	
   cout << endl << "Presionar/Press enter to exit " ;
   getch() ;
   return 0 ;
}

Pascal

Program Problema8_1a ;
var
    n : integer ;
    t : real ;
	
begin
    writeln( 'Progresion geometrica de razon 3' ) ;
    writeln( 'Geometric progression of ratio 3 ' ) ;
    writeln ;
    write( 'Cantidad de terminos/Number of terms: ' ) ;
    readln( n ) ;
    
    t := 1 ;
    while n>=1 do
    begin
        writeln( t:25:0 ) ;
        t := t*3 ;
        n := n-1
    end ;
    
    writeln( 'Presionar/Press Enter to exit' ) ;
    readln ;
end.

Diagramas