Informática : Problema y Solucion en Pseudocódigo

Comparación de Mayor o Menor en una Cantidad N

mayor = 0

menor = 999999999999

    Escribir "Ingrese la cantidad de alumnos"
    Leer A

    Para I<-1 hasta A hacer

        Escribir "Ingrese el valor del numero"
        Leer B

        Si B > mayor entonces
            Mayor = B;

        FinSi
        Si B < menor Entonces
            menor = B;

        FinSi

    FinPara

    Escribir "El número mayor es: ", mayor
    Escribir "El numero menor es: ", Menor

FUENTE: http://www.forosdelweb.com/f14/obtener-mayor-menor-valor-n-numeros-con-pseudocodigo-330346/

Dado un número entero ingresado por teclado, determinar si es par o impar y mostrarlo por pantalla.

Escribir "ingrese un número para saber si es par o impar"
    Leer A

    B <- A mod 2 = 0

    Si B Entonces


        Escribir "el número es par "
    Sino
        Escribir "el número es impar "


    FinSi

Crear un programa que calcule el IVA de un producto. El valor de este producto se ingresará por teclado y mostrará por pantalla el valor del IVA y su valor final. El IVA es el 21 %

Escribir "Ingrese el valor del producto para saber el valor final mas el IVA"

   Leer A

    IVA <- (21*A)/100

    B <- A+IVA

    Escribir "El valor del IVA que es del 21% es: " IVA;

    Escribir " El valor final sumando el IVA es: " B;

Ingresar un número por teclado y determinar su representación en un día de la semana. Por ejemplo si se ingresa 3 deberá mostrar miércoles, si se ingresa 7 mostrará domingo; pero si se ingresa un número fuera del rango entre 1 y 7 mostrar el mensaje “Error Intente con un nuevo número”

Escribir " Ingrese un número para saber que día de la semana es"
    Leer A

    Segun A Hacer
        1:
            Escribir "El día es lunes: "
        2:
            Escribir "El día es martes: "
        3:
            Escribir "El día es miercoles: "
        4:
            Escribir "El día es jueves: "
        5:
            Escribir "El día es viernes: "
        6:
            Escribir "El día es sabado: "
        7:
            Escribir "El día es domingo: "

        De Otro Modo:
            Escribir "Error intente con un nuevo número: "
        Fin Segun

Calcular el promedio de un estudiante dadas tres calificaciones, las cuales deberán ser ingresadas por teclado. Si el promedio es mayor o igual a 6, se deberá mostrar un mensaje que indique “APROBADO”. En caso contrario, el mensaje deberá ser “REPROBADO”.

Escribir "Ingrese el monto total de la compra"
    Leer A

    Escribir "Ingrese el mes de forma numérica en que se encuentre"
    Leer B

    descu<- (15*A)/100

    C<- A-descu

    Si B=10 Entonces

        Escribir "El total de la compra mas el descuento es ", C ;

    Sino
        Escribir "No estas en el mes del descuento por lo tanto tu precio es: " A ;


    Fin Si

Una tienda ofrece a sus clientes un descuento del 15% sobre el total de la compra durante el mes de octubre. Calcular el importe que se deberá cobrar al cliente y mostrar por pantalla

Escribir " Ingrese el mes "
    Leer A
    Escribir "ingrese el total de la compra "
    Leer B

    descuento <- (15*B)/100
    C <- B - descuento

    Si A = "octubre" Entonces
        Escribir "El descuento del 15% del total de la compra por estar en Octubre es: ", C
    Sino

        Escribir "el total es de: " B

    FinSi

Calcular la cantidad de ladrillo para una sola aula o para aulas continuas

Escribir "Si usted quiere hacer un aula oprima 1, si quiere hacer dos oprima el 2";
Leer xn;

Si xn = 1 Entonces

Definir A,B,C,D,E,F,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Z,aa como reales;

Escribir "ingrese los siquientes datos";
Escribir "Altura maxima del aula";
Leer A;
Escribir "Altura de la pared";
Leer B;
Escribir "Medida de la superfice";
Leer C;
leer D;
F <- C * 2 + D * 2;
P<- F * B;
Escribir "El area de una pared es: ",P ;

Escribir "ingrese las medidas de la ventana";
Leer I;
Leer J;

Escribir "Ingrese las medidas de la puerta";
Leer K;
Leer L;

Q<- (I * J) + (K * L) ;

Escribir "El total de las aberturas es: ",Q;

R<- (F * B) - Q;
Escribir "El area de todas las paredes menos las aberturas es: ", R;

S<- A - B;
Escribir "La altura del triangulo es: ", S;
T<-((C * S) / 2) * 2;
Escribir "El area del triangulo por dos es: ", T;
Sino
si xn = 2 Entonces
Definir A,B,C,D,E,F,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Z,aa como reales;

Escribir "ingrese los siquientes datos";
Escribir "Altura maxima del aula";
Leer A;
Escribir "Altura de la pared";
Leer B;
Escribir "Medida de la superfice";
Leer C;
leer D;
F <- C * 4 + D * 3;
P<- F * B;
Escribir "El area de todas las paredes son: ",P ;

Escribir "ingrese las medidas de la ventana";
Leer I;
Leer J;

Escribir "Ingrese las medidas de la puerta";
Leer K;
Leer L;

Q<- (I * J)* 2 + (K * L)* 2;

Escribir "El total de las aberturas es: ",Q;

R<- (F * B) - Q;
Escribir "El area de las paredes menos las aberturas es: ", R;

S<- A - B;
Escribir "La altura del triangulo es: ", S;
T<-((C * S) / 2) * 4;
Escribir "El area del triangulo por dos es: ", T;
FinSi
FinSi

Escribir "Escoja el tipo de ladrillo que quiere, 3 común, 4 Hueco, 5 Bloque" ;
Leer U;
Si U = 3 Entonces
X<- (R * 60) + (T * 60) ;
v <- X * 7 ;

Escribir "La cantidad de ladrillos comunes a utilizar para hacer el aula es de: ", X, " la unidad cuesta $7, total a pagar ", v;

w <- (R * 15) + (T * 15);
z <- w * 30;

Escribir "La cantidad de ladrillos huecos a utilizar para hacer el aula es de: ", w," la unidad cuesta $30, total a pagar ", z;
a <- (R * 12) + (T * 12);
b <- a * 46;

Escribir "La cantidad de bloques a utilizar para hacer el aula es de: ", a, " la unidad cuesta $46, total a pagar ", b;

Sino
Si U = 4 Entonces
w <- (R * 15) + (T * 15);
z <- w * 30;

Escribir "La cantidad de ladrillos huecos a utilizar para hacer el aula es de: ", w, " la unidad cuesta $30, total a pagar ", z;
X<- (R * 60) + (T * 60) ;
v <- X * 7 ;

Escribir "La cantidad de ladrillos comunes a utilizar para hacer el aula es de: ", X, " la unidad cuesta $7, total a pagar ", v;
a <- (R * 12) + (T * 12);
b <- a * 46;

Escribir "La cantidad de bloques a utilizar para hacer el aula es de: ", a, " la unidad cuesta $46, total a pagar ", b;
Sino
si U = 5 entonces
a <- (R * 12) + (T * 12);
b <- a * 46;
Escribir "La cantidad de bloques a utilizar para hacer el aula es de: ", a, " la unidad cuesta $46, total a pagar ", b;
w <- (R * 15) + (T * 15);
z <- w * 30;

Escribir "La cantidad de ladrillos huecos a utilizar para hacer el aula es de: ", w, " la unidad cuesta $30, total a pagar ", z;
X<- (R * 60) + (T * 60) ;
v <- X * 7 ;

Escribir "La cantidad de ladrillos comunes a utilizar para hacer el aula es de: ", X, " la unidad cuesta $7, total a pagar ", v;

FinSi

FinSi

FinSi

N N

mayor = 0

menor = 999999999999

Escribir "cantidad de alumno"
leer A

Para I<-1 Hasta A Con Paso 1 Hacer
Escribir "Nombre y Apellido ", I
leer Nombre,Apellido
Escribir "sexo F/M"
leer C
Si C = "F" o C = "f" Entonces
cantF <- cantF+1
sino
cantM <- cantM+1
FinSi

Escribir "Escribir las notas"
leer D,E,F

suma <- D+E+F
prom <- suma/3

Si prom > mayor entonces
ApeMa = Apellido
NomMa = Nombre

mayor = prom

FinSi
Si prom < menor Entonces
ApeMe = Apellido
NomMe = Nombre

menor = prom;
FinSi

Fin Para

Escribir "El número mayor es: ", mayor, " - " , NomMA, " - ", ApeMa
Escribir "El numero menor es: ", Menor," - ", NomMe," - ",ApeME
Escribir "la cantidad de mujeres son: ",cantF
Escribir "cantidad de hombre es: ", cantM

N N

'Dim A, B, C, D As Integer

'Dim suma As Decimal

'suma = B + C

'Console.WriteLine("Ingrese la contraseña de 4 digitos")

'A = Console.ReadLine

'B = Console.ReadLine

'C = Console.ReadLine

'D = Console.ReadLine

'If A = B Then