Ejercicio C#: Dados tres numeros, calcular cual es el mayor

Realizar Algoritmo que lea tres números distintos y nos diga cuál de ellos es el mayor










Algoritmo:

public static void Main (string[] args)
{
double a, b, c;
Console.WriteLine ("Ingrese el primer numero");
a = double.Parse (Console.ReadLine());

Console.WriteLine ("Ingrese el segundo numero");
b = double.Parse (Console.ReadLine());

Console.WriteLine ("Ingrese el tercer numero");
c = double.Parse (Console.ReadLine());

if (a > b && a > c)
Console.WriteLine ("El numero mayor es: " + a);
else 
{
if (b > a && b > c)
Console.WriteLine ("El numero mayor es: " + b);
else
Console.WriteLine ("El numero mayor es: " + c);
}

Console.ReadKey ();
}

Ejercicio C#: Calcular el porcentaje de niños y niñas de un curso

Un colegio desea saber qué porcentaje de niños y qué porcentaje de niñas hay en el curso
actual. Diseñar un algoritmo para este propósito (recuerda que para calcular el porcentaje
puedes hacer una regla de 3).








Algoritmo:

public static void Main (string[] args)
{
int ninos, ninas, total;
 double pninos, pninas;

Console.WriteLine ("Ingrese la cantidad de niños");
ninos = int.Parse (Console.ReadLine());

Console.WriteLine ("Ingrese la cantidad de niñas");
ninas = int.Parse (Console.ReadLine());

total = ninos + ninas;

pninos = ninos * 100 / total;
pninas = ninas * 100 / total;

Console.WriteLine ("La cantidad total de alumnos es de: "+total);
Console.WriteLine ("El porcentaje de niños es de: "+pninos);
Console.WriteLine ("El porcentaje de niños es de: "+pninas);

 Console.ReadKey ();
}

Ejercicio PSeInt (ESPECIAL) - Ferretería

Una ferretería necesita poder llevar el control del stock de un grupo de productos
que tiene a la venta, entre otras funcionalidades. El catalogo es fijo y se
conforma con los siguientes productos :

-------------------------------------------------------------
|CODIGO |   DESCRIPCION       |   PRECIO VENTA  | STOCK   |
--------+-----------------------+-----------------+----------
|A01    | BOLSA CLAVOS 4 PULG.    |   3500          |   40    |   
|A02    | TAPAGOTERAS SIKA    |   6500          |   60    |
|A03    | GUANTES DE CUERO    |   3000          |   35    |
|A04    | BOTELLA DILUYENTE     |   1200          |   70    |
|A05    | AMPOLLETA 60 W.       |   2400          |   80    |
|A06    | ESMERIL ANGULAR       |  18000          |   25    |
|A07    | TALADRO PERCUTOR    |  25000          |   45    |
|A08    | ALICATE               |   3800          |   55    |
|A09    | MARTILLO              |   5600          |   36    |
|A10    | ESMALTE AL AGUA BLANCO|   8500          |   90    |
+-------+-----------------------+-----------------+---------+

Por lo cual le solicita a usted que le construya un programa en PSEINT con
los siguientes requerimientos:

- Un menu con las siguientes opciones:

  MENU PRINCIPAL
  --------------------
  1. Ingresar Venta
  2. Actualizar Stock
  3. Informe de Stock
  4. Informe de Ventas
  5. Consulta Precio
  6. Consulta Stock
  7. Producto mas vendido
  8. Salir


- La opcion "Ingresar Venta" deberá permitir ingresar el código de producto y la cantidad
  vendida. El sistema deberá calcular el monto de la venta y acumularlo para cada producto
  vendido. El ingreso de productos vendidos finaliza cuando se digita codigo de producto
  A00, y de ahi debe volver al menu principal. Si un producto no existe debe mostrar un
  mensaje y volver a pedir un nuevo producto.

- La opcion "Actualizar Stock" deberá permitir aumentar el stock disponible de un producto
  determinado si la cantidad ingresada es mayor a cero, o disminuirlo si la cantidad es
  negativa. Se debe ingresar el codigo del producto y la cantidad de stock a actualizar.
  El ingreso de stock de productos finaliza cuando se digita codigo de producto A00, y
  de ahi debe volver al menu principal. Si un producto no existe debe mostrar un
  mensaje y volver a pedir un nuevo producto.

- La opcion "Informe de Stock" debe mostrar el stock actualizado en el siguiente formato:

|CODIGO |   DESCRIPCION       |  STOCK   |
  XXXX       YYYYYYYY               999
  XXXX       YYYYYYYY               999
  XXXX       YYYYYYYY               999
  XXXX       YYYYYYYY               999


- La opcion "Informe de Ventas" debe mostrar el monto vendido para cada producto en el
  siguiente formato:

|CODIGO |   DESCRIPCION       |  MONTO VENDIDO $ |
  XXXX       YYYYYYYY               999999
  XXXX       YYYYYYYY               999999
  XXXX       YYYYYYYY               999999
  XXXX       YYYYYYYY               999999


- La opcion "Consulta Precio" deberá permitir ingresar el código de producto. El sistema deberá
  mostrar el nombre del producto y su precio. El ingreso de productos consultados finaliza cuando
  se digita codigo de producto A00, y de ahi debe volver al menu principal. Si un producto no existe
  debe mostrar un mensaje y volver a pedir un nuevo producto.


- La opcion "Consulta Stock" deberá permitir ingresar el código de producto. El sistema deberá
  mostrar el nombre del producto y su stock disponible. El ingreso de productos consultados finaliza cuando
  se digita codigo de producto A00, y de ahi debe volver al menu principal. Si un producto no existe
  debe mostrar un mensaje y volver a pedir un nuevo producto.

- La opción "Producto mas vendido" deberá mostrar el código, descripcion y monto vendido, de aquel producto
  cuyo Monto Vendido sea el mayor de la lista de productos del catalogo.


- La opcion "Salir" debe permitir salir del programa.-

======================================================================

Algoritmo:



Proceso Ferreteria
    Dimension A[10,2], B[10,2], C[100], D[100], E[100], F[100], G[100];
    //Los vectores A y B son para almacenar los nombres y valores de los productos
    //Los vectores C D E son para almacenar la informacion del informe de ventas
    //Los vectores F G son para los productos mas vendidos
   
    Definir cont, menu, cantcompra, tcompra, aux, cant, cantmax Como Entero;
    Definir i Como Real
    Definir codigo, artmax Como Caracter;
   
    A[1,1]<-"A01"; A[1,2]<-"BOLSA CLAVOS 4 PULG.";     B[1,1]<-3500; B[1,2]<-40;
    A[2,1]<-"A02"; A[2,2]<-"TAPAGOTERAS";              B[2,1]<-6500; B[2,2]<-60;
    A[3,1]<-"A03"; A[3,2]<-"GUANTES DE CUERO";         B[3,1]<-3000; B[3,2]<-35;
    A[4,1]<-"A04"; A[4,2]<-"BOTELLA DILUYENTE";        B[4,1]<-1200; B[4,2]<-70;
    A[5,1]<-"A05"; A[5,2]<-"AMPOLLETA 60 W";           B[5,1]<-2400; B[5,2]<-80;
    A[6,1]<-"A06"; A[6,2]<-"ESMERIL ANGULAR";          B[6,1]<-18000; B[6,2]<-25;
    A[7,1]<-"A07"; A[7,2]<-"TALADRO PERCUTOR";         B[7,1]<-25000; B[7,2]<-45;
    A[8,1]<-"A08"; A[8,2]<-"ALICATE";                  B[8,1]<-3800; B[8,2]<-55;
    A[9,1]<-"A09"; A[9,2]<-"MARTILLO";                 B[9,1]<-5600; B[9,2]<-36;
    A[10,1]<-"A10"; A[10,2]<-"ESMALTE AL AGUA BLANCO"; B[10,1]<-8500; B[10,2]<-90;
   
   
    //La variable cont es para el informe de ventas
    cont<-1
    Repetir
        Limpiar Pantalla
        //Mostrar Matriz en pantalla
        Escribir "| CODIGO | DESCRICION | PRECIO VENTA $ | STOCK |";
        Para i<-1 Hasta 10 Con Paso 1 Hacer
            Escribir A[i,1],"  ",A[i,2],"  $",B[i,1],"  ",B[i,2];
        Fin Para
       
        Escribir " ";
        Escribir "MENU Principal";
        Escribir "1 Ingresar venta";
        Escribir "2 Actualizar Stock";
        Escribir "3 Informe de Stock";
        Escribir "4 Informe de ventas";
        Escribir "5 Consulta precio";
        Escribir "6 Consulta Stock";
        Escribir "7 Producto mas vendido";
        Escribir "8 Salir";
       
        Repetir //Este repetir es para que solo se ingresen numeros de 1 al 8
            Leer menu;
            si menu<>1 y menu<>2 y menu<>3 y menu<>4 y menu<>5 y menu<>6 y menu<>7 y  menu<>8 entonces
                Escribir "ERROR. Debe ingresar un numero del 1 al 8";
            FinSi
        hasta que menu=1 o menu=2 o menu=3 o menu=4 o menu=5 o menu=6 o menu=7 o menu=8
       
        Segun menu Hacer
            1:
                //Ingresar Venta
                Escribir " ";
               
                Repetir
                    Escribir "Ingrese el codigo del articulo. Para detener ingrese A00";
                    Repetir //Este Repetir y Si Entonces, es para que solo se ingresen los codigos mostrados en pantalla
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "ERROR. Debe ingresar un codigo valido";
                        FinSi
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"
                   
                    Si codigo<>"A00" Entonces
                        Escribir "Ingrese cuantos productos quiere comprar";
                        Leer cantcompra;
                    FinSi
                   
                    //Revisar el producto en la matriz
                    Para i<-1 Hasta 10 Con Paso 1 Hacer //Filas
                        Si A[i,1]=codigo Entonces
                            Si cantcompra>B[i,2] Entonces //Este si, es para que no se compren mas productos de los que se tienen
                                Escribir "No tenemos tal cantidad de productos";
                                Escribir "Ingrese una cantidad menor o igual a ", B[i,2];
                                i<-10;
                                j<-2; //Estas variables son para salir inmediatamente del ciclo
                            Sino
                                B[i,2]<-B[i,2]-cantcompra;
                                F[cont]<-cantcompra;//En los vectores F G se guardan los totales comprados y sus nombres para despues calcular el mas vendido
                                G[cont]<-A[i,2];
                                tcompra<-B[i,1]*cantcompra;
                                Escribir "Ha comprado ",cantcompra," unidades de ",A[i,2];
                                C[cont]<-codigo;//Las variable C D E son para almacenar los valores para el informe de ventas
                                D[cont]<-A[i,2];
                                E[cont]<-tcompra;
                                aux<-cont;
                                cont<-cont+1;
                            Fin Si
                        Fin Si
                    Fin Para
                Hasta Que codigo="A00"
               
            2:
                //Actualizar Stock
                Escribir " ";
               
                Repetir
                    Escribir "Ingrese el codigo del articulo. Para detener ingrese A00";
                    Repetir//Este Repetir y Si Entonces, es para que solo se ingresen los codigos mostrados en pantalla
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "ERROR. Debe ingresar un codigo valido";
                        FinSi
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"
                   
                    Si codigo<>"A00" Entonces
                        Escribir "Ingrese cuantos productos quiere agregar";
                        Leer cant;
                    Fin Si
                    Para i<-1 Hasta 10 Con Paso 1 Hacer //Filas
                        Si A[i,1]=codigo Entonces
                            B[i,2]<-B[i,2]+cant;
                            Escribir "Ha ingresado ", cant," unidades de ", A[i,2];
                        Fin Si
                    Fin Para
                Hasta Que codigo="A00"
            3:
                //Informe de Stock
                Escribir " ";
                Escribir "Informe de Stock";
                Escribir "| CODIGO | DESCRICION | STOCK |";
               
                Para i<-1 Hasta 10 Con Paso 1 Hacer
                    Escribir A[i,1],"  ",A[i,2],"  ",B[i,2];
                Fin Para
                Escribir " ";
                Escribir "Para volver al menu presione cualquier tecla";
                Esperar Tecla
            4:
                //Informe de ventas
                Escribir " ";
                Escribir "Informe de ventas";
                Escribir "| CODIGO | DESCRIPCION | MONTO VENDIDO $ |";
                Para i<-1 Hasta aux Con Paso 1 Hacer
                    Escribir C[i],"  ",D[i],"  $",E[i];
                Fin Para
               
                Escribir " ";
                Escribir "Para volver al menu presione cualquier tecla";
                Esperar Tecla
            5:
                //Consulta Precio
                Escribir " ";
                Escribir "Consulta Precio";
                Escribir "Para salir ingrese el codigo A00";
                Repetir
                    Escribir "Ingrese el codigo de un producto";
                   
                    Repetir
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "El codigo no es valido, ingreselo nuevamente";
                        Fin Si
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"
                   
                    Para i<-1 Hasta 10 Con Paso 1 Hacer
                        Para j<-1 Hasta 2 Con Paso 1 Hacer
                            Si codigo=A[i,j] Entonces
                                Escribir "El precio del producto ", A[i,2]," es de: $", B[i,1];
                            Fin Si
                        Fin Para
                    Fin Para
                Hasta Que codigo="A00";
               
            6:
                //Consulta de Stock
                Escribir " ";
                Escribir "Consulta de Stock";
                Escribir "Para salir ingrese el codigo A00";
                Repetir
                    Escribir "Ingrese el codigo del producto";
                    Repetir
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "El codigo no es valido, ingreselo nuevamente";
                        Fin Si
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"
                   
                    Para i<-1 Hasta 10 Con Paso 1 Hacer
                        Para j<-1 Hasta 2 Con Paso 1 Hacer
                            Si codigo=A[i,j] Entonces
                                Escribir "La cantidad de productos de ", A[i,2]," es de: ", B[i,2];
                            Fin Si
                        Fin Para
                    Fin Para
                   
                Hasta Que codigo="A00"
               
               
            7:
                //Producto mas vendido
                cantmax<-F[1];
                artmax<-G[1];
                Escribir "Producto mas vendido";
                Para i<-2 Hasta aux Con Paso 1 Hacer
                    Si F[i]>=F[i-1] Entonces
                        cantmax<-F[i]; //Esta variable es para almacenar la cantidad mas vendida
                        artmax<-G[i]; //Esta variale es para almacenar el producto mas vendido
                    Fin Si
                Fin Para
               
                Escribir "El producto mas vendido es: ", artmax," con un total de ", cantmax, " unidades";
               
                Escribir " ";
                Escribir "Para volver al menu presione cualquier tecla";
                Esperar Tecla
               
            De Otro Modo:
                Escribir "HA SALIDO DEL SISTEMA";
            Fin Segun
           
    Hasta Que menu=8
FinProceso

Ejercicio PSeInt: Calcular el numero mayor, el menor, y la media aritmetica

Diseñar un Algoritmo que lea números enteros hasta teclear 0, y nos muestre el máximo, el
mínimo y la media de todos ellos.





Algoritmo:

Proceso maximo_minimo_media
Dimension A[1000];

Escribir "Ingrese una secuencia de numeros"
Escribir "Para finalizar introduzca el 0";

c<-1;
Repetir
Leer n;
A[c]<-n;
c<-c+1;
Hasta Que n=0
c<-c-2;

max<-A[1];
Para i<-2 Hasta c Con Paso 1 Hacer
Si A[i]>=max Entonces
max<-A[i]
Fin Si
Fin Para

min<-A[1];
Para j<-2 Hasta c Con Paso 1 Hacer
Si A[j]<=min Entonces
min<-A[j];
Fin Si
Fin Para

suma<-0;
Para k<-1 Hasta c Con Paso 1 Hacer
suma<-suma+A[k];
Fin Para
media<-suma/c;

Escribir "El mayor es: ", max;
Escribir "El menor es: ", min;
Escribir "La media aritmetica es: ", media;
FinProceso

Ejercicio PSeInt: Promedio de notas aprobadas y reprobadas

“Dado una cantidad de N notas de un estudiante, calcular:”

• Cuántas notas tiene reprobadas.
• Cuántas notas aprobadas.
• El promedio de notas.
• El promedio de notas aprobadas y reprobadas.

Algoritmo

Proceso notas_mientras
    Definir i, aprobadas, reprobadas, notas Como Entero
    Definir sumaa, sumab, nota, promedio, promedioa, promedior Como Real
   
    Escribir "Ingrese la cantidad de notas";
    Leer notas;
    
    i<-1;
    aprobadas<-0;
    reprobadas<-0;
    sumaa<-0;
    sumab<-0;
    Escribir "Ingrese las ", notas, " notas";
    Mientras i<=notas Hacer
        Leer nota;
       
        Si nota>=4 Entonces
            sumaa<-sumaa+nota;
            aprobadas<-aprobadas+1;
        Sino
            sumab<-sumab+nota;
            reprobadas<-reprobadas+1;
        Fin Si
       
        i<-i+1;
    Fin Mientras
   
    promedio<-(sumaa+sumab)/(aprobadas+reprobadas);
    promedioa<-sumaa/aprobadas;
    promedior<-sumab/reprobadas;
   
    Escribir "La cantidad de notas aprobadas son: ",aprobadas;
    Escribir "La cantidad de notas reprobadas son: ",reprobadas;
    Escribir "El promedio total es de: ", promedio;
    Escribir "El promedio de aprobadas es: ", promedioa;
    Escribir "El promedio de reprobadas es: ", promedior;
FinProceso

Ejercicio PSeInt: Calcular factorial con ciclo mientras

Desarrollar un algoritmo para calcular e imprimir el factorial de un número, utilice la
estructura repetitiva MIENTRAS.






Algoritmo

Proceso factorial
    Definir i, n, fact Como Entero
   
    Escribir "Ingrese el numero de termino";
    Leer n;
   
    i<-1;
    fact<-1;
    Mientras i<=n Hacer
        fact<-fact*i;
        i<-i+1;
    Fin Mientras
   
    Escribir "El factorial de ", n, " es: ", fact;
FinProceso

Ejercicio PSeInt: calcular sueldos y sumarlos con ciclo mientras

“A un trabajador le pagan según sus horas trabajadas y la tarifa está a un valor por
hora. Si la cantidad de horas trabajadas es mayor a 40 horas, la tarifa por hora se incrementa en un
50% para las horas extras. Calcular el salario del trabajador dadas las horas trabajadas y la tarifa.
Genere opciones según la cantidad de horas.”

a.- Genere una opción en base al ejercicio anterior para obtener la suma de los salarios de todos
los trabajadores. Utilice estructura MIENTRAS.

Algoritmo
_________________________________________________

Proceso sueldo_2
   
    Definir i, horas, horas2, pr Como Entero
    Definir suma, pr2, prfinal Como Real
   
    Escribir "Ingrese el numero de trabajadores";
    Leer trab;
   
    i<-1;
    suma<-0;
    Mientras i <= trab Hacer
        Escribir "Ingrese las horas trabajadas";
        Leer horas;
        Escribir "Ingrese el valor de una hora de trabajo";
        Leer pr;
       
        Si horas>40 Entonces
            horas2<-horas-40;
            pr1<-40*pr;
            pr2<-horas2*(pr*(150/100));
            prfinal<-pr1+pr2;
        Sino
            prfinal<-pr*horas;
        Fin Si
       
        Escribir "El sueldo es de ", prfinal;
       
        suma<-suma+prfinal;
        i<-i+1;
    Fin Mientras
   
    Escribir "El sueldo de los ", trab, " trabajadores es de: ", suma;
FinProceso

Ejercicio PSeInt: Calcular horas extras y descuento

Resuelva en el software PSeInt las siguientes problemáticas, basadas en un algoritmo
con decisión doble y compleja:

a.- Doble: “A un trabajador le pagan según sus horas trabajadas y la tarifa está a un valor por hora. Si
la cantidad de horas trabajadas es mayor a 40 horas, la tarifa por hora se incrementa en un 50% para
las horas extras. Calcular el salario del trabajador dadas las horas trabajadas y la tarifa.”

b.- Compleja: “A un trabajador le descuentan de su sueldo el 10% si su sueldo es menor o igual a
1000, por encima de 1000 y hasta 2000 el 5% del adicional, y por encima de 2000 el 3% del adicional.
Calcular el descuento y sueldo neto que recibe el trabajador, dado su sueldo.”


Algoritmo:
________________________________________________________

Proceso salario
   
    //El menu es para dar a elegir la opcion a y b del problema
    Escribir "====> MENU <====";
    Escribir "1 Calcular sueldo por horas trabajadas";
    Escribir "2 Calcular descuento";
   
    Repetir
        Leer a1
        Si a1<>1 y a1<>2 Entonces
            Escribir "Debe ingresar el numero 1 o 2";
        Fin Si
    Hasta Que a1=1 o a1=2
   
    Si a1=1 Entonces
        Escribir "Ingrese las horas trabajadas";
        Leer horas;
        Escribir "Ingrese el valor de una hora de trabajo";
        Leer pr;
       
        Si horas>40 Entonces
            horas2<-horas-40;
            pr1<-40*pr;
            pr2<-horas2*(pr*(150/100));
            prfinal<-pr1+pr2;
        Sino
            prfinal<-pr*horas;
        Fin Si
       
        Escribir "El sueldo es de ", prfinal;
    Sino
        Escribir "Ingrese el sueldo completo";
        leer sueldo;
       
        Si sueldo<=1000 Entonces
            descuento<-sueldo*10/100;
            sueldofinal<-sueldo-descuento;
        Fin Si
       
        Si sueldo>1000 y sueldo<=2000 Entonces
            resto<-sueldo-1000;
            descuento1<-100;
            descuento2<-resto*5/100;
            descuento<-descuento1+descuento2;
            sueldofinal<-sueldo-descuento;
        Fin Si
       
        Si sueldo>2000 Entonces
            resto<-sueldo-2000;
            descuento1<-100;
            descuento2<-50;
            descuento3<-resto*3/100;
            descuento<-descuento1+descuento2+descuento3;
            sueldofinal<-sueldo-descuento;
        Fin Si
       
        Escribir "El descuento es de: ", descuento;
        Escribir "El sueldo neto es de: ", sueldofinal;
    Fin Si
FinProceso

Ejercicio PSeInt: Promedio de temperaturas

Diseñe un algoritmo que permita calcular el promedio de varias temperaturas ingresadas por teclado, el ingreso de temperaturas se detendrá cuando se ingrese el número 99.

Debe mostrar en pantalla el promedio de temperaturas.
También se debe mostrar las siguiente condiciones:


-Si el promedio es menor a 10 es "Area fria".
-Si el promedio es mayor o igual a 10 y menor a 20 es "Area templada".
-Si el promedio es mayor o igual a 20 es "Area calida"

Algoritmo
_____________________________________________________________

Proceso temperaturas
    Definir temp, suma, contador Como Entero;
    Definir promedio como real;
   
    suma<-0;
    contador<-0;
    Escribir "Ingrese temperaturas"
    Repetir
        Leer temp;
        suma<-suma+temp;
        contador<-contador+1;
    Hasta Que temp=99
   
    suma<-suma-99;
    contador<-contador-1;
   
    promedio<-suma/contador;
   
    Escribir "El promedio de temperaturas es: ", promedio;
   
    Si promedio<10 Entonces
        Escribir "Su calificacion es: Area Fria";
    Sino
        Si promedio<20 Entonces
            Escribir "Su calificacion es: Area Templada";
        Sino
            Escribir "Su calificacion es: Area Calida";
        Fin Si
    Fin Si
FinProceso

Ejercicio PSeInt: Convertir grados celcius a Fahrenheit

Diseñar un algoritmo que convierta grados celcius a fahrenheit dada la siguiente formula:

fahrenheit = (Celcius/0.55)+32





Algoritmo

Proceso grados
    Definir celcius como entero;
    Definir fr como real;
   
    Escribir "ingrese grados celcius";
    Leer celcius;
   
    fr<-(celcius/0.55)+32;
   
    Escribir "Los grados fahrenheit son: ", fr;
FinProceso

Ejercicio PSeInt: Calcular superficies geométricas

“Escriba un programa que realice el cálculo de superficies de un cuadrado, círculo,
rectángulo, trapecio y triángulo. Utilice un menú de opciones para realizar el cálculo correspondiente
acotando al entrar a la opción el dato a ingresar y el resultado obtenido. Recuerde dar una opción por
defecto en caso de optar por algún número ilógico.”. Utilice la estructura condicional SEGÚN.


Algoritmo


Proceso superficies
    Definir menu, base, altura, basemn, basem, radio Como Entero
    Definir area Como Real
  
    Escribir "------> MENU <-------";
    Escribir "1 Area del cuadrado";
    Escribir "2 Area del circulo";
    Escribir "3 Area del rectangulo";
    Escribir "4 Area del trapecio";
    Escribir "5 Area del triangulo";
    Escribir "Ingrese el numero correnpondiente";
  
    Repetir
        Leer menu;
        Si menu<1 o menu>5 Entonces
            Escribir "Debe ingresar un numero del 1 al 5";
        Fin Si
    Hasta Que menu>=1 y menu<=5
  
    Segun menu Hacer
        1:
            Escribir "Ingrese un lado del cuadrado";
            Leer base;
            area<-base*base;
        2:
            Escribir "Ingrese el radio del circulo";
            Leer radio;
            area<-3.14*radio*radio;
        3:
            Escribir "Ingrese la base del rectangulo";
            Leer base;
            Escribir "Ingrese la altura del rectangulo";
            Leer altura;
            area<-base*altura;
        4:
            Escribir "Ingrese la base mayor del trapecio";
            Leer basem;
            Escribir "Ingrese la base menor";
            Leer basemn;
            Escribir "Ingrese la altura del trapecio";
            Leer altura;
            area<-((basem+basemn)/2)*altura;
        De Otro Modo:
            Escribir "Ingrese la base del triangulo";
            Leer base;
            Escribir "Ingrese la altura del triangulo";
            Leer altura;
            area<-(base*altura)/2;
    Fin Segun
      
    Escribir "El area es: ", area;
  
FinProceso

Ejercicio PSeInt: Ponderación de notas

Resuelva en el software PseInt la siguiente problemática basada en un algoritmo con
decisión simple: “Un alumno desea saber cuál será su calificación final en la materia de Fundamentos
de Programación. Dicha calificación se compone de los siguientes porcentajes:”
55% del promedio de sus tres calificaciones parciales.
30% de la calificación del examen final.
15% de la calificación de un trabajo final.


Algoritmo

Proceso nota_ponderada
    Definir parcial1, parcial2, parcial3, pondp, examen, examen2, trabajo, trabajo2, nfinal Como Real
   
    Escribir "Ingrese la nota parcial 1";
    Leer parcial1;
    Escribir "Ingrese la nota parcial 2";
    Leer parcial2;
    Escribir "Ingrese la nota parcial 3";
    Leer parcial3;
   
    Escribir "Ingrese la nota del examen";
    Leer examen;
   
    Escribir "Ingrese la nota trabajo";
    Leer trabajo;
   
    pondp<-((parcial1+parcial2+parcial3)/3)*(55/100);
    examen2<-examen*(30/100);
    trabajo2<-trabajo*(15/100);
   
    nfinal<-pondp+examen2+trabajo2;
   
    Escribir "La nota final es: ", nfinal;
FinProceso