Oque eu errei nessa Programação?(Pascal)?
Eu Não Sei Oq errei nessa programação, na tentativa de fazer um programa q desse certinho a porcentagem De uma eleição, aparece certinho as 1° perguntas destinadas ao usuario mas nao aparece o resultado Final na tela! vai ai o Link do que eu fiz!.
Comments
Ai o Codigo, so compilar:
program EXERC_6;
var
a,b,c,d,e,f,g : real;
h : string;
begin
writeln ('Escreva O Numero De Eleitores');
readln (a); // a = numero de eleitores
writeln ('Escreva o Numero De Votos em Branco');
readln (b); // b = votos em branco
writeln ('Escreva o Numero De Votos Nulos');
readln (c); // c = votos nulos
writeln ('Escreva o Numero De Votos Validos');
readln (d); // d = votos validos
e := (((b) / (a)) * 100); // e = porcentagem de votos brancos
f := (((c) / (a)) * 100); // f = porcentagem de votos nulos
g := (((d) / (a)) * 100); // g = porcentagem de votos validos
writeln ('Nesta Eleição as Porcentagens São:');
writeln ((e),'%',' Brancos');
writeln ((f),'%',' Nulos');
writeln ((g),'%',' validos');
writeln ('Pressione Qualquer Tecla Para Sair');
readln (h);
end.
Program Eleicao;
VAR totaleleitores, brancos, nulos, validos: integer;
percbrancos, percnulos, percvalidos: real;
Begin
Write('Informe o número de eleitores da cidade:');
Read(totaleleitores);
Write('Informe o número de votos brancos:');
Read(brancos);
Write('Informe o número de votos nulos:');
Read(nulos);
Write('Informe o número de votos válidos:');
Read(validos);
percbrancos:=brancos/totaleleitores*100;
percnulos:=nulos/totaleleitores*100;
percvalidos:=validos/totaleleitores*100;
Write('O municÃpio teve', percbrancos,'% de votos brancos', percnulos,'% de votos nulos e', percvalidos,'% de votos válidos');
End.