Problemones tu

Se le pide al usuario tres numeros A,B,C
Si A>B y A>C entonces A es el mayor
Si B>A y B>C entonces B es el mayor
Si C>A y C>B entonces C es el mayor

Pida al usuario una frase y una palabra y di cuantas veces aparece la palabra en la frase
 Pedir la frase F
Pedir la palabra P
Numero de veces=0
Repetir
Si palabra de F=P Entonces numero de veces +1
Hasta fin de F



Pedir al usuario tres numeros y que calcule la suma de los dos primeros, la multiplicacion de los dos ultimos y la división del primero por el tercero.

Pedir tres numeros A,B,C
A+B
B*C
 Si C es distinto de 0
A/C
Si no da un mensaje de error

Usuario Y contraseña

Pedir usuario,

Repetir hasta obtener aaaa

Pedir contraseña,

Repetir hasta obtener 0000

LOGIN PARA UN USUARIO

<script>

function usrpas(){

if (document.form1.txt.value=="admin" && document.form1.num.value=="1234"){window.location="home.htm"}

else {alert("Error en Usuario o Contraseña. Intenta de nuevo.")}

}

document.oncontextmenu=new Function("return false");

</script>

<form name="form1">

<input type="text" name="txt"> Usuario (admin)<br>

<input type="text" name="num"> Contraseña (1234)<br>

<input type="button" value="ir a.." onclick="usrpas()">

</form>

Proceso Par/Impar

Proceso parimpar
Escribir "Ingrese un numero";
Leer num;
Si num mod 2 =0 Entonces
Escribir "El numero es par";
Sino
Escribir "El numero es impar";
FinSi
FinProceso

Calculadora

Proceso Calculadora

 //Declarando variables para usar.

 Definir opcion como entero; //Para saber qué operación desea hacer el usuario

 Definir numSuma como entero; //Para cuantos números se desea sumar

 Definir suma como real;

 Definir numero como real;

  

  

 Escribir "==================================";

 Escribir "============CALCULADORA===========";

 Escribir "==================================";

  

 Escribir "¿Qué operación desea hacer?";

 Escribir "1: para suma";

 Escribir "2: para resta";

 Escribir "3: para multiplicación";

 Escribir "4: para división";

 Leer opcion;

  

 //Si el usuario ingresa un número diferente

 //a las alternativas entonces mostrará un error

 Mientras ((opcion<>1) y (opcion<>2) y (opcion<>3) y (opcion<>4)) Hacer

  Escribir "¡Error! Ingrese un número correcto";

  Escribir "¿Qué operación desea hacer?";

  Escribir "1: para suma";

  Escribir "2: para resta";

  Escribir "3: para multiplicación";

  Escribir "4: para producto";

  Leer opcion;

 Fin Mientras

  

 //Suma

 suma<-0;

 si (opcion=1) Entonces

  Escribir "===============SUMA===============";

  Escribir "¿cuántos números desea sumar?";

  Leer numSuma;

  Definir i como real;

  Para i<-0 Hasta (numSuma-1) Con Paso 1 Hacer

   Escribir "Ingrese número";

   Leer numero;

   suma <- suma+numero;

  Fin Para

  Escribir "El resutlado es: " suma;

 FinSi

  

 //Resta

 Definir resta como real;

 si(opcion=2)Entonces

  Definir num1, num2 Como Real;

   

  Escribir "==============RESTA===============";

  Escribir "Ingrese número: ";

  Leer num1;

  Escribir "Ingrese cantidad a restar: ";

  Leer num2;

  resta<- num1-num2; 

  Escribir "El resutlado es: " resta;

 FinSi

  

 //Multiplicación

 Definir producto como entero;

 producto<-1;

 si (opcion = 3) Entonces

  Definir cantidad como entero;

  Definir num como real;

   

  Escribir "==========MULTIPLICACIÓN===========";

  Escribir "¿Cuántos números desea multiplicar?";

  Leer cantidad;

  Definir i como entero;

  Para i<-0 Hasta (cantidad-1) Con Paso 1 Hacer

   Escribir "Ingrese número: ";

   Leer num;

   producto<-producto*num;

  Fin Para

  Escribir "El resutlado es: " producto;

 FinSi

  

 //Division

 Definir division Como Real;

 si (opcion=4) Entonces

  Definir nume, deno como entero;

  Escribir "==============DIVISIÓN==============";

  Escribir "Ingrese numerador: ";

  Leer nume;

  Escribir "Ingrese denominador: ";

  Leer deno;

  Mientras deno=0 Hacer

   Escribir "¡ERROR! el denominador no puede ser cero (0)";

   Escribir "Ingrese denominador: ";

   Leer deno;

  Fin Mientras

  division<- nume/deno;

  Escribir "El resutlado es: " division;

 FinSi

  

FinProceso