• Lenguaje

    Pascal

  • Descripción

    Calcula el perímetro de un elipse

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

var perimetro, semieje_a, semieje_b : real;
begin
    write ('Ingresa el valor de semieje a: ');
    readln (semieje_a);
    write ('Ingresa el valor de semieje b: ');
    readln (semieje_b);
    perimetro := PI*(3.0*(semieje_a+semieje_b)-sqrt((3.0*semieje_a+semieje_b)*(semieje_a+3.0*semieje_b)));
    writeln ('Valor de perimetro: ', perimetro:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.