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

Uma loja de animais precisa de um programa para calcular os custos de criação de coelhos. O custo é calculado com a fórmula : CUSTO = (70% do NR_COELHOS) / 18 + 10. Escrever um algoritmo e um programa que leia o número de coelhos, calcule o custo de criação e mostre o custo calculado.

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
programa AlgoritmoSequencial0012; 
 
var 
  vNumCoelhos : Inteiro;
  vCusto : Real; 
inicio 
 
  escreva('Informe o número de coelhos.'); 
  leia(vNumCoelhos);
 
  vCusto := vNumCoelhos / 18 + 10; 
 
  escreva('O custo de criação é: ', (vCusto)); 
 
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
30
31
32
{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00012AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
var
  vNumCoelhos : Integer;
  vCusto : Currency;
begin
  try
    SetConsoleTitle('Algoritmo 00012 - Algoritmos sequenciais. Show Delphi.');
    Writeln('Algoritmo 00012 - Algoritmos sequenciais. Show Delphi.');
 
    Write(#10#13 + 'Informe o numero de coelhos: ');
    Readln(vNumCoelhos);
 
    vCusto := vNumCoelhos / 18 + 10;
 
    Writeln('O custo de criacao e: ', vCusto :0:2);
 
    Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
    Readln;
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
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
#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 00012 - Algoritmos sequenciais. Show Delphi.");
	printf("Algoritmo 00012 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	printf("\nInforme o número de coelhos: ");
	int vNumCoelhos;
	scanf("%d", &vNumCoelhos);
 
	float vCusto = float(vNumCoelhos) / 18 + 10;
 
	printf("\nO custo de criação é: %-7.2f", (vCusto));
 
	printf("\n\n");
	system("pause");
}

Sugestão de resposta em Java.

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
package exercicio17;
 
import javax.swing.JOptionPane;
 
/**
 *
 * @author Franciele Benedetti
 */
public class Exercicio17 {
 
    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
 
        int numerosCoelhos;
        Double custoCriacao;
 
        System.out.println("Informe o número de coelhos ");
        numerosCoelhos = Integer.parseInt(JOptionPane.showInputDialog("Informe o número de coelhos"));
 
        custoCriacao = (0.7 * numerosCoelhos ) / 18 + 10;
 
 
        System.out.println("O custo calculado é de " +  custoCriacao);
    }
}

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

Facebook Comments Box
  • InfusTec
  • 4.473 views
  • 0 comentários
  • 18 de abril de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Deixe um comentário

Ir ao topo

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