VisualgMaster

Bem vindo ao fórum visualgmaster, tudo relacionado ao visualg, tire suas dúvidas, resolva seus algoritmos.
 
InícioInício  PortalPortal  FAQFAQ  BuscarBuscar  Registrar-seRegistrar-se  MembrosMembros  GruposGrupos  Conectar-se  

Compartilhe | 
 

 Troco Moedas e Notas (Ajudem!)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Braga
Novato
Novato


Masculino
Número de Mensagens : 5
Idade : 29
Localização : Itajubá/MG - Lavras/MG
Data de inscrição : 14/04/2009

MensagemAssunto: Troco Moedas e Notas (Ajudem!)   Ter Abr 14, 2009 8:15 pm

Escrever um algoritmo que lê um valor em reais e calcula a decomposição do valor em notas de 10 e 5 e moedas de 1, 0.50, 0.25, 0.10, 0.05 e 0.01.

Agradeceria se alguem me ajudar.
Resolvi assim, Está Correto? affraid

program exercicio15;
uses crt;
var
i:integer;
resto_anterior:integer;
valor:integer;
nota:array [1..8]of integer;
n_notas:array[1..8]of integer;
begin
write('Digite a quantia de dinheiro que deseje consultar: ');
read(valor);
for i:=1 to 8 do
begin
write('Digite o valor da nota ',i,' : ');
read(nota[i]);
end;
for i:=1 to 8 do
begin
n_notas[i]:=(valor div nota[i]);
valor:=(valor mod nota[i]);
end;
writeln('A quantidade de notas e: ');
for i:=1 to 8 do
begin
writeln('Nota de ',nota[i],' : ',n_notas[i]);
end;
readkey;
end.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Braga
Novato
Novato


Masculino
Número de Mensagens : 5
Idade : 29
Localização : Itajubá/MG - Lavras/MG
Data de inscrição : 14/04/2009

MensagemAssunto: Re: Troco Moedas e Notas (Ajudem!)   Qui Abr 16, 2009 3:46 pm

Braga escreveu:
Escrever um algoritmo que lê um valor em reais e calcula a decomposição do valor em notas de 10 e 5 e moedas de 1, 0.50, 0.25, 0.10, 0.05 e 0.01.

Agradeceria se alguem me ajudar.
Resolvi assim, Está Correto? affraid

program exercicio15;
uses crt;
var
i:integer;
resto_anterior:integer;
valor:integer;
nota:array [1..8]of integer;
n_notas:array[1..8]of integer;
begin
write('Digite a quantia de dinheiro que deseje consultar: ');
read(valor);
for i:=1 to 8 do
begin
write('Digite o valor da nota ',i,' : ');
read(nota[i]);
end;
for i:=1 to 8 do
begin
n_notas[i]:=(valor div nota[i]);
valor:=(valor mod nota[i]);
end;
writeln('A quantidade de notas e: ');
for i:=1 to 8 do
begin
writeln('Nota de ',nota[i],' : ',n_notas[i]);
end;
readkey;
end.

Na verdade deveria ser assim,

var
i:integer;
resto_anterior:integer;
valor:real;
nota:array [1..8]of real;
n_notas:array[1..8]of integer;

Mas se eu fazer isso, da erro de incompatibilidade de tipo nas variaveis no Dev-Pascal nessas duas linhas:

n_notas[i]:=(valor div nota[i]);
valor:=(valor mod nota[i]);

MAs o algoritmo em si está correto? Wink
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Troco Moedas e Notas (Ajudem!)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
VisualgMaster :: VisualgMaster :: Pedidos de algoritmos-
Ir para: