04.04.17 algoritmo

//calculadora + raiz + potencia + porcentaje.

Proceso sin_titulo

	Definir num1, num2, operacion como reales;

    Escribir "Hola, Seleccione una funcion";
    Escribir "1- Sumar 2- Restas 3- division 4- multiplicacion.";
	Escribir "5- Potencia 6- Raiz 7- Porcentaje";
    Leer operacion;
	Limpiar Pantalla;
    Segun operacion Hacer
        1:
            Escribir "Digite la suma";
            Leer num1;
            Escribir " + ";
            Leer num2;
            Escribir "Es igual a: ", num1 + num2;
        2:
            Escribir "Digite la Resta";
            Leer num1;
            Escribir " - ";
            Leer num2;
            Escribir "Es igual a: ", num1 - num2;
        3:
			Escribir "Digite la Division";
            Leer num1;
            Escribir " / ";
            Leer num2;
			Si num2 == 0
				Entonces
				Escribir "no se puede dividir por 0";
			Sino
				Escribir "", num1 / num2 ;
			FinSi
        4:
            Escribir "Digite la Multiplicacion";
            Leer num1;
            Escribir " * ";
            Leer num2;
            Escribir "Es igual a: ", num1 * num2;
		5:
			Escribir "Ingrese la operacion";
			Leer num1;
			Escribir "Elevado a ";
			Leer num2;
			Escribir num1^num2 ;
		6:
			Escribir "Ingrese la operacion";
			Leer num1;
			Escribir "la raiz de " ,num1, " es " ,rc(num1);
		7:
			Escribir "Ingrese el total";
			Leer num1;
			Escribir "Ingrese el porcentaje";
			Leer num2;
			Escribir "El Total es. ", (num1/100)*num2;
        De Otro Modo:
            Escribir "Cometiste un error en alguna parte.";
    FinSegun
FinProceso

// Mayuscula + minuscula + subcadena

Proceso sin_titulo
	Definir frase como caracter;

	Escribir "ingrese la frase";
	Leer frase;

	Escribir "la frase ingresada tiene ", longitud(frase), " caracteres";
	Escribir "en solo mayusculas seria:";
	Escribir mayusculas(frase);
	Escribir "";
	Escribir "Completamente en minusculas seria:";
	Escribir minusculas(frase);
	Escribir "";
	//Hola mundo
	//0123456789
	Escribir "y las primeras 3 letras de la frase son: ", Subcadena(frase,0,3);

FinProceso

// verdadero falso wey

Proceso sin_titulo
	Definir esVerdad Como Logico;
	Definir num Como Entero;
	esVerdad = Falso;

	Escribir "esta aplicacion adivina si un numero es par o impar";
	Escribir "ingrese un numero";
	Leer num;

	esVerdad = num%2==0;

	Escribir "¿el numero ",num," es par?";
	esperar 1 segundos;
	Escribir ".";
	Esperar 1 segundos;
	Escribir sin saltar ".";
	Esperar 1 segundos;
	Escribir sin saltar ".";
	Esperar 1 segundos;
	Escribir sin saltar ".";
	Escribir "la afirmacion es ", esVerdad;

FinProceso