Алгоритм должен выводить 0, если нельзя построить треугольник с длинами сторон a, b,c a, b,c-заданные числа, иначе 3,2,1 если треугольник соответственно

1 Январь 0001



алгоритм должен выводить 0, если нельзя построить треугольник с длинами сторон a,b,c (a,b,c-заданные числа), иначе 3,2,1 если треугольник соответственно, равносторонний или равнобедренный или другой.

  • Program Vlad971997;
    uses crt;
    var
      a,b,c:real;
    begin
      writeln(‘*** alphaues is thinking… ***’);
      writeln(‘***          OK             ***’);
      write(‘Введите a ‘); readln(a);
      write(‘Введите b ‘); readln(b);
      write(‘Введите c ‘); readln(c);
      if (a>=b+c) or (b>=a+c) or (a>=b+c) then
          writeln(‘Ответ “0″: Со сторонами a,b,c нельзя построить треугольник’)
        else
          if (a=b)and (b=c) and (a=c) then
              writeln(‘Ответ “3″: Со сторонами a,b,c можно построить равносторонний треугольник’)
            else
              if (a<>b)and (b<>c) and (a<>c) then
                  writeln(‘Ответ “1″: Со сторонами a,b,c можно построить другой треугольник’)
                else
                  writeln(‘Ответ “2″: Со сторонами a,b,c можно построить равнобедренный треугольник’)
    end.

     

    Проверено – работает на Паскаль АВС



  • CLS

    a:

    INPUT a

    IF a< =0 THEN GOTO a

    b:

    INPUT b

    IF b< =0 THEN GOTO b

    c:

    INPUT c

    IF c< =0 THEN GOTO c

    IF a>=b+c OR b>=a+c OR c>=a+b THEN PRINT 0: END

    IF a=b AND b=c AND c=a THEN PRINT “треугольник равноcторонний” END

    IF a=b OR b=c OR c=a THEN PRINT “треугольник равнобедренный”: ELSE PRIINT “другой”

    END









Информатика

Комментарии закрыты.