Escrever um algoritmo e um programa para calcular e apresentar o valor do volume de uma lata de óleo, utilizando a fórmula: VOLUME = PI * r2 * ALTURA. Onde “r” é igual ao raio da circunferência da lata.
Fala galerinha da comunidade Show Delphi, tudo beleza?
Vamso a um novo exercício de algoritmo de comandos sequenciais. Este tipo de algoritmo são os mais básicos, ideais para quem está começando em programação.
Como de costume, vamos “fatiar” a pergunta para facilitar a formulação da resposta.
Escrever um algoritmo e um programa para calcular e apresentar o valor do volume de uma lata de óleo,
utilizando a fórmula: VOLUME = PI * r2 * ALTURA. Onde “r” é igual ao raio da circunferência da lata.
Como a pergunta é pequena, vamos separar em 3 partes:
solicitar dados ao usuário (leitura de dados)
processamento (Calculando o volume)
impressão (Saída – Mostrando os resultados na tela)
Muito bem, vamos as sugestões de resposta.
Sugestão de resposta do algoritmo em linguagem algorítmica:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| programa AlgoritmoSequencial0007;
var
vAltura, vRaio, vVolume : Real;
inicio
// parte 1
escreva('Informe a altura da lata.');
leia(vAltura);
escreva('Informe o raio da circunferência da lata.');
leia(vRaio);
// parte 2
vVolume := 3.14 * (vRaio * vRaio) * vAltura;
// parte 3
escreva('O volume da lata é: ', (vVolume));
fim. |
programa AlgoritmoSequencial0007;
var
vAltura, vRaio, vVolume : Real;
inicio
// parte 1
escreva('Informe a altura da lata.');
leia(vAltura);
escreva('Informe o raio da circunferência da lata.');
leia(vRaio);
// parte 2
vVolume := 3.14 * (vRaio * vRaio) * vAltura;
// parte 3
escreva('O volume da lata é: ', (vVolume));
fim.
Como é de praxe, também fornecemos uma sugestão de resposta em pascal.
Sugestão de resposta em Pascal, Delphi Console, Lazarus
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| { Para escrever acentos em pascal, devemos usar a tabela ASCII. }
program Prj00007AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
vAltura, vRaio, vVolume : Real;
begin
SetConsoleTitle('Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.');
Write('Informe a altura da lata: ');
Readln(vAltura);
Write(#10#13 + 'Informe o raio da circunferencia da lata: ');
Readln(vRaio);
vVolume := 3.14 * Sqr(vRaio) * vAltura;
Writeln('O volume da lata é: ', vVolume :0:2);
Write('Tecle "Entrer" para sair.');
Readln;
end. |
{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
program Prj00007AlgoritmosSequencias;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
vAltura, vRaio, vVolume : Real;
begin
SetConsoleTitle('Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.');
Writeln('Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.');
Write('Informe a altura da lata: ');
Readln(vAltura);
Write(#10#13 + 'Informe o raio da circunferencia da lata: ');
Readln(vRaio);
vVolume := 3.14 * Sqr(vRaio) * vAltura;
Writeln('O volume da lata é: ', vVolume :0:2);
Write('Tecle "Entrer" para sair.');
Readln;
end.
Por pedidos dos usuários, também disponibilizamos uma resposta em C.
Sugestão de resposta em C, C++ / C Builder
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| #include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
//---------------------------------------------------------------------------
#pragma argsused
void _tmain(){
SetConsoleTitleA("Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme a altura da lata: ");
float vAltura;
scanf("%f", &vAltura);
printf("\nInforme o raio da circunferência da lata: ");
float vRaio;
scanf("%f", &vRaio);
float vVolume = 3.14 * (vRaio * vRaio) * vAltura;
printf("\nO volume da lata é: %-7.2f", (vVolume));
printf("\n\n");
system("pause");
} |
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
//---------------------------------------------------------------------------
#pragma argsused
void _tmain(){
SetConsoleTitleA("Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.");
printf("Algoritmo 00007 - Algoritmos sequenciais. Show Delphi.\n");
system("chcp 1252 > nul");
printf("\nInforme a altura da lata: ");
float vAltura;
scanf("%f", &vAltura);
printf("\nInforme o raio da circunferência da lata: ");
float vRaio;
scanf("%f", &vRaio);
float vVolume = 3.14 * (vRaio * vRaio) * vAltura;
printf("\nO volume da lata é: %-7.2f", (vVolume));
printf("\n\n");
system("pause");
}
Também por pedidos dos usuários, criamos uma sugestão de resposta em JAVA.
Sugestão de resposta em Java com NetBeans
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| package exercicio9;
import javax.swing.JOptionPane;
/**
*
* @author Franciele Benedetti
*/
public class Exercicio9 {
/**
* @param args the command line arguments
*/
public static void main(String[] args) {
Double volume;
Double pi = 3.14;
Double r;
Double altura;
System.out.println("Informe o raio da circunferência");
r = Double.parseDouble(JOptionPane.showInputDialog("Informe o raio"));
System.out.println("Informe a altura");
altura = Double.parseDouble(JOptionPane.showInputDialog("Informe a altura"));
volume = pi * (r*r)*altura;
System.out.println("O valor do volume de uma lata de óleo é" + volume);
}
} |
package exercicio9;
import javax.swing.JOptionPane;
/**
*
* @author Franciele Benedetti
*/
public class Exercicio9 {
/**
* @param args the command line arguments
*/
public static void main(String[] args) {
Double volume;
Double pi = 3.14;
Double r;
Double altura;
System.out.println("Informe o raio da circunferência");
r = Double.parseDouble(JOptionPane.showInputDialog("Informe o raio"));
System.out.println("Informe a altura");
altura = Double.parseDouble(JOptionPane.showInputDialog("Informe a altura"));
volume = pi * (r*r)*altura;
System.out.println("O valor do volume de uma lata de óleo é" + volume);
}
}
Acredito que tenha ficado bem explicado pessoal e espero que ajude a todos.
Dúvidas ou sugestões? deixe o seu comentário!
Um abraço e até a próxima. Valeu!
-
InfusTec
-
38.531 views
- 0 comentários
- 13 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo