Onde foi que eu errei ?

[valterlin]

O professor falow que tem algo errado mais não sou muito bom em pascal to engatinhando alguém pode me ajudar nesse exercicio eu fiz assim ..

(A) Dentre três números dados pelo usuário, verificar e exibir o de maior valor.

Programa_maior;

Var

maior, a, b, c: real

inicio

leia (a)

leia (B)

leia ©

Se (a>b) e (a>c) então

Maior <- a

Senão

se (b>a) e (b>c) então

Maior <- b

Senão

se (c>a) e (c>b) então

Maior <- c

Fim_se

fim_se

fim_se

escreva (“O maior é”, maior)

fim.

Programa_maior;

Var

maior,a,b,c:real

Begin

write(‘Escreva três números inteiros e distintos:’);

read (a,b,c);

if (a>b)and(a>c) then

write(‘O maior número é ’,a)

;

Else

if (b>c)and(b>a) then

write(‘O maior número é ’,B)

;

Else

if (c>a)and(c>b) then

write (‘O maior número é ’,c)

;

end.

[Jhonas]

(A) Dentre três números dados pelo usuário, verificar e exibir o de maior valor.

Programa_maior; 
Var
maior, a, b, c: integer
inicio
leia (a)
leia (b)
leia (c)

se (a>b) e (a>c) então 
maior <- a
fimse

se (b>a) e (b>c) então
maior <- b
fimse

se (c>a) e (c>b) então
maior <- c
fim_se

escreva ('O maior é: ', maior) 
fim.

abraço

[Beraldo]

é bom manter esses IF's aninhados, para economizar processamento. Se "a" for o maior, não precisa executar os dois próximos IF's.

[Jhonas]

Comandos Condicionais if e case of

exemplos muito bons:

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

http://profsergio.frutalhost.com.br/module...mp;ratetype=num

http://www.ucb.br/programar/algoritmo/pratica_controleV.htm

abraço

[Paulo_elite]

Veja esse tópico, não é a mesma coisa que quer, mais ajuda no seu raciocínio, eis um código que entra 3 valores e a saída é a ordem crescente, esse código pode ajudar a você estudar, sei que quer o maior, e já foi postado um código aqui pra você, mais olha o meu código que postei neste link Clique aqui