Classificação de triangulos [Pascal]

[Teotónio Ricardo]

Classificação de triangulos [Pascal]

Aqui fica um programa em pascal que classifica o triangulo se é escaleno, isosceles, equilatero ou se não é um triangulo, pedindo os tres lados:

Code Select Expand

program perimetro;

uses crt;



var A,B,C: Real;



begin

clrscr;

writeln(\\'Introduza 3 valores numericos\\');

read(A,B,C);

clrscr;

if (A
if (A=B) and (B=C) then

begin

writeln(\\'Triangulo equilatero\\');

end

else

if (a=b) or (A=b) or (B=C) then

begin

Writeln(\\'Triangulo isosceles\\');

end

else

begin

Writeln(\\'Triangulo escaleno\\');

end

  else

  begin

writeln(\\'Nao é triangulo\\');

end;

readkey;

clrscr;

writeln(\\'Programa feito pelo cenourinha - www.webtuga.com\\');

readkey;

end.

[revx]

Triângulo Equilátero   
Os três lados têm medidas iguais.
m(AB)=m(BC)=m(CA)

Exemplo:
 isto que eu disse é como eu fazia o programa se fosse eu  : fumar :

[Teotónio Ricardo]

Sim para a prxima faço isso, e falta uma coisa, é que se os dados que pusermos nao derem um triangulo, então ele Vai apresentar a mensagem ( Não é Triangulo)

[revx]

Exacto ... esqueçi-me desse pormenor, o script testa isso somando dois dos lados menores e comparando com o maior, se este lado maior for menor que a soma dos dos lados menores eles apresenta o texto Não é triangulo

 : tanks :

[lycosman]

Não é para ser desmancha prazeres mas e se eu puser uma letra?? Abrasa logo com o programa... Faltam ai umas comparações com a tabela ASCII para verificar se o elemento introduzido e numero ou letra...  : bom trabalho :

[revx]

Lycosman um dos lados de um triângulo nunca é uma letra  : rir :

O programa é para beneficio próprio do utilizador  : fumar :

[lycosman]

Lycosman um dos lados de um triângulo nunca é uma letra  : rir :

O programa é para beneficio próprio do utilizador  : fumar :

Claro que sim, e a partida um user quando utiliza um prog sabe o que tem que meter la, mas esse e um erro comum em programas deste genero... e que os programaodres nunca olham a todas as hipoteses de resposta/erro...

[revx]

mas para fazer isso o código complicava bastante  : rir :

[lycosman]

mas para fazer isso o código complicava bastante  : rir :

Pois...

[Peludo]

Boas,

ehehhhe quanto num vale as aulas de B.P.(Bases de Programaçao), na escola nao cenourinha....



cumps [ ]