Algoritmo E Programacao
Pesquisas Acadêmicas: Algoritmo E Programacao. Pesquise 860.000+ trabalhos acadêmicosPor: taynaraasouza • 15/9/2013 • 7.549 Palavras (31 Páginas) • 303 Visualizações
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
...