O LPA Algoritmo

algoritmo "LPA_algoritimo"

var

nome, resp:caractere:

disciplina, nome_prof: vetor[1..70] de caractere

c_horaria,qtd_aulas: vetor[1..70] de inteiro

i,j,instituicao,h_chegada,mm_chegada,h_saida,mm_saida:inteiro

hora_aula,min_aula: inteiro

inicio

escreva("Nome do aluno: ")

leia(nome)

escreval("")

resp <- "sim"

i <- 0

enquanto ((resp = "sim") ou (resp = "Sim") ou (resp = "SIM")) faca

i <- i + 1

escreva("Nome do professor(a): ")

leia(nome_prof[i])

escreva("Insira a disciplina: ")

leia(disciplina[i])

escreva(" carga horáia de ",disciplina[i],": ")

leia(c_horaria[i])

escreva("Quantidade de aulas: ")

leia(qtd_aulas[i])

escreva("Deseja inserir nova diciplina? Sim/Nao: ")

leia(resp)

limpatela

escreval("Nome do aluno: ",nome)

escreval("")

fimenquanto

escreval("DISCIPLINAS CURSADAS:")

para i de 1 ate i faca

escreval("==============================")

escreval("Prof: ",nome_prof[i])

escreval("Disciplina: ",disciplina[i])

escreval("Carga horáia: ",c_horaria[i])

escreval("Qtd de aulas: ",qtd_aulas[i])

escreval("==============================")

fimpara

escreval("Digite o horáio de aula de sua Universidade")

h_chegada <- 0

mm_chegada <- 0

h_saida <- 0

mm_saida <- 0

escreval("Digite a hora e minuto de chegada ")

escreva("Hora: ")

leia(h_chegada)

se((h_chegada >24) ou (h_chegada <0)) entao

escreva("Hora inváida, digite novamente")

escreva("Hora: ")

leia(h_chegada)

fimse

escreva("Minutos: ")

leia(mm_chegada)

se((mm_chegada > 59) ou (mm_chegada < 0)) entao

escreva("Minuto inváido, digite novamente")

escreva("Minutos: