Educador Prepara

@devair1010 e @Simon Viegas Obrigada!

Entendi o que disse, mas como faria, caso o usuário digitasse um horário quebrado (ex: 16h30) ou usasse a letra "h" no final dos números? Como ficaria a linha?

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.

@Simon Viegas obrigada pela explicação, deu certo

Boa tarde pessoal! Mais uma vez venho pedir ajuda... Eu, como pouquíssimo experiente em Pascal, estou tendo problemas em solucionar mais um problema no programinha sugerido pela apostila. A proposta é que seja criada uma tela simples que confirme a validade de um login e senha. No inicio testei apenas as condições que o probleminha pedia, depois experimentei usar apenas um dos itens corretamente (login ou senha) para ver o que acontecia. O resultado foi que o programinha não finaliza como esperado. Segue o código, conto a ajuda de vocês! Desde já, obrigada! Program Login; Var User, pass: string; Begin Writeln('Digite o nome de usuário: '); Readln(user); Writeln('Digite a senha: '); Readln(pass); Writeln; If (user<>'prepara') and (pass<>'123456') then Begin Write('Usuário ou senha inválido!'); end Else If (user='prepara') and (pass='123456') then Begin Write('Seja Bem-Vindo!'); end; readln; End.

@Simon Viegas Muito Obrigada! Precisarei de ajuda mais vezes kkkk

Boa noite, Sou educadora em uma escola de cursos da minha cidade. Tenho alguns alunos no módulo de Lógica de programação e estou fazendo algumas atividades complementares para ajudá-los. Estou com um certo problema com programinhas que usem o OP aritmético da divisão, só ele não funciona durante a execução. Vou deixar as linhas aqui e peço que, quem identificar o erro me ajude, por favor. To quebrando a cabeça e não sei o que pode ser. Program Multiplica_divide; VAR n1, n2, resultado: real; Escolha: Char; Begin Writeln('Digite M para Multiplicação'); Writeln('Digite D para Divisão'); Writeln('Qual operação deseja realizar? '); Readln(escolha); Writeln; Writeln('Digite o primeiro número: '); Readln(n1); Writeln('Digite o segundo número: '); Readln(n2); If escolha= 'M' then Begin resultado:=N1*N2; readln; end; If escolha= 'D' then Begin resultado:=N1/N2; readln; end Else Begin Writeln('O resultado e: ', resultado :2:2); readln; End; Readln; End. program Calculadora_N_divide; Var N1, N2, Resultado: real; escolha: char; begin Writeln('A para Somar'); Writeln('B para Subtrair'); Writeln('C para Multiplicar'); Writeln('D para Dividir'); Write('Escolha o que deseja fazer: '); Read(escolha); Writeln; Write('Digite o primeiro numero: '); read(N1); Write('Digite o segundo numero: '); read(N2); If escolha='A' then Begin Resultado:=N1+N2; End; If escolha='B' then Begin Resultado:=N1-N2; End; If escolha='C' then Begin Resultado:=N1*N2; End; If escolha='D' then Begin Resultado:=N1/N2; End Else Begin Writeln('Resultado: ', Resultado :2:2); readln; End; Readln; end.