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