Page 68 - Introduccion a la Programacion

68 Introducción a la Programación

PRUEBA DE ESCRITORIO

AREAS_PRISMA

perimetro apotema altura aBase aLateral aTotal

0 0 0 0 0 0

5 3 2 7.5 5 20

ALGORITMO EN PseInt
PRUEBA DE ESCRITORIO EN PseInt

1. </ Escribe un algoritmo que calcule el área total, lateral y el
área
2. </ de la base de un prisma pentagonal, solicitando para esto el
3. </ perímetro de la base, apotema y altura del prisma.
4. Algoritmo AREAS PRISMA
5. DEFINIR perimetro, apotema, altura, aTotal, aLateral, aBase
Como REAL;
6. perimetro <- 0;
7. apotema <- 0;
8. altura <- 0;
9. aTotal <- 0;
10. aLateral<- 0;
11. aBase <- 0;
12. ESCRIBIR “Ingrese el perímetro de la base: “;
13. LEER perimetro;
14. ESCRIBIR “Ingrese la Apotema: “;
15. LEER apotema;
16. ESCRIBIR “Ingrese la Altura: “;
17. LEER altura;
18. aBase <- (perimetro * apotema) / 2;
19. aLateral <- (perimetro * altura) / 2;
20. aTotal <- (2 * aBase) + aLateral;
21. ESCRIBIR “El área de la base es: “;
22. ESCRIBIR aBase;
23. ESCRIBIR “El área lateral es: “;
24. ESCRIBIR aLateral;