Linha d'água de uma caixa retangular, Pascal

Linha d'água de uma caixa retangular

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


run \| edit \| history \| help	0