Boa tarde,
Este algoritmo deve receber um determinado horário e definir se o turno de trabalho é manhã, tarde ou noite, conforme a informação a seguir:
Manhã - 6h às 14h
Tarde - 14h às 22h
Noite - 22h às 06h
O aluno apresentou o seguinte algoritmo e disse que quando digitados os horários, apresentam uma mensagem diferente do turno que deveria aparecer. Como proceder?
[OBS: Aprendendo muito com este fórum, desde já, obrigada!]
Program Turno_de_trabalho;
VAR
hora, turno, user: string;
Begin
Write('Digite seu nome: ');
readln(user);
Write('Digite seu horário de trabalho: ');
readln(hora);
Writeln;
If (hora>='06h') or (hora<='13h59')then
Begin
turno:=('Manhã');
Write(user, ' seu turno de trabalho é ', turno);
end
Else
If (hora>='14h') or (hora<='21h59')then
Begin
turno:=('Tarde');
Write(user, ' seu turno de trabalho é ', turno);
end
Else
If (hora>='22h') or (hora<='05h59')then
Begin
turno:=('Noite');
Write(user, ' seu turno de trabalho é ', turno);
end;
Readln;
End.