Pascal/Delphi Alguem pode me ajudar poque nao esta mostrando a porcentagem?

[Visitante]

Program Ex1 ;
var candidato, candidatoporcentagem, i: integer;
		votos10, votos20, votos30, votos40, votosnulos: real;
		votos10d, votos20d, votos30d, votos40d, votosnulosd: real;
Begin
	for i:= 1 to 5 do
	begin
		writeln('Digite o número de seu candidato');
		readln(candidato);
			if(candidato = 10) then 
				votos10:= votos10d;
							if(candidato = 20) then 
				votos20:= votos20d;
							if(candidato = 30) then 
				votos30:= votos30d;
							if(candidato = 40) then 
				votos40:= votos40d;
							if(candidato <> 10 or 20 or 30 or 40) then
				votosnulos:= votosnulosd;
							
				
				votos10d:= (votos10 * 20 /100);
				votos20d:= (votos20 * 20 /100);
				votos30d:= (votos30 * 20 /100);
				votos40d:= (votos40 * 20 /100);	
		                             
	end;
	
	writeln('O canditado de número 10, teve ' ,votos10d, ' porcento dos votos.');
	writeln('O canditado de número 20, teve ' ,votos20d, ' porcento dos votos.');
	writeln('O canditado de número 30, teve ' ,votos30d, ' porcento dos votos.');
	writeln('O canditado de número 40, teve ' ,votos40d, ' porcento dos votos.');
	writeln('E ' ,votosnulosd, ' porcento de votos nulos.');
End.

 

 

Foi realizada uma pesquisa para as eleições para governador. Foram entrevistadas 20 pessoas e perguntado a elas suas intenções de voto. Sabe-se que existem 4 candidatos, e que seus números são 10, 20, 30 e 40. Faça um programa em Pascal que leia e informe a porcentagem das intenções de voto para cada candidato e a porcentagem de votos nulos Obs: votos diferentes de 10, 20, 30 e 40 são votos nulos

 

adicionado 0 minutos depois

agora, Carlos Bat disse:

5

o valor seria 20!!

[Simon Viegas]

Sobre:

11 minutos atrás, Carlos Bat disse:

begin
  writeln('Digite o número de seu candidato');
  readln(candidato);
  if (candidato = 10) then 
    votos10:= votos10d;

 

Vamos supor que foi informado 10 para candidato. Qual o valor de votos10d nesse momento? ele vale 0, pois não foi dado nenhuma valor a ele, logo, votos10 vai ser igual a 0 também. Reanalise melhor.

 

No aguardo.

 

[Visitante]

@Simon Viegas

1 minuto atrás, Simon Viegas disse:

Sobre:

 

Vamos supor que foi informado 10 para candidato. Qual o valor de votos10d nesse momento? ele vale 0, pois não foi dado nenhuma valor a ele, logo, votos10 vai ser igual a 0 também. Reanalise melhor.

 

No aguardo.

 

obrigado!

 

[Simon Viegas]

Qualquer dúvida, pare para tentar descobrir sozinho... vá reanalisando o código. Se a dúvida persistir, só postar.

 

No aguardo.

 

[Tonhaozera]

@Simon Viegas

1 hora atrás, Simon Viegas disse:

Qualquer dúvida, pare para tentar descobrir sozinho... vá reanalisando o código. Se a dúvida persistir, só postar.

 

No aguardo.

 

 

Program ex1 ;
var i, cand, cand1, cand2, cand3, cand4, nulo: integer;
Begin
	for i:= 1 to 20 do
	begin
	cand1:=1;
	cand2:=1;
	cand3:=1;
	cand4:=1;
	nulo:=1;
		writeln('Digite o número de seu candidato');
		readln(cand);
			if(cand = 10)then 
			cand1:=cand1+1;;
		  if(cand = 20)then 
			cand2:=cand2+1;; 
			if(cand = 30)then 
			cand3:=cand3+1;;
		  if(cand = 40)then 
			cand4:=cand4+1; 
			if(cand <> 10 or 20 or 30 or 40)then
			nulo:=nulo+1;;
			                        
			                        
			cand1:=((cand1 * 100) div 20);
			cand2:=((cand2 * 100) div 20);
			cand3:=((cand3 * 100) div 20);
			cand4:=((cand4 * 100) div 20);
			nulo:=((nulo * 100) div 20);                         
	end;
	
	
	writeln('O canditado de número 10, teve ' ,cand1, ' porcento dos votos.');
	writeln('O canditado de número 20, teve ' ,cand2, ' porcento dos votos.');
	writeln('O canditado de número 30, teve ' ,cand3, ' porcento dos votos.');
	writeln('O canditado de número 40, teve ' ,cand4, ' porcento dos votos.');
	writeln('E ' ,nulo, ' porcento de votos nulos.');
End.

opa voltei! ainda nao estou conseguindo, sera que poderia me ajudar apontando onde estou errando?

[Simon Viegas]

17 minutos atrás, Tonhaozera disse:

opa voltei! ainda nao estou conseguindo, sera que poderia me ajudar apontando onde estou errando?

 

Está ocorrendo erro em qual parte?

 

[Tonhaozera]

@Simon Viegas

3 minutos atrás, Simon Viegas disse:

 

Está ocorrendo erro em qual parte?

 

nessa parte:

20 minutos atrás, Tonhaozera disse:

	writeln('O canditado de número 10, teve ' ,cand1, ' porcento dos votos.');
	writeln('O canditado de número 20, teve ' ,cand2, ' porcento dos votos.');
	writeln('O canditado de número 30, teve ' ,cand3, ' porcento dos votos.');
	writeln('O canditado de número 40, teve ' ,cand4, ' porcento dos votos.');
	writeln('E ' ,nulo, ' porcento de votos nulos.');

 

nao aponta a porcentagem

 

[Simon Viegas]

Analise o problema... crie um exemplo específico... daí, qual valor está aparecendo no trecho que você postou, mas qual deveria ser o valor correto? está dando o quê de divergente.

 

Analise onde está sendo calculado e tente ver o que precisa corrigir...

 

 

 

 

[Tonhaozera]

@Simon Viegas

1 minuto atrás, Simon Viegas disse:

Analise o problema... crie um exemplo específico... daí, qual valor está aparecendo no trecho que você postou, mas qual deveria ser o valor correto? está dando o quê de divergente.

 

Analise onde está sendo calculado e tente ver o que precisa corrigir...

 

 

deveria estar aparecendo o percentual dos votos de cada candidato 

[Simon Viegas]

hum! e o quê está aparecendo no lugar?

 

Insira 5 votos, daí calcule na mão qual seria o valor que deveria aparecer lá. Poste aqui qual seria a resposta correta, e um print da tela que está aparecendo errado.

 

[Tonhaozera]

agora, Simon Viegas disse:

hum! e o quê está aparecendo no lugar?

 

Insira 5 votos, daí calcule na mão qual seria o valor que deveria aparecer lá. Poste aqui qual seria a resposta correta, e um print da tela que está aparecendo errado.

 

5 votos seria 25%

lá aparece 0

[Simon Viegas]

1. Cite cada um dos votos que você escolheu como referência;
2. Qual seria a porcentagem correta de cada candidato utilizando esses votos?;
3. Quais valores estão aparecendo na tela (tire um print e poste aqui).

 

[LuisOPsum]

Olá!?

Se você usar essa pequena amostra de exemplo lógico, você vai poder resolver de forma simples.
Sabendo que:

• 20 Pessoas = 100%
• 15 Pessoas = 75%
• 10 Pessoas = 50%
• 5  Pessoas = 25%

Agora vamos pensar sobre os votos dos 4 candidatos e nulos:

• 10 Pessoas Votaram no cand1, que é igual a 50%, restando 50% ainda.
• 5  Pessoas Votaram no Cand2, que é igual a 25%, restando 25% ainda.
• 5  Pessoas Votaram Nulos que é igual a 25%
• 0  Pessoas Votaram no cand3, que é igual a 0%.
• 0  Pessoas Votaram no cand4, que é igual a 0%.

Somando os votos do Cand1, Cand2 e Nulos, temos então 100% dos Votos, já que os Cand3 e o Cand4 tiveram 0% de votos.

Agora que as 20 Pessoas Votaram formando 100% das intenções de voto, você agora você deve mostrar 
Quem Candidato Receberam mais votos em Porcentagem sendo divididos por Candidato 1,2,3,4 e nulos usando essa lógica simples.

Dai não é possível que seja fácil resolver!

 

Espero ter ajudado.