Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Dios Otero David CD Tarea1.7

Descargar como txt, pdf o txt
Descargar como txt, pdf o txt
Está en la página 1de 3

//EJERCICIO 1.

5
Algoritmo cambio_variable
Definir a, b, c, d Como Entero
Escribir "Introduce el primer numero"
leer a
Escribir "Introduce el segundo numero"
leer b
c <- a
d <- b
Escribir "A = ", a, " B = ", b
Escribir "Cambio de variables"
Escribir "A = ", d, " B = ", c
FinAlgoritmo

//EJERCICIO 1.6
Funcion operacion <- SeleccionaOperador (operacion Por Referencia)
Repetir
Escribir "Introduce la operación que deseas realizar:"
Escribir "(S)uma"
Escribir "(R)esta"
Escribir "(M)ultiplicación"
Escribir "(D)ivision"
Escribir "(Re)sto de División"
Leer Operacion
Operacion = Mayusculas(Operacion)
Si Operacion <> 'S' y Operacion <> 'R' y Operacion <> 'M' y Operacion
<> 'D' y Operacion <> 'RE' Entonces
Escribir "¡Error! No sé que operación es esa"
Sino
Escribir "Operación Guardada"
FinSi
Hasta Que Operacion = 'S' o Operacion = 'R' o Operacion = 'M' o Operacion =
'D' o Operacion = 'RE'
Fin Funcion

Funcion OperaNumeros (a, b, operacion Por Referencia, res Por Referencia,


signo_operacion Por Referencia )
si operacion = 'S' entonces
res <- a + b
operacion = "suma"
signo_operacion = "+"
FinSi
si operacion = 'R' entonces
res = a - b
operacion = "resta"
signo_operacion = "-"
FinSi
si operacion = 'M' entonces
res = a * b
operacion = "multiplicación"
signo_operacion = "*"
FinSi
si operacion = 'D' entonces
res = a / b
operacion = "división"
signo_operacion = "/"
FinSi
si operacion = 'RE' entonces
res = a mod b
operacion = "resta de división"
signo_operacion = "mod"
FinSi
Fin Funcion

Funcion num <- ObtenNumero ()


Repetir
Escribir "Introduce un número entre 1 y 10"
Leer num
Si num > 10 o num < 1 Entonces
Escribir "¡Error! El número introducido está fuera del rango |1 -
10|"
SiNo
Escribir "Número guardado"
FinSi
Hasta Que num <= 10 Y num >= 1

Fin Funcion

Funcion Imprime_Resultado (res Por Referencia, a, b, operacion Por Referencia,


signo_operacion Por Referencia)
Escribir "El resultado de la ", operacion, " " , a, " ", signo_operacion, "
", b, " = ", res
Fin Funcion

Funcion decision <- preguntaUsuario ()


repetir
Escribir "Deseas realizar una operacion de nuevo? Y/N"
leer decision
decision = Mayusculas(decision)
si decision <> "Y" y decision <> "N" Entonces
Escribir "Error, solo Y/N"
FinSi
si decision = "N" Entonces
escribir "¡Hasta pronto!"
FinSi
Hasta que decision = "N" o decision = "Y"
FinFuncion

Algoritmo funciones_complejas
definir a, b, op, res Como Entero
definir operacion, signo_operacion Como Caracter
res <- 0
operacion = ""
signo_operacion = ""
repetir
Escribir "¡Bienvenido a este programa!"
a <- ObtenNumero()
b <- ObtenNumero()
operacion <- SeleccionaOperador(operacion)
OperaNumeros(a, b, operacion, res, signo_operacion)
Imprime_Resultado(res, a, b, operacion, signo_operacion)
decida <- preguntaUsuario ()
hasta que decida = "N"

FinAlgoritmo

//EJERCICIO 1.7
Algoritmo tablas

Definir n, i Como Entero


Repetir
Escribir "introduce un valor entre |1 - 10|"
leer n
si n < 0 o n >10 Entonces
escribir "error, fuera de rango 1 - 10"
FinSi
Hasta Que n > 0 y n < 10
repeticion(n)

FinAlgoritmo

funcion repeticion (n)


Para i<-n Hasta 10 Con Paso 1 Hacer
tablafun(i, n)
Fin Para
FinFuncion

funcion tablafun (n, i)


Para i <- 1 Hasta 10 Con Paso 1 Hacer
escribir n, " x ", i, " = ", (n*i)
Fin Para

FinFuncion

También podría gustarte