Régua Para tanque cilindrico horizontal, Pascal

Régua Para tanque cilindrico horizontal

Language: Layout:

program VT2;
uses crt, math;
var
    raio, alfa, area, volume, comprimento : real;
    volum, x, meiotanque : real;

begin
    writeln('Calculo de uma regua de indicacao de volume ');
    writeln('por litro de um tanque cilindrico horizontal');
    writeln('de 2 m de diametro por 8 metros de comprimento');
    writeln();
    writeln('Todas as medidas em decimetros, pois 1 litro = 1 dcm3');
    raio := 10; 
    comprimento := 80;
    volum := pi*sqr(raio)*comprimento;
    writeln('Capacidade total com o tanque em posição vertical ',volum:10:2,' litros');
    x := 0;
    while x <= raio do begin
        volume := (sqr(raio)/2) * (2*arccos((raio-x)/raio) -sin(2*arccos((raio-x)/raio)))*comprimento;
        writeln(x*10:3:0,' cm = ', volume:10:2,' litros');
        x := x + 0.5;    
    end;
    writeln();
    writeln('Estamos na metade do tanque');
    meiotanque := volume;
    x := x - 1;
    while  x >= 0 do begin 
        volume := meiotanque + meiotanque-(sqr(raio)/2) * (2*arccos((raio-x)/raio) -sin(2*arccos((raio-x)/raio)))*comprimento;
        writeln((20-x)*10:3:0,' cm = ', volume:10:2,' litros');
        x := x - 0.5;    
    end;
    
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.52 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,72 sec

Calculo de uma regua de indicacao de volume por litro de um tanque cilindrico horizontal de 2 m de diametro por 8 metros de comprimento Todas as medidas em decimetros, pois 1 litro = 1 dcm3 Capacidade total com o tanque em posição vertical 25132.74 litros 0 cm = 0.00 litros 5 cm = 167.38 litros 10 cm = 469.81 litros 15 cm = 856.37 litros 20 cm = 1308.01 litros 25 cm = 1813.25 litros 30 cm = 2363.99 litros 35 cm = 2954.04 litros 40 cm = 3578.36 litros 45 cm = 4232.73 litros 50 cm = 4913.48 litros 55 cm = 5617.35 litros 60 cm = 6341.39 litros 65 cm = 7082.90 litros 70 cm = 7839.38 litros 75 cm = 8608.44 litros 80 cm = 9387.83 litros 85 cm = 10175.40 litros 90 cm = 10969.04 litros 95 cm = 11766.70 litros 100 cm = 12566.37 litros Estamos na metade do tanque 105 cm = 13366.04 litros 110 cm = 14163.70 litros 115 cm = 14957.34 litros 120 cm = 15744.91 litros 125 cm = 16524.30 litros 130 cm = 17293.37 litros 135 cm = 18049.84 litros 140 cm = 18791.35 litros 145 cm = 19515.40 litros 150 cm = 20219.26 litros 155 cm = 20900.01 litros 160 cm = 21554.38 litros 165 cm = 22178.70 litros 170 cm = 22768.75 litros 175 cm = 23319.49 litros 180 cm = 23824.73 litros 185 cm = 24276.38 litros 190 cm = 24662.93 litros 195 cm = 24965.36 litros 200 cm = 25132.74 litros