Perímetro, área y diagonal de un rectángulo en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcular el perímetro, área y la diagonal de un rectángulo si se ingresan los lados.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program PerimetroAreaYDiagonalDeUnRectangulo;

uses crt, math;

var area, diagonal, lado_mayor, lado_menor, perimetro : real;

begin

    write ('Ingresa el valor de lado mayor: ');

    readln (lado_mayor);

    write ('Ingresa el valor de lado menor: ');

    readln (lado_menor);

    perimetro := lado_menor*2+lado_mayor*2;

    area := lado_menor*lado_mayor;

    diagonal := sqrt(lado_menor*lado_menor+lado_mayor*lado_mayor);

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

    writeln ('Valor de diagonal: ', diagonal:0:6);

    writeln ('Valor de perimetro: ', perimetro:0:6);

    writeln;

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

    readkey;

end.