-
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
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.
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.