Linha d'água de uma caixa retangular, Pascal

Linha d'água de uma caixa retangular

Language: Layout:

//fpc 3.0.0

program linhadagua;
uses crt;
var
    peso_caixa, dens_azeite, dens_liqui, dens_pvc:real;
    vol_caixa, vol_deslocado, linha_dagua , altu_azeite: real;
    peso_azeite:real;
begin
    writeln('Calculo da linha d agua');
    dens_pvc := 1.58;
    dens_azeite := 0.8905;
    dens_liqui := 1;
    vol_caixa := ((300 + 99.4+ 99.4)*80*0.3 + 99.4*149.4*0.3);
    peso_caixa := vol_caixa*dens_pvc;
    writeln('Densidade do pvc = ', dens_pvc:5:2,' gr/cm3 ');
    writeln('Densidade do azeite = ', dens_azeite:5:2,' gr/cm3 ');
    writeln('Densidade do liquido = ', dens_liqui:5:2,' gr/cm3 ');
    writeln('Peso da caixa  = ',peso_caixa:5:2,' gr ');
    linha_dagua := peso_caixa/(150*100*dens_liqui);
    writeln('Linha d agua = ', linha_dagua:10:2, ' cm');
    if (linha_dagua > 80) then
        writeln('A caixa afunda')
    else if ( linha_dagua = 80 ) then
        writeln('A caixa flutua, mas nao pode colocar azeite')
       else begin
           writeln('Colocando azeite');
           altu_azeite := 0;
           while (altu_azeite <= 79) do begin
              peso_azeite := dens_azeite* 149.4*79.4*altu_azeite;
              linha_dagua :=  (peso_caixa+peso_azeite)/(150*100*dens_liqui);
              writeln('Linha d agua da caixa = ',linha_dagua:5:2, ' linha do azeite = ',altu_azeite:5:2);
              if (linha_dagua >= 79 ) then exit;
              altu_azeite := altu_azeite + 1;
           end;       
       end;
end.

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

Calculo da linha d agua Densidade do pvc = 1.58 gr/cm3 Densidade do azeite = 0.89 gr/cm3 Densidade do liquido = 1.00 gr/cm3 Peso da caixa = 25953.57 gr Linha d agua = 1.73 cm Colocando azeite Linha d agua da caixa = 1.73 linha do azeite = 0.00 Linha d agua da caixa = 2.43 linha do azeite = 1.00 Linha d agua da caixa = 3.14 linha do azeite = 2.00 Linha d agua da caixa = 3.84 linha do azeite = 3.00 Linha d agua da caixa = 4.55 linha do azeite = 4.00 Linha d agua da caixa = 5.25 linha do azeite = 5.00 Linha d agua da caixa = 5.96 linha do azeite = 6.00 Linha d agua da caixa = 6.66 linha do azeite = 7.00 Linha d agua da caixa = 7.36 linha do azeite = 8.00 Linha d agua da caixa = 8.07 linha do azeite = 9.00 Linha d agua da caixa = 8.77 linha do azeite = 10.00 Linha d agua da caixa = 9.48 linha do azeite = 11.00 Linha d agua da caixa = 10.18 linha do azeite = 12.00 Linha d agua da caixa = 10.89 linha do azeite = 13.00 Linha d agua da caixa = 11.59 linha do azeite = 14.00 Linha d agua da caixa = 12.29 linha do azeite = 15.00 Linha d agua da caixa = 13.00 linha do azeite = 16.00 Linha d agua da caixa = 13.70 linha do azeite = 17.00 Linha d agua da caixa = 14.41 linha do azeite = 18.00 Linha d agua da caixa = 15.11 linha do azeite = 19.00 Linha d agua da caixa = 15.81 linha do azeite = 20.00 Linha d agua da caixa = 16.52 linha do azeite = 21.00 Linha d agua da caixa = 17.22 linha do azeite = 22.00 Linha d agua da caixa = 17.93 linha do azeite = 23.00 Linha d agua da caixa = 18.63 linha do azeite = 24.00 Linha d agua da caixa = 19.34 linha do azeite = 25.00 Linha d agua da caixa = 20.04 linha do azeite = 26.00 Linha d agua da caixa = 20.74 linha do azeite = 27.00 Linha d agua da caixa = 21.45 linha do azeite = 28.00 Linha d agua da caixa = 22.15 linha do azeite = 29.00 Linha d agua da caixa = 22.86 linha do azeite = 30.00 Linha d agua da caixa = 23.56 linha do azeite = 31.00 Linha d agua da caixa = 24.27 linha do azeite = 32.00 Linha d agua da caixa = 24.97 linha do azeite = 33.00 Linha d agua da caixa = 25.67 linha do azeite = 34.00 Linha d agua da caixa = 26.38 linha do azeite = 35.00 Linha d agua da caixa = 27.08 linha do azeite = 36.00 Linha d agua da caixa = 27.79 linha do azeite = 37.00 Linha d agua da caixa = 28.49 linha do azeite = 38.00 Linha d agua da caixa = 29.20 linha do azeite = 39.00 Linha d agua da caixa = 29.90 linha do azeite = 40.00 Linha d agua da caixa = 30.60 linha do azeite = 41.00 Linha d agua da caixa = 31.31 linha do azeite = 42.00 Linha d agua da caixa = 32.01 linha do azeite = 43.00 Linha d agua da caixa = 32.72 linha do azeite = 44.00 Linha d agua da caixa = 33.42 linha do azeite = 45.00 Linha d agua da caixa = 34.12 linha do azeite = 46.00 Linha d agua da caixa = 34.83 linha do azeite = 47.00 Linha d agua da caixa = 35.53 linha do azeite = 48.00 Linha d agua da caixa = 36.24 linha do azeite = 49.00 Linha d agua da caixa = 36.94 linha do azeite = 50.00 Linha d agua da caixa = 37.65 linha do azeite = 51.00 Linha d agua da caixa = 38.35 linha do azeite = 52.00 Linha d agua da caixa = 39.05 linha do azeite = 53.00 Linha d agua da caixa = 39.76 linha do azeite = 54.00 Linha d agua da caixa = 40.46 linha do azeite = 55.00 Linha d agua da caixa = 41.17 linha do azeite = 56.00 Linha d agua da caixa = 41.87 linha do azeite = 57.00 Linha d agua da caixa = 42.58 linha do azeite = 58.00 Linha d agua da caixa = 43.28 linha do azeite = 59.00 Linha d agua da caixa = 43.98 linha do azeite = 60.00 Linha d agua da caixa = 44.69 linha do azeite = 61.00 Linha d agua da caixa = 45.39 linha do azeite = 62.00 Linha d agua da caixa = 46.10 linha do azeite = 63.00 Linha d agua da caixa = 46.80 linha do azeite = 64.00 Linha d agua da caixa = 47.51 linha do azeite = 65.00 Linha d agua da caixa = 48.21 linha do azeite = 66.00 Linha d agua da caixa = 48.91 linha do azeite = 67.00 Linha d agua da caixa = 49.62 linha do azeite = 68.00 Linha d agua da caixa = 50.32 linha do azeite = 69.00 Linha d agua da caixa = 51.03 linha do azeite = 70.00 Linha d agua da caixa = 51.73 linha do azeite = 71.00 Linha d agua da caixa = 52.43 linha do azeite = 72.00 Linha d agua da caixa = 53.14 linha do azeite = 73.00 Linha d agua da caixa = 53.84 linha do azeite = 74.00 Linha d agua da caixa = 54.55 linha do azeite = 75.00 Linha d agua da caixa = 55.25 linha do azeite = 76.00 Linha d agua da caixa = 55.96 linha do azeite = 77.00 Linha d agua da caixa = 56.66 linha do azeite = 78.00 Linha d agua da caixa = 57.36 linha do azeite = 79.00