Enunciado
Calcular e informar los n primeros términos de la progresión geométrica de razón 3.
Versión 1: Se utiliza un ciclo while y un contador que va de 1 a n como control del mismo.
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
i = 1
while i<=n:
print( "\t", t )
t *= 3
i += 1
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 ;
t = 1 ;
i = 1 ;
while ( i<=n )
{
cout << endl << "\t" << t ;
t *= 3 ;
i ++ ;
}
cout << endl << "Presionar/Press enter to exit " ;
getch() ;
return 0 ;
}
Pascal
Program Problema8_1 ;
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 ;
i := 1 ;
while i<=n do
begin
writeln( t:25:0 ) ;
t := t*3 ;
i := i+1
end ;
writeln( 'Presionar/Press Enter to exit' ) ;
readln ;
end.
Diagramas


