Algoritmo - Exercícios

[Elivelton Dias 0]

1 - Escrever um algoritmo que solicita ao usuário que digite 3 números inteiros e verifica se os mesmos podem ser lados de um triangulo. Responda se os números são lados de um triangulo ou não. Se os lados formam um triangulo, escreva uma frase indicando se este triangulo é eqüilátero ou não.

Obs: O comprimento de cada lado de um triangulo é menor que a soma dos outros dois lados. Um triangulo eqüilátero tem o mesmo comprimento para todos os lados.

 

2 - Ler 5 números e informar quantos desses eram maiores que 10. Leia os números e em seguida teste um por um aumentando o contador de números maiores, se os números forem maiores que 10.

 

[Mário Monteiro 179]

O que já fez?

[anderson.hipolito 0]

Questão 01:

var

x,y,z:real

inicio

// Seção de Comandos

escreva("Insira o valor de X:")

leia(x)

escreva("Insira o valor de Y:")

leia(y)

escreva("Insira o valor de Z:")

leia(z)

se(x<y+z)e(y<x+z)e(z<x+y) entao

escreval("Pode ser um triângulo")

se(x=y)ou(y=z)ou(x=z) entao

escreval("Triângulo Isósceles")

senao

se(x=y)e(y=z)entao

escreval("Triângulo Equilátero")

senao

escreval("Triângulo Escaleno")

fimse

fimse

senao

escreva("Valores não forma um triângulo")

fimse

fimalgoritmo

[Sergio Cavalcante 6]

algoritmo "quest "

// Função :

// Autor :

// Data : 29/06/2013

// Seção de Declarações

//PROGRAMA NÃO OBDECE A REGRA DA FORMULA DO ENUCIADO (E SOMENTE ILUSTRATIVO)

//| b - c | < a < b + c

//| a - c | < b < a + c

//| a - b | < c < a + b

var

L1,L2,L3:inteiro

inicio

ESCREVAL(" B ")

ESCREVAL(" /\ ")

ESCREVAL(" / \ ")

ESCREVAL(" L1 / \ L2 ")

ESCREVAL(" / \ ")

ESCREVAL(" / \ ")

ESCREVAL(" A/__________\C ")

ESCREVAL(" L3 ")

ESCREVA("INFORME L1: " )

LEIA(L1)

ESCREVA("INFORME L2: " )

LEIA(L2)

ESCREVA("INFORME L2: " )

LEIA(L3)

se (L1=L2)e(L2=L3)entao

escreva("triangulo equilatero")

senao

se(L1<>L2)e(L2<>L3)entao

escreva("triangulo escaleno")

senao

escreva("triangulo e isoseles")

fimse

fimse

fimalgoritmo

[Sergio Cavalcante 6]

QUESTÃO 2 V SE ISSO TE AJUDA

 

var

NUMERO: VETOR [1..5] DE REAL

I, MAIOR: INTEIRO

inicio

MAIOR <- 0

PARA I DE 1 ate 5 FACA

ESCREVA("POR FAVOR INFORME OS VALORES ")

LEIA (NUMERO)

SE NUMERO > 10 ENTAO

MAIOR <- MAIOR + 1

FIMSE

FIMPARA

ESCREVAL("____________________________________________________")

ESCREVAL ("QUANTIDADE DE NUMEROS MAIORES QUE 10 SÃO: ", MAIOR)

PARA i DE 1 ATE 5 FACA

SE (NUMERO > 10) ENTAO

ESCREVAL (NUMERO)

FIMSE

FIMPARA

fimalgoritmo

[Sergio Cavalcante 6]

amigo resolveu ou não ....publica alguma coisa......

[anderson.hipolito 0]

sim deu certo aqui. Obrigado pelas ajudas.