Régua Para tanque cilindrico horizontal, Pascal

Régua Para tanque cilindrico horizontal

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.


run \| edit \| history \| help	0