Escrever um algoritmo e um programa que leia o raio de uma circunferência. Calcular a área desta circunferência através da fórmula AREA = PI * (RAIO * RAIO). Mostrar a área da circunferência calculada. – 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 que leia o raio de uma circunferência. Calcular a área desta circunferência através da fórmula AREA = PI * (RAIO * RAIO). Mostrar a área da circunferência calculada.

 

 

Sugestão de resposta do algoritmo em linguagem algorítmica:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
programa AlgoritmoSequencial0005; 
 
var 
  area, raio : Real; 
inicio 
 
  escreva('Informe o raio de uma circunferência.'); 
  leia(raio); 
 
  area := 3.14 * (raio * raio); 
 
  escreva('A Área da circunferência é: ', (area)); 
 
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
{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00005AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  vPI = 3.14;
var
  vRaio, vArea : Real;
begin
  Writeln('Algoritmo 00005 - Algoritmos sequenciais. Show Delphi.');
 
  Write(#10#13 + 'Informe o raio de uma circunfer'#136'ncia: ');
  Readln(vRaio);
 
  vArea := vPI * Sqr(vRaio);
 
  Writeln(#10#13 + 'A '#160'rea da circunfer'#136'ncia '#130': ', (vArea) :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
#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(){
 
	printf("Algoritmo 00005 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	printf("\nInforme o raio de uma circunferência: ");
	float vRaio;
	scanf("%f", &vRaio);
 
	float vArea;
	vArea = 3.14 * (vRaio * vRaio);
 
	printf("\nA Área da circunferência é: %-7.2f", (vArea));
 
	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
package exercicio5;
 
import javax.swing.JOptionPane;
 
/**
 *
 * @author Franciele Benedetti
 */
public class Exercicio5 {
 
    public static void main(String[] args) {
        final Double pi = 3.14;
 
        System.out.println("Informe o raio da circunferencia");
        Double raio = Double.parseDouble(JOptionPane.showInputDialog("Informe o raio"));
 
        Double area = pi * (raio*raio);
 
        System.out.println("o raio da circunferencia é: " + area);
    }
 
}

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

Facebook Comments

Posts Relacionados

  • Administrador
  • 4.937 views
  • 0 comentários
  • 4 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