Autor Tópico: Classificação de triangulos [Pascal]  (Lida 4150 vezes)

Offline Teotónio Ricardo

  • Administrator
  • Newbie
  • *****
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
    • http://www.teotonio.pt
Classificação de triangulos [Pascal]
« em: Outubro 28, 2005, 01:05:48 pm »
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:

Código: [Seleccione]
program perimetro;

uses crt;



var A,B,C: Real;



begin

clrscr;

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

read(A,B,C);

clrscr;

if (A<B+c) and (B<A+C) and (C<A+B) then

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.

Offline revx

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #1 em: Outubro 29, 2005, 08:48:54 pm »
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 :
Carpe Ad Infinitum

Offline Teotónio Ricardo

  • Administrator
  • Newbie
  • *****
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
    • http://www.teotonio.pt
Classificação de triangulos [Pascal]
« Responder #2 em: Outubro 29, 2005, 08:51:36 pm »
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)

Offline revx

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #3 em: Outubro 29, 2005, 08:57:54 pm »
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 :
Carpe Ad Infinitum

Offline lycosman

  • Global Moderator
  • Newbie
  • *****
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #4 em: Outubro 29, 2005, 09:09:00 pm »
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 :
Hooray for chainsaws :3


Offline revx

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #5 em: Outubro 29, 2005, 09:12:33 pm »
Lycosman um dos lados de um triângulo nunca é uma letra  : rir :

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

Offline lycosman

  • Global Moderator
  • Newbie
  • *****
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #6 em: Outubro 29, 2005, 09:14:06 pm »
Citar
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...
Hooray for chainsaws :3


Offline revx

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #7 em: Outubro 29, 2005, 11:36:47 pm »
mas para fazer isso o código complicava bastante  : rir :
Carpe Ad Infinitum

Offline lycosman

  • Global Moderator
  • Newbie
  • *****
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #8 em: Outubro 30, 2005, 08:45:22 am »
Citar
mas para fazer isso o código complicava bastante  : rir :

Pois...
Hooray for chainsaws :3


Offline Peludo

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
Classificação de triangulos [Pascal]
« Responder #9 em: Novembro 17, 2005, 07:23:38 pm »
Boas,

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



cumps [ ]

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49