P170815A - Cálculo da massa de um tanque, Pascal

Language: Layout:

program P170815A;
USES CRT;
VAR
    V, M, D, H, E : REAL;
begin
     { se estiver rodando no desktop ou no Smartphone retire 
       o comentário das linhas 14 e 21. 
     }
     D := 180;  { Em centímetros }
     H := 200;  { Em centímetros }
     E := 0.635; { Em centímetros 1/4" }
     
     {
     write ('Digite o diametro em cm: ');
     readln(D);
     write ('Digite a altura em cm: ');
     readln(H);
     write ('Digite a espessura da chapa em cm: ');
     readln(E);
     } 
     { CALCULO DO VOLUME } 
     V := (H*PI*D + 2*PI*SQR(D/2))*E;
     
     { TRANSFORMANDO V DE CM3 (centímetro cúbico) 
       PARA M3 (metro cúbico) }
     V := V/1000000;
     { CALCULANDO A MASSA }
     M := V*7850;
     WRITELN('A massa do tanque é : ', M:10:2, ' KG ');
     { ESTA PARTE NÃO EXPLIQUEI AINDA } 
     
     IF ( M > 500) THEN 
     BEGIN
         M := 500 - ((2*PI*SQR(D/2)*E)/1000000)*7850;
         IF (M > 0 ) THEN BEGIN
             H := M /(PI*D*E*7850/1000000);
             WRITE('Altura para 500 kg e de: ',H:10:2,' m');
         END ELSE begin
              H := M /(PI*D*E*7850/1000000);
             WRITELN ('Nao eh possivel que o tanque possa ter menos de 500 kg. ',H:10:2,' m foi o valor encontrado para altura');
             WRITELN ('A massa das duas tampas: ',((2*PI*SQR(D/2)*E)/1000000)*7850:10:2, ' kg');
         end;    
     END;    
end.

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