Question

Se debe de solicitar/pedir el valor de dos números cualesquiera (A y B) y verificar que sean diferentes de cero, si no son diferentes de cero se deberán solicitar de nuevo, posteriormente se pide realizar la operación de división que se represente con la letra “D” utilizando las siguientes expresiones; D1=A/B y D2=B/A. Por último, se tiene que dar a conocer cada uno de los resultados por impresora agregando la información si es positivo o si es negativo.

Answer 1

Código del programa:

Var A : Numerico;

Var B : Numerico;

Var D1 : Numerico;

Var D2 : Numerico;

Inicio

A<-0;

B<-0;

D1<-0;

D2<-0;

Escribir ("Ingrese el valor de el primer número :");

Leer A;

Escribir ("Ingrese el valor de el segundo número :");

Leer B;

Si A=0 hacer

Escribir("Ingrese un nuevo valor para A que sea distinto de cero :");

Leer A;

Fin si

Si B=0 hacer

Escribir("Ingrese un nuevo valor para B que sea distinto de cero :");

Leer B;

Fin si

D1= A/B

D2= B/A

Si D1<0 hacer:

Escribir(" A/B da como resultado un numero negativo");

Si no

Escribir ("A/B da como resultdo un numero positivo ").

Fin si

Si D2<0 hacer;

Escribir(" B/A da como resultado un numero negativo");

Si no

Escribir ("B/A da como resultdo un numero positivo ").

Fin si

Fin