Ir para conteúdo
Fórum Script Brasil
  • 0

O Código esta errado ?


valterlin

Pergunta

Estou tentando desenrolar o Codigo mais o meu colega falow que estava errado por causa dessa sequencia de ELSE depois do IF agora fiquei na duvida ele tem razao ?

Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin

Write ("Digite um número:")

Read (A)

Write ("Digite um numero:")

Read (B)

Write ("Digite um número:")

Read ©

IF (A>B) e (B>C) then

Write ("Essa é a ordem crescente: C, B, A”);

Else

IF (B>A) e (A>C) then

Write ("Essa é a ordem crescente: C, A, B”);

Else

IF (C>A) e (A>B) then

Write ("Essa é a ordem crescente: B, A, C”);

Else

IF (B>C) e (C>A) then

Write ("Essa é a ordem crescente: A, C, B”);

Else

IF (A>C) e (C>B) then

Write ("Essa é a ordem crescente: B, C, A”);

Else

IF (C>B) e (B>A) then

Write ("Essa é a ordem crescente: A, B, C”);

End.

Espero que meajudem fuiiiiiiiiiiii

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Estou tentando desenrolar o Codigo mais o meu colega falow que estava errado por causa dessa sequencia de ELSE depois do IF agora fiquei na duvida ele tem razao ?

Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin
Write ("Digite um número:")
Read (A)
Write ("Digite um numero:")
Read (
Write ("Digite um número:")
Read ©

IF (A>B) e (B>C) then
Write ("Essa é a ordem crescente: C, B, A");

Else
IF (B>A) e (A>C) then
Write ("Essa é a ordem crescente: C, A, B");

Else
IF (C>A) e (A>B) then
Write ("Essa é a ordem crescente: B, A, C");

Else
IF (B>C) e (C>A) then
Write ("Essa é a ordem crescente: A, C, B");

Else
IF (A>C) e (C>B) then
Write ("Essa é a ordem crescente: B, C, A");

Else
IF (C>B) e (B>A) then
Write ("Essa é a ordem crescente: A, B, C");

End.
Observe que voce colocou um ponto e virgula no final do comando... para a sequencia de IF Else ficar correta voce deve retirar todos os pontos e virgulas, caso contrario voce deve finalizar o IF exemplo:
o comando if , que possui a seguinte estrutura: if condition then begin : : end; ou você pode adicionar a parte referente ao else: if condition then begin : : end <-- Note que o ponto-e-vírgula sumiu! else begin : : end;
Então há 2 maneiras de se fazer
Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin
Write ("Digite um número:")
Read (A)
Write ("Digite um numero:")
Read (
Write ("Digite um número:")
Read ©

IF (A>B) e (B>C) then
Write ("Essa é a ordem crescente: C, B, A");
end
Else
IF (B>A) e (A>C) then
Write ("Essa é a ordem crescente: C, A, B");
end
Else
IF (C>A) e (A>B) then
Write ("Essa é a ordem crescente: B, A, C");
end
Else
IF (B>C) e (C>A) then
Write ("Essa é a ordem crescente: A, C, B");
end
Else
IF (A>C) e (C>B) then
Write ("Essa é a ordem crescente: B, C, A");

end
Else
IF (C>B) e (B>A) then
Write ("Essa é a ordem crescente: A, B, C");


End.
ou assim
Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin
Write ("Digite um número:")
Read (A)
Write ("Digite um numero:")
Read (
Write ("Digite um número:")
Read ©

IF (A>B) e (B>C) then
Write ("Essa é a ordem crescente: C, B, A")

Else
IF (B>A) e (A>C) then
Write ("Essa é a ordem crescente: C, A, B")

Else
IF (C>A) e (A>B) then
Write ("Essa é a ordem crescente: B, A, C")

Else
IF (B>C) e (C>A) then
Write ("Essa é a ordem crescente: A, C, B")

Else
IF (A>C) e (C>B) then
Write ("Essa é a ordem crescente: B, C, A")

Else
IF (C>B) e (B>A) then
Write ("Essa é a ordem crescente: A, B, C")

End.

Mais informações:

Comandos Condicionais if e case of

http://www.cin.ufpe.br/~rmfl/IF_CASE.html

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Código mais enxuto!!!

Pascal:
Program Ordenar;
Var
Menor, N, Maior, Aux: Real;

Begin

Write ('Digite um numero: ');
Readln (Maior);
Write ('Digite um numero: ');
Readln (N);
Write ('Digite um numero: ');
Readln (Menor);
// o fato de os valores já entrarem
//nas variáveis com nomes Maior e Menor
//não significa que realmente o usuário
//digitará nessa ordem.
//se o usuário digitar noutra ordem,
//o programa se encarrega de corrigir.
If (Menor > Maior) Then
Begin
Aux := Maior;
Maior := Menor;
Menor := Aux;
End;
// ao chegar aqui, sei que Maior > Menor
// mas não sei nada sobre N

If (N > Maior) Then
Begin
Aux := Maior;
Maior := N;
N := Aux;
End;
// ao chegar aqui, sei que Maior > N
// preciso me certificar de que N > Menor

If (N < Menor) Then
Begin
Aux := Menor;
Menor := N;
N := Aux;
End;

Write (Menor, ' ', N, ' ' , Maior);

End.

Espero que tenha entendido!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...