Programa Pascal

3)Escrever um programa em pascal para ler 3 valores de um comprimento de seguimento de reta

e verificar se eles podem ser os comprimentos dos lados de um triangulo.Em caso afirmativo

verificar e informar se o triangulo é escaleno.

Caso os comprimentos não possam formar um triangulo emitir uma mensagem apropriada

Program triangulo ;

var a,b,c :real;

Begin

writeln('Informe os valores de a,b e c');

read(a,b,c);

if (a>b+c) or (b>a+c) or (c>a+b) then

begin

writeln('Os valores nao formam um triangulo')

;

end

else

begin

writeln('É um triangulo');

;

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

begin

writeln('O triangulo é escaleno');

end

;

End

end.

Teste:

var

A, b, c : real;

Begin

Writeln (valor de a);

Readln(a)

Writeln(valor de b);

readln(b)

Writeln(valor de c);

Readln(c)

If (a>b+c) or (b>a+c) or (c>a+b) then

Writeln('eh um triangulo.');

Else

Writeln('Nao eh um triangulo');

If (a<>b) and (a<>c) and (c<>b) then

Writeln(e ele eh um triangulo escaleno);

End.

algoritmo "questao1"

var

aux: vetor[1..5,1..50] de inteiro

numNomes: vetor[1..5,1..50] de inteiro //Matriz com nomes em numero

nomes: vetor[1..5,1..50] de caracter //Matriz pra transformar nome em numero

k, i, j: inteiro

nome: VETOR [1..5] DE CARACTER //Vetor que armazena nomes

inicio

//******PEGO OS NOMES DAS PESSOAS

para i de 1 ate 5 faca

escreval("Informe o nome da pessoa")

leia(nome[i])

fimpara

//******MANDO OS NOMES PARA UMA MATRIZ QUE IRÁ SEPARAR CADA LETRA

para i de 1 ate 5 faca

para j de 1 ate 50 faca

nomes[i,j] <- copia(nome[i],j,j)

fimpara

fimpara

//******TRANSFORMO CADA LETRA DA MATRIZ EM NUMERO DA TABELA ASCII

para i de 1 ate 5 faca

para j de 1 ate compr(nome[i]) faca

numNomes[i,j] <- asc(nomes[i,j])

fimpara

fimpara

//******TABELA ASCII DESORGANIZADA

escreval("********Tabela Desorganizada********")

para i de 1 ate 5 faca

para j de 1 ate compr(nome[i]) faca

escreva(numNomes[i,j]:5)

fimpara

escreval()

fimpara

//Organizando em ordem numerica

para i de 1 ate 5 faca

para k de 1 ate 5 faca

se (numNomes[i,1] < numNomes[k,1]) entao

para j de 1 ate 50 faca

aux[1,j]