Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Menezes
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
Бассейн-8
CON YÊU MẸ
basketball_player_training
1486
practica 7 ejercicio B4
Elevador Versão Pascal StringList
Pascal First
3
сумма чётных и нечётных чисел
ariketa 09