• Lenguaje

    Pascal

  • Descripción

    Calcular el área de un rombo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program AreaDeUnRombo;
uses crt;

var area, diagonal_mayor, diagonal_menor : real;
begin
    write ('Ingresa el valor de diagonal mayor: ');
    readln (diagonal_mayor);
    write ('Ingresa el valor de diagonal menor: ');
    readln (diagonal_menor);
    area := diagonal_mayor*diagonal_menor/2;
    writeln ('Valor de area: ', area:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.