PSEINT shit idk

TrabajosTIC.psc

Funcion resto(num)
	Mientras i<=num Hacer
		Si i MOD num==0 Entonces
			Escribir i,' Es divisor'
		FinSi
		i <- i+1
	FinMientras
FinFuncion

Funcion primo(n)
	divs <- 0
	i <- 1
	Mientras i<=n Hacer
		Si n MOD i==0 Entonces
			divs <- divs+1
		FinSi
		i <- i+1
	FinMientras
	Si divs==2 Entonces
		Escribir n,' es primo'
	SiNo
		Escribir n,' no es primo'
	FinSi
FinFuncion

Funcion multiplicar(n,veces,pass)
	Para i<-0 Hasta veces Con Paso pass Hacer
		multiplicado <- n*i
		Escribir n,' x ',i,' = ',multiplicado
	FinPara
FinFuncion

Funcion numerosPares(veces)
	Definir i Como Real
	Para i<-0 Hasta veces Con Paso 2 Hacer
		Escribir i
	FinPara
FinFuncion


// Factorial manual (Abstraccion 2)
Funcion factorial(n)
	multiplicadoTotal <- 1
	Para i<-1 Hasta n Hacer
		multiplicadoTotal <- multiplicadoTotal*i
		Escribir multiplicadoTotal/i,' x ',i,' = ',multiplicadoTotal
	FinPara
	Escribir 'FACTORIAL = ',multiplicadoTotal
FinFuncion

// Potencia Simple (Abstraccion 1)
Funcion potencia_simple(n, veces)
	escribir n, "^" veces " = "  n^veces
FinFuncion

// Potencia manual
funcion potencia_compuesta(n, veces)
	potencia = 1
	para i<-1 hasta veces con paso 1 Hacer
		potencia = n*potencia
		escribir n "^" i " = " potencia
 	FinPara
FinFuncion


// Multiplicacion manual
funcion multiplicar_compuesto(n1, n2)
	total = 0
	para i<-1 hasta n2 con paso 1 Hacer
		total = n1 + total
		escribir total " = " n1 " + " total
	FinPara
	escribir n1 " x " n2  " = " total
FinFuncion

funcion ecuacionSegundoGrado(a, b, c)
	// -b+/-sqrt(b2 - 4ac) / 2a
	calculoInterior = (b^2)-4*a*c
	si calculoInterior < 0
		escribir "ERR: Raiz negativa!"
	SiNo
		escribir b "^2 - 4*" a "*" c " = " calculoInterior
		calculoRaiz = raiz(calculoInterior)
		escribir "sqrt(" calculoInterior ") = " calculoRaiz
		sol1 =  ((-b + calculoRaiz) / (2*a))
		sol2 =  ((-b - calculoRaiz) / (2*a))
		
		escribir "-" (-b) "+" calculoRaiz "/ 2*" a " = " sol1
		
		escribir "-" (-b) "-" calculoRaiz "/ 2*" a " = " sol2
		
		escribir "X1 = " sol1 " || X2 = " sol2
		
	FinSi
	
FinFuncion

Algoritmo TIC
	ecuacionSegundoGrado(5, -15, -50)
FinAlgoritmo