Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

ALGORITMOS EM PASCAL

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido ALGORITMOS EM PASCAL

Mensagem por Junior em 30/6/2009, 23:39

1) O MUNICÍPIO DE mAR VERMELHO ESTÁ EM ELEIÇÕES PARA PREFEITO. APRESENTARAM-SE 3 CANDIDATOS:
PAULO COM O Nº1 - JOSÉ COM Nº2 - MÁRCIO Nº3
CADA ELEITOR ESCOLHE SUA OPÇÃO ATRAVÉS DO NUMERO DO CANDIDATO (1, 2 OU 3) E AINDA TEM A OPÇÃO DE UM VOTO NULO (4) E VOTO BRANCO (5)
FAZER PROGRAMA QUE LEIA O VOTO DE CADA ELEITOR E PROCESSE OS DADOS EMETINDO UM RELATÓRIO COM OS SEGUINTES DADOS:
-NUMERO DE VOTOS DE CADA UM DAS 5 OPÇÕES.
-O NOME DO CANDIDATO VITORISO.
-O NUMERO TOTAL DE ELEITORES .
APÓS CADA VOTO DEVE SER PROCESSADO DEVERÁ SER FEITA A PERGUNTA SE DESEJA CONTINUAR (S/N?), CASO SEJA DIGITADO (S) DEVERÁ SER LIDO UM NOVO VOTO, CASO CONTRÁRIO DEVERÁ SER DIVULGADO O RESULTADO, ONDE O NOME DO CANDIDATO VITORIOSO DEVERÁ APARECER COM A COR VERMELHO PISCANTE. (USAR A ESTRUTURA REPITA).




2) O SISTEMA DE AVALIAÇÃO DA DISCIPLINA DE LINGUAGEM DE PROGRAMAÇÃO 1 OBEDECE O SEGUINTE CRITÉRIO:
* DURANTE O SEMESTRE SÃO FEITOS DUAS PROVAS E UM TRABALHO.
*A NOTA FINAL E A MÉDIA ARITMÉTICA DAS DUAS PROVAS (PESO 8) + TRABALHO (PESO 2).
* É CONSIDERADO APROVADO O ALUNO QUE TIVER NOTA IGUAL OU SUPERIOR A 6 E NÃO POSSUIR MAIS DE 25 FALTAS.
FAZER UM PROGRAMA QUE LEIA A MATRÍCULA DO ALUNO, AS NOTAS DAS DUAS PROVAS, A NOTA DO TRABALHO E AS FALTAS. PARA SAIR DO PROGRAMA UTILIZE A MATRICULA = 0.
CALCULE E ESCREVA:
* A NOTA FINAL DE CADA ALUNO.
* A MAIOR E A MENOR NOTA DA TURMA.
* A NOTA MÉDIA DA TURMA.
* O TOTAL DE ALUNOS REPROVADOS.
* A PORCENTAGEM DE ALUNO REPROVADO POR FREQUENCIA.
(USAR A ESTRUTURA ENQUANTO)



3) UMA EMPRESA DECIDIU FAZER UM LEVANTAMENTO DOS CANDIDATOS QUE SE APRESENTARAM PARA O PREENCHIMENTO DAS VAGAS NO SEU QUADRO DE FUNCIONÁRIOS. FAÇA UM PROGRAMA QUE LEIA OS SEGUINTES DADOS.
* NUMERO DE INSCRIÇÃO DE CANDIDATOS, IDADE, SEXO (SÓ DEVE ACEITAR M/FOU m/f), EXPERIENCIA NO SERVIÇO (SÓ DEVE ACEITAR S/N OU s/n)
* OBS: O PROGRAMA ENCERRA QUANDO O NUMERO DO CANDIDATO FOR ZERO.
CALCULE E ESCREVA :
* O NUMERO DE CANDIDATOS DO SEXO FEMININO.
* O NUMERO DE CANDIDATO DO SEXO MASCULINO.
* A IDADE MÉDIA DOS HOMENS QUE JÁ TEM EXPERIENCIA NO SERVIÇO.
* A PORCEMTAGEM DOS HOMENS COM MAIS DE 45 ANOS ENTRE O TOTAL DE HOMENS.
( USAR ESTRUTURA ENQUANTO) PARA ENTRAR NO PROGRAMA E (REPITA) PARA TESTAR SEXO E EXPERIENCIA.

Junior
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: ALGORITMOS EM PASCAL

Mensagem por Marcos Guedes em 1/7/2009, 22:12

Olá Junior!
Qual sua dificuldade nestas três questões que você abordou?

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: ALGORITMOS EM PASCAL

Mensagem por Marcos Guedes em 6/7/2009, 08:42

Como já se passaram 5 dias e não obtevemos resposta do autor, quanto as suas principais dificuldades, então o tópico foi dado com resolvido!

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: ALGORITMOS EM PASCAL

Mensagem por janina em 21/10/2010, 15:37

por favor poderia mandar as repostas para correção?!

obrigado!!! Question

janina
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: ALGORITMOS EM PASCAL

Mensagem por zeroum em 26/2/2013, 11:01

@janina escreveu:por favor poderia mandar as repostas para correção?!

obrigado!!! Question

Fiz o exercício 1, o da eleição.

Parece que está funcionando.

Código:

program eleicao_mar_vermelho;

uses crt;

var
resp:string;
paulo, jose, marcio, nulo, branco,voto,maior, soma: integer;

begin
clrscr;
resp:='s';
paulo:=0;
jose:=0;
marcio:=0;
nulo:=0;
branco:=0;


writeln;
writeln('ESCOLHA UMA OPÇÃO ABAIXO PARA VOTAR:');
writeln;
writeln('1 - Paulo');
writeln('2 - Jose');
writeln('3 - Marcio');
writeln('4 - Nulo');
writeln('5 - Branco');

repeat
   begin
      writeln;
      write('Digite a opção escolhida: ');
      readln(voto);
      case voto of
            1: paulo:=paulo+1;
            2: jose:=jose+1;
            3: marcio:=marcio+1;
            4: nulo:=nulo+1;
            5: branco:=branco+1;
            6,7,8,9,0: writeln(voto,': Esta opção não existe.');
            end;
      writeln;
      write('Deseja votar novamente? / (s/n): ');
      readln(resp);
   end;
until resp<>'s';

clrscr;

//imprimindo todos os votos
writeln;writeln;
writeln('--------------------------');
writeln('---RESULTADO DA ELEIÇÃO---');
writeln('--------------------------');
writeln('Paulo: ',paulo);
writeln('Jose: ',jose);
writeln('Marcio: ',marcio);
writeln('Nulo: ',nulo);
writeln('Branco: ',branco);
writeln;

//analisando o resultado
soma:=0;
if (paulo>jose) and (paulo<>jose) then
   begin
      maior:=paulo;
      soma:=soma+1;
   end
else
   if (paulo<jose) and (paulo<>jose)then
   begin
      maior:=jose;
      soma:=soma+3;
   end

   else     
      begin
      maior:=paulo;
      soma:=soma+5;
      end;

if (maior<marcio) and (marcio<>maior) then
   begin                     
      maior:=marcio;               
      soma:=0;
      soma:=soma+7;
   end
   
   else
      if (marcio=maior) and (soma=1) then
         soma:=soma+13
      else
         if (marcio=maior) and (soma=3) then
            soma:=soma+17
         else
            if (marcio=maior) and (soma=5) then
               soma:=soma+19;


//imprimindo o resultado: vencedor ou empate
textcolor(4);
case soma of
         1:writeln('O vencedor foi Paulo - número de votos: ',maior);
         3:writeln('O vencedor foi Jose - número de votos: ',maior);
         5:writeln('Empate entre Paulo e Jose - número de votos de cada um: ',maior);
         7:writeln('O vencedor foi Marcio - número de votos: ',maior);
         14:writeln('Empate entre Paulo e Marcio - número de votos de cada um: ',maior);
         20:writeln('Empate entre Jose e Marcio - número de votos de cada um: ',maior);
         24:writeln('Empate entre Paulo, Jose e Marcio - número de votos de cada um: ',maior);
end;
textcolor(0);

writeln;
writeln('Número total de eleitores: ',(paulo+jose+marcio+nulo+branco));

writeln;writeln;

writeln('/////////////////////////////////////////////////');
writeln('FIM DO PROGRAMA. DIGITE QUALQUER TECLA PARA SAIR.');
readkey;
end.


zeroum
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: ALGORITMOS EM PASCAL

Mensagem por zeroum em 4/3/2013, 13:26

@Junior escreveu:
2) O SISTEMA DE AVALIAÇÃO DA DISCIPLINA DE LINGUAGEM DE PROGRAMAÇÃO 1 OBEDECE O SEGUINTE CRITÉRIO:

* DURANTE O SEMESTRE SÃO FEITOS DUAS PROVAS E UM TRABALHO.
*A NOTA FINAL E A MÉDIA ARITMÉTICA DAS DUAS PROVAS (PESO Cool + TRABALHO (PESO 2).
* É CONSIDERADO APROVADO O ALUNO QUE TIVER NOTA IGUAL OU SUPERIOR A 6 E NÃO POSSUIR MAIS DE 25 FALTAS.

FAZER UM PROGRAMA QUE LEIA A MATRÍCULA DO ALUNO, AS NOTAS DAS DUAS PROVAS, A NOTA DO TRABALHO E AS FALTAS. PARA SAIR DO PROGRAMA UTILIZE A MATRICULA = 0.

CALCULE E ESCREVA:
* A NOTA FINAL DE CADA ALUNO.
* A MAIOR E A MENOR NOTA DA TURMA.
* A NOTA MÉDIA DA TURMA.
* O TOTAL DE ALUNOS REPROVADOS.
* A PORCENTAGEM DE ALUNO REPROVADO POR FREQUENCIA.
(USAR A ESTRUTURA ENQUANTO)


Fiz o exercício 2 com algumas modificações.

A primeira é que coloquei os dados de entrada para serem gerados automaticamente e aleatoriamente a cada vez que o programa for executado. Não precisa digitar nada. É só conferir se ele está calculando corretamente. A segunda, é que deixei por padrão o tamanho da turma com 10 alunos. Mas se alguém quiser modificar este parâmetro, é só alterar a variável "w" em "const" logo no início do programa. O resto ele faz, assim espero.

Código:


program ling_programacao1;

uses crt;

const
w=10;

type

cadastro = record
            matricula: integer;
            nota1: real;
            nota2: real;
            trabalho: real;
            falta: integer;
            nf: real;
            resultadonota: string;
            somanota: integer;
            resultadofalta: string;
            somafalta: integer;
         end;

var
aluno: array [1..w] of cadastro;
x:byte;
maior, menor, media,soma, somareprovado, somareprovadofalta, somaaprovado:real;
resp: string;



begin
clrscr;
randomize;
writeln;writeln;

resp:='s';
while (resp='s') or (resp='S') do
begin
clrscr;
writeln;
writeln('---PROGRAMA QUE CALCULA O DESMPENHO DA TURMA DE LINGUAGEM DE PROGRAMAÇAO I---');
for x:=1 to w do
   begin
      aluno[x].matricula:=x;
      aluno[x].nota1:=random(11);
      aluno[x].nota2:=random(11);
      aluno[x].trabalho:=random(11);
      aluno[x].falta:=random(30);
      aluno[x].nf:=(((((aluno[x].nota1 + aluno[x].nota2)/2)*8) + (aluno[x].trabalho *2)) / 10);
      
      
      if aluno[x].falta > 25 then
         begin
            aluno[x].resultadofalta:= 'reprovado';
            aluno[x].somafalta:= 1;
         end
      else
         begin
            aluno[x].resultadofalta:= 'aprovado';
            aluno[x].somafalta:=0;
         end;
         
      
      if aluno[x].nf < 6 then
         begin
            aluno[x].resultadonota:= 'reprovado';
            aluno[x].somanota:= 1;
         end
      else
         begin
            aluno[x].resultadonota:= 'aprovado';
            aluno[x].somanota:= 0;
         end;
   end;



maior:=-1;
menor:=11;
   for x:=1 to w do
      begin
      if aluno[x].nf > maior then
         maior:=aluno[x].nf;
      
      if aluno[x].nf < menor then
         menor:= aluno[x].nf;
      end;

soma:=0;
for x:=1 to w do
   begin
   soma:=soma + aluno[x].nf;
   media:=soma/w;
   end;


for x:=1 to w do
begin
   writeln('::::::::::::::::::::::::::');
   write('[ALUNO ',x,']- ');
   write('matr: ',aluno[x].matricula,', ');
   write('N1: ',(aluno[x].nota1):5:2,', ');
   write('N2: ',(aluno[x].nota2):5:2,', ');
   write('trab: ',(aluno[x].trabalho):5:2,', ');
   textcolor(4);
   write('faltas: ',aluno[x].falta,', ');
   textcolor(1);
   writeln('NF: ', (aluno[x].nf):5:2,', ');
   textcolor(0);
   write('resultado da falta: ', aluno[x].resultadofalta,', ');
   write('resultado da nota: ', aluno[x].resultadonota);
   writeln;
   
end;


somareprovado:=0;
somareprovadofalta:=0;
somaaprovado:=0;
for x:=1 to w do
   begin
   if (aluno[x].somanota = 1) or (aluno[x].somafalta =1) then
      somareprovado:= somareprovado + 1;
   
   if (aluno[x].somafalta =1) then 
      somareprovadofalta:= somareprovadofalta + 1;
   
   if (aluno[x].somanota= 0) and (aluno[x].somafalta =0) then
      somaaprovado:=somaaprovado+1;
   end;



writeln;writeln;writeln;
   writeln('------------------------');
   writeln('---RESULTADO DA TURMA---');
   writeln('------------------------');
   writeln('maior nota final: ',maior:5:2);
   writeln('menor nota final: ',menor:5:2);
   writeln('média: ', media:5:2);
   writeln('total de alunos aprovados: ',somaaprovado:5:0);
   writeln('total de alunos reprovados: ',somareprovado:5:0);
   writeln('percentual dos reprovados por falta: ', (somareprovadofalta*100/w):5:2,'%');

writeln;writeln;
write('Deseja repetir o programa? (s/n): ');
readln(resp);
end;

writeln;writeln;
writeln('-------------------------------------------------');
writeln('FIM DO PROGRAMA. DIGITE QUALQUER TECLA PARA SAIR.');
readkey;
end.




zeroum
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum