Algoritimos... alguém me ajuda ;/

Se voçê esta com algum problema com CS Por Favor poste aqui !!!
Avatar do usuário
Fabio_Henrique
500 mensagens
500 mensagens
Mensagens: 728
Registrado em: 04 Out 2010, 13:08

Algoritimos... alguém me ajuda ;/

Mensagem por Fabio_Henrique »

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.
Imagem
RXE - Fabio;
msn: fabio@csro.com.br

Avatar do usuário
-[K]-ae-[L]-
420 mensagens
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 ;/

Mensagem por -[K]-ae-[L]- »

vc esta utilizando o pascalzim ?
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

Avatar do usuário
-[K]-ae-[L]-
420 mensagens
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 ;/

Mensagem por -[K]-ae-[L]- »

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

Responder