forked from josedom24/curso_programacion
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathejercicio2.psc
27 lines (26 loc) · 1.07 KB
/
ejercicio2.psc
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
//################################################################################
//Calcular el perímetro y área de un rectángulo dada su base y su altura.
//################################################################################
//Análisis
//Tenemos que leer la base y la altura del triangulo y calcular el perímetro y el
//área
//Datos de entrada: base(real), altura(real)
//Información de salida: perímetro(real) y área(real)
//Variables: base, altura, perimetro y area (Real)
//################################################################################
//Diseño
//1. Leer base y altura
//2. Calcular perímetro(2*base + 2*altura)
//3. Calcular área (base * altura
//4. Mostrar perímetro y área
//################################################################################
Proceso Rectangulo
Definir base,altura,perimetro,area Como Real;
Escribir "Introduce la base:";
Leer base;
Escribir "Introduce la altura:";
Leer altura;
perimetro <- 2 * base + 2 * altura;
area <- base * altura;
Escribir "El perímetro es ",perimetro," y el área es ",area;
FinProceso