-
Lenguaje
Pascal
-
Descripción
Un tonel es un recipiente, generalmente de madera, muy utilizado para almacenar y mejorar un vino. La forma de un tonel es muy característica y es un cilindro en el que la parte central es más gruesa, es decir, tiene un diámetro mayor que los extremos. Escriba un programa que lea las medidas de un tonel y nos devuelva su capacidad, teniendo en cuenta que el volumen (V) de un tonel viene dado por la siguiente fórmula: V = π l a² donde:
l es la longitud del tonel,
su altura. a = d/2 + 2/3(D/2 - d/2)
d es el diámetro del tonel en sus extremos.
D es el diámetro del tonel en el centro: D>d
Nota: Observe que si las medidas se dan en centímetros el resultado lo obtenemos en centímetros cúbicos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program VolumenDeUnTonel;
uses crt, math;
var a, diametro_en_centro, diametro_en_extremos, longitud_del_tonel, volumen : real;
begin
write ('Ingresa el valor de diametro en centro: ');
readln (diametro_en_centro);
write ('Ingresa el valor de diametro en extremos: ');
readln (diametro_en_extremos);
write ('Ingresa el valor de longitud del tonel: ');
readln (longitud_del_tonel);
a := diametro_en_extremos/2.0+2.0/3.0*(diametro_en_centro/2.0-diametro_en_extremos/2.0);
volumen := PI*longitud_del_tonel*a*a;
writeln ('Valor de a: ', a:0:6);
writeln ('Valor de volumen: ', volumen:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var a, diametro_en_centro, diametro_en_extremos, longitud_del_tonel, volumen : real;
begin
write ('Ingresa el valor de diametro en centro: ');
readln (diametro_en_centro);
write ('Ingresa el valor de diametro en extremos: ');
readln (diametro_en_extremos);
write ('Ingresa el valor de longitud del tonel: ');
readln (longitud_del_tonel);
a := diametro_en_extremos/2.0+2.0/3.0*(diametro_en_centro/2.0-diametro_en_extremos/2.0);
volumen := PI*longitud_del_tonel*a*a;
writeln ('Valor de a: ', a:0:6);
writeln ('Valor de volumen: ', volumen:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.