4 replies to this topic

[fee]

1. Em uma eleição para representante existem dois candidatos. Os votos são informados através de códigos. Os dados utilizados para a contagem dos votos obedecem à seguinte codificação:
--> 1 e 2 = voto para os respectivos candidatos;
--> 0 = voto nulo;
--> 3 = voto em branco
Elabore um programa que leia em seqüência os votos (0 a 3). O programa deve finalizar com voto negativo. No final deve-se imprimir:
--> total de votos
--> total e percentual de votos para cada candidato
--> total e percentual de votos para voto nulo
--> total e percentual de votos para voto em branco
--> candidato vencedor



2. Uma das maneiras de se conseguir a raiz quadrada de um número é subtrair deste número os ímpares consecutivos a partir de 1, até que o resultado da subtração seja menor ou igual a zero. 0 número de vezes que forem realizadas as subtrações consecutivas é a raiz quadrada exata do número (resultado 0) ou aproximada do número (resultado negativo),
Exemplo:
Raiz de 16 = 4
16 – 1 = 15
15 – 3 = 12
12 – 5 = 7
7 – 7 = 0
total de 4 subtrações.

Faça um programa que leia em seqüência números inteiros e informa o valor da raiz quadrada, dizendo se é exata ou aproximada.

Edição feita por: fee, 12/06/2008, 11:00.

[UsG_LORDelo_]

Segue o código para a questao 1.
Ta em pascal.

[codebox]Program Algoritmo ;
Var
flag,voto,votoa,votob,votobr,Voton,contg:integer;
Begin
Flag := 0; VotoA:=0; VotoB:=0; VotoBr:=0; ContG:=0; Voton:=0;
While Voto <> -1 do
begin
Writeln('Infome o seu voto: 1 para Candidato A, 2 para Candidato B,');
Writeln('3 pra voto em branco e 0 para voto nulo. Para encerrar digite -1');
readln(Voto);
While (Voto <> 1) and (Voto <> 2) and (Voto <> 3) and (Voto <> 0) and (Voto <> -1) Do
begin
Writeln('Voto inválido, Informe Seu voto: 1(Candidato A), 2(Candidato , 3(Branco) e 0(Nulo)');
Readln(voto);
end;

if voto = 1 then
begin
inc(VotoA);
inc(contG);
End
else
begin
If voto = 2 then
Begin
inc(VotoB);
inc(contG);
End
else
begin
if voto = 3 then
Begin
Inc(VotoN);
inc(contG);
end
else
begin
if Voto = 0 Then
begin
inc(VotoBR);
inc(contG);
end;
end;
end;
end;


end;
Writeln('Total de votos computados:',contG);
Writeln('Total de votos do Candidato A:',VotoA,'. Percentual: ',(VotoA Div ContG)*100,'%');
Writeln('Total de votos do Candidato B:',VotoB,'. Percentual: ',(VotoB Div ContG)*100,'%');
Writeln('Total de votos Em branco:',VotoBR,'. Percentual: ',(VotoBR Div ContG)*100,'%');
If VotoA > VotoB then
Writeln('Vencedor: Candidato A')
else
Writeln('Vencedor: Candidato B');
End.[/codebox]


Questão 2 (detalhe o programa só roda uma vez, ele nao roda ate o usuário digitar tal valor pra encerrar.)
[codebox]Program Algoritmo2 ;
Var
x,n,sub,cont:integer;
Begin
x:=1; cont:=0; sub:=1;
Writeln('Informe o número que você deseja obter a raiz.');
Readln(n);
while (n > 0) Do
begin
n:= n - x;
x:=x+2;
cont:=cont+1;
end;
if n < 0 then
Writeln('Raiz não natural')
else
Writeln('raiz do Número é: ',cont);

End.[/codebox]

Edição feita por: UsG_LORDelo_, 11/06/2008, 20:35.

[fee]

poo mt obrigada cara !!

vc usa o pascal nee para rodar o programa??
eu uso o kenya ..
poo tem algumas partes que nao entendi direito.

mas msmo assim mt obrigada msmo ..
vou tentar rodar no kenya !

Edição feita por: fee, 12/06/2008, 09:04.

[UsG_LORDelo_]

Tem como vc passar algum link de download de materia dessa linguagem?

[fee]

poo eu tenho esse aki .. para baixar o programa

http://www.doc.ic.ac.uk/kenya/


e tenho uma apostila aki no pc ..

Edição feita por: fee, 12/06/2008, 10:26.