Триъгълник

Публикувано на 22 февруари, понеделник от Данаил

Да се напише програма, която позволява да се въведат три реални числа и проверява дали те представляват валидни страни на триъгълник, и какъв е видът му – равностранен, равнобедрен, правоъгълен или друг. Да се изведе подходящо съобщение за всеки конкретен случай.

Публикувано в 9а с етикети . Постоянна връзка.

2 Responses to Триъгълник

  1. Боряна каза:
    24 февруари, сряда в 18:51 
    program strani_na_triagalnik;
var
  a, b, c: Real;
begin
  //въвеждаме данни
  WriteLn('Vavedi stranite a, b i c na triagalnik.');
  ReadLn(a,b,c);

  //проверки
  if (((a+b)>c) and ((a+c)>b) and ((b+c)>a)) then
  begin
     WriteLn('Tova sa validni strani na triagalnik.');
     if ((a=b) and (a=c) and (b=c)) then
        WriteLn('Triagalnik s takiva strani e ravnostranen.')
     else if ((a=b) or (a=c) or (b=c)) then
        WriteLn('Triagalnik s takiva strani e ravnobedren.');
     if (((Sqr(a)+Sqr(b))=Sqr(c))
     or ((Sqr(a)+Sqr(c))=Sqr(b))
     or ((Sqr(c)+Sqr(b))=Sqr(a))) then
        WriteLn('Triagalnik s takiva strani e pravoagalen.');
  end
  else
     WriteLn('Tova ne sa validni strani na triagalnik.');

  ReadLn;
end.

Вашият коментар