Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
P170815A - Cálculo da massa de um tanque
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.
run
|
edit
|
history
|
help
0
practica 3 ejercicio B6
yghgh
Calculatrice 1.0
Opdracht_1
aaaaaaa
подсчёт кратчайших путей
a 3 .b
shift array to left_new
Tri1
Cek dua pangkat