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