algoritmo "Eleição"
var
qnt_pref, qnt_ver, i, j, qnt_ele, l, prefeito, vereador: inteiro
pref_nome: vetor [1..20] de caractere
pref_num: vetor [1..20] de inteiro
ver_nome: vetor [1..100] de caractere
ver_num: vetor [1..100] de inteiro
inicio
// Seção de Comandos
// Definindo a quantidade de candidatos a vereador e a prefeito
escreval("Insira a quantidade de candidatos a prefeito")
leia(qnt_pref)
para i de 1 ate qnt_pref faca
escreval("Insira nome",i," do candidato")
leia(pref_nome)
escreval("Insira numero",i," do candidato")
leia(pref_num)
limpatela
fimpara
escreval("Insira a quantidade de candidatos a vereador")
leia(qnt_ver)
para j de 1 ate qnt_ver faca
escreval("insira nome do",j," candidato")
leia(ver_nome[j])
escreval("insira nome do",j," candidato")
leia(ver_num[j])
limpatela
fimpara
escreval("A quantidade de eleitores")
leia(qnt_ele)
limpatela
Escreval("A lista de candidatos cadastrados a prefeito é", qnt_pref)
para i de 1 ate qnt_pref faca
escreval("Nome do candidato:", pref_nome, " Numero:", pref_num)
fimpara
escreval("A lista de candidatos cadastrados a vereador é", qnt_ver)
para j de 1 ate qnt_ver faca
escreval("Nome do candidato:", ver_nome[j], " Numero:", ver_num[j])
fimpara
escreval("A quantidade de eleitores cadastrados é:")
escreva(qnt_ele)
//Votação
Escreva("Escolha candidato a Prefeito '0' - nulo '1' - branco ")
para i de 1 ate qnt_pref faca
escreval("Nome do candidato:", pref_nome, " Numero:", pref_num)
fimpara
escolha prefeito
caso pref_num
escreva("Nome:", pref_nome)
caso 0
escreva("nulo")
caso 1
escreva("branco")
outrocaso
escreva("INVALIDO")
fimescolha
escreva("Escolha candidato a Vereador '0' - nulo '1' - branco")
para j de 1 ate qnt_ver faca
escreval("Nome do candidato:", ver_nome[j], " Numero:", ver_num[j])
fimpara
escolha vereador
caso ver_num[j]
escreva("Nome:", ver_num[j])
caso 0
escreva("nulo")
caso 1
escreva("branco")
outrocaso
escreva("INVALIDO")
fimalgoritmo
O final da erro... alguém me ajuda? preciso entregar na faculdade e n consigo terminar.
Algoritimos... alguém me ajuda ;/
- Fabio_Henrique
- 500 mensagens
- Mensagens: 728
- Registrado em: 04 Out 2010, 13:08
- -[K]-ae-[L]-
- 420 mensagens
- Mensagens: 427
- Registrado em: 15 Out 2009, 23:33
- Facebook: rafael.alves.129794
- Localização: STEAM_0:0:28941968
- Contato:
Re: Algoritimos... alguém me ajuda ;/
vc esta utilizando o pascalzim ?
vou ver aqui oq eu posso fazer mais eu creio esse case seu esta errado.
vou ver aqui oq eu posso fazer mais eu creio esse case seu esta errado.
Código: Selecionar todos
escolha vereador
caso ver_num[j]
---------------------------
escreva("Nome:", ver_num[j]) <---- pelo que eu sei esse vetor teria que estar dentro de um laço de repetição para faça ou define qual posição do vetor vc quer exibir.
ex:
escreva("Nome:", ver_num[2]);
---------------------------
caso 0
escreva("nulo")
caso 1
escreva("branco")
outrocaso
escreva("INVALIDO")
fimalgoritmo
- -[K]-ae-[L]-
- 420 mensagens
- Mensagens: 427
- Registrado em: 15 Out 2009, 23:33
- Facebook: rafael.alves.129794
- Localização: STEAM_0:0:28941968
- Contato:
Re: Algoritimos... alguém me ajuda ;/
eu tentei refazer ele esta com uns bugs na parte de confirma o voto mais ai vou deixa pra vc , eu não sei se e bem isso que vc queria mais ta o que eu tentei fazer com pascalzim. qualquer coisa e so posta aew .
Código: Selecionar todos
{By -[K]-ae-[L]- }
program Eleicao;
type
vet_nome = array [1..100] of string;
vet_num = array [1..100] of integer;
var
pref_nome, ver_nome: vet_nome;
pref_num, ver_num,voto_pref, voto_ver:vet_num;
qnt_pref, qnt_ver, i, j, qnt_ele, prefeito, vereador: integer;
votar:char;
// Procedimento para Exibir lista de candidatos
procedure lista_candidatos;
Begin
writeln ('A lista de candidatos cadastrados a prefeito e :', qnt_pref);
writeln;
writeln ('|""""""""""""""|"""""""""""|');
writeln ('| Prefeito | Numero |');
writeln ('|""""""""""""""|"""""""""""|');
for i:=1 to qnt_pref do
writeln('| ', pref_nome[i],' | ', pref_num[i],' |');
writeln ('| | |');
writeln ('""""""""""""""""""""""""""""');
write('A lista de candidatos cadastrados a vereador e :', qnt_ver);
writeln;
writeln ('|""""""""""""""|"""""""""""|');
writeln ('| Vereador | Numero |');
writeln ('|""""""""""""""|"""""""""""|');
for i:=1 to qnt_ver do
writeln('| ', ver_nome[i],' | ', ver_num[i],' |');
writeln ('| | |');
writeln ('""""""""""""""""""""""""""""');
writeln;
writeln ('------------------------------------------');
writeln;
end;
// procedimento para votação de vereador
procedure votacao_vereador;
begin
writeln ('----[ Vereador ]----');
write ('Digite o numero :');
readln (vereador);
case vereador of
0:begin
clrscr;
lista_candidatos;
write ('deseja votar NULO [S/N] :');
readln (votar);
upcase(votar);
if (votar = 'N') then
votacao_vereador;
Writeln ('Voto nulo');
end;
1:begin
clrscr;
lista_candidatos;
write ('deseja votar em BRANCO [S/N] :');
readln (votar);
upcase(votar);
if (votar = 'N') then
votacao_vereador;
Writeln ('Voto branco');
end;
else
begin
for j:=1 to qnt_ver do
if (vereador = ver_num[j]) then
begin
write ('deseja votar no ',ver_nome[j],' [S/N]');
readln (votar);
upcase(votar);
if (votar = 'N') then
votacao_vereador
else
voto_ver[j]:= (voto_ver[j] + 1);
end
else
begin
clrscr;
lista_candidatos;
writeln ('Numero Invalido');
votacao_vereador;
end;
end;
end;
end;
// Procedimento para votação de prefeito
procedure votacao_prefeito;
begin
writeln ('----[ Prefeito ]----');
write ('Digite o numero :');
readln (prefeito);
case prefeito of
0:begin
clrscr;
lista_candidatos;
write ('deseja votar NULO [S/N] :');
readln (votar);
upcase(votar);
if (votar = 'N') then
votacao_prefeito;
Writeln ('Voto nulo');
end;
1:begin
clrscr;
lista_candidatos;
write ('deseja votar em BRANCO [S/N] :');
readln (votar);
upcase(votar);
if (votar = 'N') then
votacao_prefeito;
Writeln ('Voto branco');
end;
else
begin
for j:=1 to qnt_pref do
if (prefeito = pref_num[j]) then
begin
write ('deseja votar no ',pref_nome[j],' [S/N]');
readln (votar);
upcase(votar);
if (votar = 'S') then
votacao_prefeito;
end
else
begin
clrscr;
lista_candidatos;
writeln ('Numero Invalido');
votacao_prefeito;
end;
end;
end;
end;
// Procedimento para coletar informação dos candidatos
procedure informacao;
begin
write ('Insira a quantidade de candidatos a prefeito :');
readln (qnt_pref);
for i:=1 to qnt_pref do
begin
clrscr;
write ('Insira o nome do ',i,' do candidato :');
readln (pref_nome[i]);
write ('Insira o numero do ',i,' do candidato :');
readln(pref_num[i]);
clrscr;
end;
write ('Insira a quantidade de candidatos a vereador :');
readln (qnt_ver);
for i:=1 to qnt_ver do
begin
clrscr;
write ('insira nome do ',i,' candidato :');
readln (ver_nome[i]);
write ('insira numero do ',i,' candidato :');
readln (ver_num[i]);
clrscr;
end;
write ('A quantidade de eleitores :');
readln (qnt_ele);
clrscr;
end;
// Procedimento para criar um menu
procedure menu;
var
opcao:integer;
begin
Writeln ('[1] - Inserir informacao dos candidatos');
Writeln ('[2] - Mostrar lista de todos candidatos');
Writeln ('[3] - Iniciar a votacao');
writeln;
writeln;
write ('digite a Opcao :');
readln (opcao);
case opcao of
1:begin
informacao;
end;
2:begin
lista_candidatos;
end;
3:begin
writeln ('A votação começou!');
for i:=1 to qnt_ele do
begin
votacao_vereador;
votacao_prefeito;
end;
end;
end;
end;
// inicio do programa
begin
// menu; [ O menu ta bugado por isso deixei desativado ] <--------
informacao;
lista_candidatos;
writeln ('A votação começou!');
for i:=1 to qnt_ele do
begin
votacao_vereador;
votacao_prefeito;
end;
readln;
end.