Área de triángulo, rectángulo y pentágono en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcular el área de un triángulo, rectángulo y pentágono en donde el usuario va a ingresar la medida de los lados.

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

program AreaDeTrianguloRectanguloYPentagono;

uses crt, math;

var altura_del_rectangulo, altura_del_triangulo, area_del_pentagono, area_del_rectangulo, area_del_triangulo : real;

var base_del_rectangulo, base_del_triangulo, lado_del_pentagono : real;

begin

    write ('Ingresa el valor de altura del rectangulo: ');

    readln (altura_del_rectangulo);

    write ('Ingresa el valor de altura del triangulo: ');

    readln (altura_del_triangulo);

    write ('Ingresa el valor de base del rectangulo: ');

    readln (base_del_rectangulo);

    write ('Ingresa el valor de base del triangulo: ');

    readln (base_del_triangulo);

    write ('Ingresa el valor de lado del pentagono: ');

    readln (lado_del_pentagono);

    area_del_triangulo := base_del_triangulo*altura_del_triangulo/2;

    area_del_rectangulo := base_del_rectangulo*altura_del_rectangulo;

    area_del_pentagono := 5.0*lado_del_pentagono*lado_del_pentagono*tan(PI*3.0/10.0)/4.0;

    writeln ('Valor de area del pentagono: ', area_del_pentagono:0:6);

    writeln ('Valor de area del rectangulo: ', area_del_rectangulo:0:6);

    writeln ('Valor de area del triangulo: ', area_del_triangulo:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.