Teste de programação

Teste 3

1. (If) Escreva programa Pascal para ler 3 números inteiros e verificar se estes podem corresponder as medidas dos lados de um triangulo (a medida de qualquer um dos lados deve ser menor qque a soma das medidas dos outros dois).

program triangulo; var lado1, lado,2 lado3: integer; begin Writeln('Insira 3 numeros distintos:'); readln(lado1, lado2, lado3); if ((lado1+lado2)>lado3) then writeln('Os valores nformados formam um triangulo!'); else writeln(' Os valores informados nao formam um triangulo!'); readln; end.

3. (Case) Escrever algaritimo para (a) ler 3 numeros inteiros distintos entre si; (b) exibir menu composto por: 1 - maior, 2 - menor, 3 - media, 4 - triangulo, 5 - triangulo retangulo; (c) ler a opcao desejada pelo usuario; (d) caso o usuario selecione a opcao 1, exibir o maior dentre os 3 numeros dados; se opcao 2, exibir o menor; se opcao3, exibir a media aritimetica simples dos numeros dados; se opcao 4 verificar se as tres msdidas formam um triangulo e se opcao 5, se as tres medidas formam um triangulo retangulo. program numeros; var numero1, numero2, numero3, escolha: integer; maior, menor, meio: integer; begin Writeln('Insira 3 numeros distintos:'); readln(numero1, numero2, numero3); writeln('Escolha: 1 - maior, 2 - menor, 3 - media, 4 - triangulo, 5 - triangulo retangulo'); readln(escolha); if (numero1>=numero2)and(numero1>=numero3)then begin maior:=numero1 if(numero2>=numero3)then begin meio:=numero2; menor:=numero3; end else if (numero3>=numero2)then begin meio:=numero3; menor:=numero2; end; end else if(numero2>=numero1)and(numero2>=numero3)then begin maior:=numero2; if(numero1>=numero3)then begin meio:=numero1; menor:=numero3; end else if(numero3>=numero1)then begin meio:=numero3; menor:=numero1; end; end else if(numero3>=numero1)and(numero3>=numero2)then begin maior:=numero3; if(numero2>=numero1)then begin meio:=numero2;