A escrita de algoritmos
Seminário: A escrita de algoritmos. Pesquise 860.000+ trabalhos acadêmicosPor: kety.cr • 6/10/2013 • Seminário • 2.799 Palavras (12 Páginas) • 310 Visualizações
1)
Inicio
Var
{
inteiro Hora_Aula,Nivel,a;
a=0;
escreva:(" [ DIGITE A QUANTIDADE DE HORAS AULA LECIONADAS :] = ");
leia:( Hora_Aula);
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{
Hora_Aula = Hora_Aula *15;
a=1;
} fim se
senao se(Nivel==2) entao {
Hora_Aula = Hora_Aula *27;
a=1;
} fim se
Senao se(Nivel==3) entao {
Hora_Aula = Hora_Aula *35;
a=1;
} fim se
senao {
escreva: ("\n CODIGO INVALIDO, DIGITE NOVAMENTE");
} fim se
} fim enquanto
escreva: (" OLA PROFESSOR NIVEL : ",Nivel);
escreva: (" O SEU SALARIO SERA DE : ", Hora_Aula);
fim algoritimo;
}
2)
inicio
var
{
caractere nome[100],ra[100];
real laboratorio,avaliacaosemestral,examefinal,media;
escreva: (" [DIGITE O NOME DO ALUNO:] = ");
leia: (nome);
escreva: (" [DIGITE O RA 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: (avaliacaosemestral);
escreva: (" [DIGITE A NOTA DO ALUNO NO EXAME FINAL:] = ");
leia: (examefinal);
media=((examefinal*5)+(avaliacaosemestral*3)+(laboratorio*2))/10;
se (media>=8 && media<=10) entao {
escreva: (" O ALUNO:",nome);
escreva: (" MATRICULA :",ra);
escreva: (" media ponderada classificada como A ");
} fim se
senão se (media>=7 && media<=8) entao {
escreva: (" O ALUNO: ",nome);
escreva: (" MATRICULA :",ra);
escreva: (" media ponderada classificada como B ");
} fim se
Senão se (media>=6 && media<7) entao {
escreva: (" O ALUNO:",nome);
escreva: (" MATRICULA :",ra);
escreva: (" media ponderada classificada como C ");
} fim se
Senão {
escreva: (" O ALUNO: ",nome);
escreva: (" MATRICULA :",ra);
escreva: (" esta reprovado ");
} fim se
Fim algoritimo;
}
3)
Inicio
var
{
inteiro TipoCliente,a;
real KWh,Valor;
escreva (" [DIGITE A QUANTIDADE DE KW/H USADOS :] = ");
escreva( &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(TipoCliente);
se (TipoCliente==1) entao{
Valor=KWh*0.48;
a=1;
} fim se
Senão se (TipoCliente==2) entao{
Valor=KWh*0.60;
a=1;
} fim se
Senão se (TipoCliente==3)
...