Peso de cuatro esferas en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Leer el peso de cuatro esferas (A, B, C, D) de las cuales se sabe que tres son de igual peso y una diferente. Elaborar un algoritmo que determine cuál es la esfera diferente y si es de mayor o menor peso.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

Proceso PesoDeCuatroEsferas

    Escribir Sin Saltar "Ingresa el valor de A:";

    Leer A;

    Escribir Sin Saltar "Ingresa el valor de B:";

    Leer B;

    Escribir Sin Saltar "Ingresa el valor de C:";

    Leer C;

    Escribir Sin Saltar "Ingresa el valor de D:";

    Leer D;

    peso_normal <- 0;

    peso_diferente <- 0;

    Si A = B Y B = C Entonces

        Escribir "D es la esfera diferente.";

        peso_normal <- A;

    SiNo

        peso_diferente <- D;

    FinSi

    Si B = C Y C = D Entonces

        Escribir "A es la esfera diferente.";

        peso_normal <- B;

    SiNo

        peso_diferente <- A;

    FinSi

    Si C = D Y D = A Entonces

        Escribir "B es la esfera diferente.";

        peso_normal <- C;

    SiNo

        peso_diferente <- C;

    FinSi

    Si D = A Y A = B Entonces

        Escribir "C es la esfera diferente.";

        peso_normal <- D;

    SiNo

        peso_diferente <- C;

    FinSi

    Si peso_diferente<peso_normal Entonces

        Escribir "Menor peso.";

    SiNo

        Escribir "Mayor peso.";

    FinSi

    Escribir "Valor de peso diferente: ", peso_diferente;

    Escribir "Valor de peso normal: ", peso_normal;

FinProceso