TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Algoritmo E Programacao

Pesquisas Acadêmicas: Algoritmo E Programacao. Pesquise 862.000+ trabalhos acadêmicos

Por:   •  15/9/2013  •  7.549 Palavras (31 Páginas)  •  332 Visualizações

Página 1 de 31

1) Inicio

Var

{

inteiro H_A,Nivel,a;

a=0;

escreva:(" [ DIGITE A QUANTIDADE DE HORAS AULA LECIONADAS :] = ");

leia:( H_A);

enquanto(a<1) faça

escreva: (" [ DIGITE O CÓDIGO 1 SE FOR PROFESSOR NIVEL 1, 2 SE FOR NIVEL 2 E 3 SE FOR NIVEL 3 :] = ");

leia(Nivel);

se(Nivel==1) então{

H_A = H_A *15;

a=1;

} fim se

senao se(Nivel==2) entao {

H_A = H_A *27;

a=1;

} fim se

Senao se(Nivel==3) entao {

H_A = H_A *35;

a=1;

} fim se

senao {

escreva: ("\n CODIGO INVALIDO, DIGITE NOVAMENTE");

} fim se

} fim enquanto

escreva: (" PROFESSOR NIVEL : ",Nivel);

escreva: (" SEU SALARIO SERA DE : ", Hora_Aula);

fim algoritimo;

}

2) inicio

var

{

caractere aluno[100],ra[100];

real laboratorio,avaliaçao_sem,exame_final,media;

escreva: (" [DIGITE O NOME DO ALUNO:] = ");

leia: (aluno);

escreva: (" [DIGITE A MATRICULA DO ALUNO:] = ");

leia: (ra);

escreva: (" [DIGITE A NOTA DO ALUNO NO TRABALHO DE LABORATORIO:] = ");

leia: (laboratorio);

escreva: ("[DIGITE A NOTA DO ALUNO NA AVALIACAO SEMESTRAL:] = ");

leia: (avaliaçao_sem);

escreva: (" [DIGITE A NOTA DO ALUNO NO EXAME FINAL:] = ");

leia: (exame_final);

media=((exame_final*5)+(avaliacao_sem*3)+(laboratorio*2))/10;

se (media>=8 && media<=10) entao {

escreva: (" O ALUNO:",aluno);

escreva: (" MATRICULA :",ra);

escreva: (" media ponderada classificada como A ");

} fim se

senão se (media>=7 && media<=8) entao {

escreva: (" O ALUNO: ",aluno);

escreva: (" MATRICULA :",ra);

escreva: (" media ponderada classificada como B ");

} fim se

Senão se (media>=6 && media<7) entao {

escreva: (" O ALUNO:",aluno);

escreva: (" MATRICULA :",ra);

escreva: (" media ponderada classificada como C ");

} fim se

Senão {

escreva: (" O ALUNO: ",aluno);

escreva: (" MATRICULA :",ra);

escreva: (" esta reprovado ");

} fim se

Fim algoritimo;

}

3) Inicio

var

{

inteiro Tp_Clt,a;

real KWh,Valor;

escreva (" [DIGITE A QUANTIDADE DE KW/H USADOS :] = ");

leia( KWh);

a=0;

enquanto(a<1) faça {

escreva(" [DIGITE 1 SE FOR PAGAR COMO RESIDENCIA 2 SE FOR COMERCIO E 3 SE FOR INDUSTRIA:] = ");

escreva(Tp_Clt);

se (Tp_Clt==1) entao{

Valor=KWh*0.48;

a=1;

} fim se

Senão se (Tp_Clt==2) entao{

Valor=KWh*0.60;

a=1;

} fim se

Senão se (Tp_Clt==3) entao{

Valor=KWh*1.29;

a=1;

} fim se

...

Baixar como (para membros premium)  txt (20.3 Kb)  
Continuar por mais 30 páginas »
Disponível apenas no TrabalhosGratuitos.com