-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Se tiene un terreno A cuadrado que mide LADO metros por lado a un precio COSTOA por metro cuadrado y se tiene un terreno B rectangular que mide BASE metros de base y ALTURA metros de altura a un COSTOB por metro cuadrado. Elaborar un algorito que lea los datos de los dos terrenos e imprima cual es el más barato o si cuestan igual.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Proceso CostoDeTerrenos
Escribir Sin Saltar "Ingresa el valor de ALTURA:";
Leer ALTURA;
Escribir Sin Saltar "Ingresa el valor de BASE:";
Leer BASE;
Escribir Sin Saltar "Ingresa el valor de COSTOA:";
Leer COSTOA;
Escribir Sin Saltar "Ingresa el valor de COSTOB:";
Leer COSTOB;
Escribir Sin Saltar "Ingresa el valor de LADO:";
Leer LADO;
terreno_A <- LADO*LADO*COSTOA;
terreno_B <- BASE*ALTURA*COSTOB;
Si terreno_A<terreno_B Entonces
Escribir "El terrneo A es más barato.";
FinSi
Si terreno_A = terreno_B Entonces
Escribir "Los terrenos cuestan igual.";
FinSi
Si terreno_A>terreno_B Entonces
Escribir "El terrneo B es más barato.";
FinSi
Escribir "Valor de terreno A: ", terreno_A;
Escribir "Valor de terreno B: ", terreno_B;
FinProceso
Escribir Sin Saltar "Ingresa el valor de ALTURA:";
Leer ALTURA;
Escribir Sin Saltar "Ingresa el valor de BASE:";
Leer BASE;
Escribir Sin Saltar "Ingresa el valor de COSTOA:";
Leer COSTOA;
Escribir Sin Saltar "Ingresa el valor de COSTOB:";
Leer COSTOB;
Escribir Sin Saltar "Ingresa el valor de LADO:";
Leer LADO;
terreno_A <- LADO*LADO*COSTOA;
terreno_B <- BASE*ALTURA*COSTOB;
Si terreno_A<terreno_B Entonces
Escribir "El terrneo A es más barato.";
FinSi
Si terreno_A = terreno_B Entonces
Escribir "Los terrenos cuestan igual.";
FinSi
Si terreno_A>terreno_B Entonces
Escribir "El terrneo B es más barato.";
FinSi
Escribir "Valor de terreno A: ", terreno_A;
Escribir "Valor de terreno B: ", terreno_B;
FinProceso