Oque eu errei nessa Programação?(Pascal)?

erick-c

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!.

http://img135.imageshack.us/img135/5270/pascal1.jp...

paulo-cesar

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.

agnetha

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.