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.