Exercícios de algoritmo Resolvidos

Prévia do material em texto

Nome: Rafael Lucas da Silva Andrade	RGM: 16482972
Ler a hora de início e fim de um jogo de Xadrez (considere apenas horas inteiras, sem os minutos) e calcule a duração do jogo em horas, sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que o jogo pode iniciar em um dia e terminar no dia seguinte.
algoritmo "hora"
var
  horaIni:inteiro
  horaFim:inteiro
  qtdeHor:inteiro
inicio
  Escreval("Hora de início")
  Leia(horaIni)
  Escreval("Hora de término")
  Leia(horaFim)
  Se ( horaFim = horaIni ) Entao
     Escreva("Tempo máximo de duração do jogo atingido. 24 horas ")
  SeNao
     Se ( horaFim < horaIni ) Entao
        Escreva("Valor dado incorreto.")
     SeNao
        qtdeHor <- (horaFim - horaIni)
        Escreva("Duração do jogo: ",qtdeHor," Hora(s) " )
     FimSe
  FimSe
fimalgoritmo
Escreva um algoritmo para ler um valor (do teclado) e escrever (na tela) o seu antecessor.
algoritmo "anter"
var
num1, ant : inteiro
inicio
escreval("Digite um número :")
leia(num1)
ant <- num1 - 1
escreval("O antecessor do número digitado é :", ant)
fimalgoritmo