Pascal – o básico! – Parte 14

22, fevereiro 2007 at 4:32 pm Deixe um comentário

Este exercício deu trabalho, foi difícil a interpretação. Calcular e exibir o volume livre que contém uma esfera de raio digitado pelo usuário inscrita em um cubo perfeito de aresta também digitada pelo usuário.

Demorei para entender que era para subtrair o volume do cubo pelo da esfera.

=============código fonte=============

Program Ex14;

Uses
Crt;
Var
aresta,raio,volumeLivre : Real;

Begin
ClrScr;
Write(‘Digite o valor da aresta:’);
ReadLn(aresta);
Write(‘Digite o valor do raio:’);
ReadLn(raio);
volumeLivre:=Sqr(aresta)*aresta-4/3*PI*Sqr(raio)*raio;
WriteLn(‘O volume livre e: ‘,volumeLivre:3:1);
ReadKey;
End.

=============código fonte=============

Leia também:
Blog Cha Verde

Anúncios

Entry filed under: CEFET, Estudos, Pascal, Software, Tecnologia.

Pascal – o básico! – Parte 13 Pascal – o básico! – Parte 15

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Agenda

fevereiro 2007
S T Q Q S S D
« jan   mar »
 1234
567891011
12131415161718
19202122232425
262728  

Most Recent Posts


%d blogueiros gostam disto: