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. – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

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.

 

 

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
programa AlgoritmoSequencial0007; 
 
var 
  vAltura, vRaio, vVolume : Real; 
inicio 
 
  escreva('Informe a altura da lata.'); 
  leia(vAltura);
 
  escreva('Informe o raio da circunferência da lata.'); 
  leia(vRaio); 
 
  vVolume := 3.14 * (vRaio * vRaio) * vAltura; 
 
  escreva('O volume da lata é: ', (vVolume)); 
 
fim.

 

Sugestão de resposta em Pascal / Delphi Console.

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(#10#13 + '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 '#130': ', vVolume :0:2);
 
  Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
  Readln;
 
end.

 

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");
}

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);
    }   
}

Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.

Facebook Comments

Posts Relacionados

  • Administrador
  • 3.715 views
  • 0 comentários
  • 13 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados