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. |
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. |
{ 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");
} |
#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);
}
} |
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.
-
InfusTec
-
4.473 views
- 0 comentários
- 18 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo