Iteración – Ejemplo 3

Enunciado

Calcular e informar los n primeros términos de la progresión geométrica de razón 3. Versión 3: Se utiliza el ciclo for equivalente a la estructura del ciclo while de la versión 1.

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
    for i in range ( 0, n ):
        print( "\t", t )
        t *= 3

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

C++

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

int main()
{
   int n, i ;
   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 ;
   	
   cout << endl << "**** Usando estructura For" ;
   cout << "/Using structure FOR **** " << endl ;   
   cout << endl ;
   cout << "Version clasica/Classic version:" << endl ;
   for (i=1, t=1 ; i<=n ; i++)
   {
   	cout << endl << "\t" << t ;
   	t *= 3 ;
   }
   cout << endl ;
   cout << "Version sofisticada/" ;
   cout << "Sophisticated version: " << endl ;
   for (i=1, t=1 ; i<=n ; 
	cout << endl << "\t" << t, t*=3, i ++) ;
	
   cout << endl << "Presionar/Press enter to exit " ;
   getch() ;
   return 0 ;
}

Pascal

Program Problema8_1b ;
var
   n, i : 0..50 ;
   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 ;
   for i:=1 to n do
   begin
        writeln( t:25:0 ) ;
        t := t*3
   end ;
    
   writeln( 'Presionar/Press Enter to exit' ) ;
   readln ;
end.

Diagramas