Algoritmos con vectores
Enviado por Programa Chuletas y clasificado en Informática y Telecomunicaciones
Escrito el en español con un tamaño de 1,58 KB
Función factorial
Variable entero n, f=1, i
Para i=2 hasta n hacer
f= f*i
fin para
devolver f
final
Algoritmo nºCombinatorio
Variables enteras n, m
Variable real c=0
Si n?m y m?0 entonces
C=factorial(n)/[factorial (m) * factorial (n-m)]
Fin si
Escribir “…… x=”c
Final
------------------------------------------------------------------------------------------
Funcion diagonal_secundaria (a,n)
Constante entera MAX=1000
Matriz a[1..MAX] [1..MAX]
Variables enteras n,i,j,k
Vector Real V[1..MAX * MAX]
Si n>0 y n? MAX entonces
k=1
para i=1 hasta n hacer
para j=1 hasta n hacer
V(k) = a[i][j]
k= k+1
fin para
fin para
fin si
Devolver V
Final
---------------------------------------------------------------------------------------------
Algoritmo leer_vector
Constante entera MAX= 1000
Vector enteros V[1..MAX]
Variable entera i
Para i desde 1 hasta MAX hacer
leer V [i]
Fin para
Final
---------------------------------------------------------------------------------------------
Variable entero n, f=1, i
Para i=2 hasta n hacer
f= f*i
fin para
devolver f
final
Algoritmo nºCombinatorio
Variables enteras n, m
Variable real c=0
Si n?m y m?0 entonces
C=factorial(n)/[factorial (m) * factorial (n-m)]
Fin si
Escribir “…… x=”c
Final
------------------------------------------------------------------------------------------
Funcion diagonal_secundaria (a,n)
Constante entera MAX=1000
Matriz a[1..MAX] [1..MAX]
Variables enteras n,i,j,k
Vector Real V[1..MAX * MAX]
Si n>0 y n? MAX entonces
k=1
para i=1 hasta n hacer
para j=1 hasta n hacer
V(k) = a[i][j]
k= k+1
fin para
fin para
fin si
Devolver V
Final
---------------------------------------------------------------------------------------------
Algoritmo leer_vector
Constante entera MAX= 1000
Vector enteros V[1..MAX]
Variable entera i
Para i desde 1 hasta MAX hacer
leer V [i]
Fin para
Final
---------------------------------------------------------------------------------------------