Информатика


              

Решение задач на ЭВМ - часть 3


А именно, здесь указаны три неравенства треугольника и условия положитель­ности длин сторон. При нарушении этих условий треугольника просто не существует и тем более нельзя говорить о его площади.

Для надежности программ такого рода ситуации (когда нет реше­ний) должны быть предусмотрены в сценарии диалога. В этих случаях в сценарий необходимо включить сообщения с диагностикой причин отказов: отсутствие решений, недопустимость данных, некоррект­ность команд, противоречивость фактов и т. п.

Алгоритм                                                                  Программа

алг «площадь треугольника»                                 ' площадь треугольника

нач                                                                              cls

вывод («площадь треугольника»)                          ? «площадь треугольника»

вывод («длины сторон:»)                                        ? «длины сторон:»

запрос («а=», a)                                                         input «a=», a

запрос («b=», b)                                                         inpnt «b=», b

запрос («с=», с)                                                         input «c=», c

если не (а > 0 и b > 0 и с > 0) то                             if a<=0 or b<=0 or c<=0 then

вывод («недопустимы длины»)                             ? «недопустимы длины»

инеc не (а < b

+ с и b < а +                                       elseif not (a < b+ с and b < а + с

+с и с<а+b)то                                                          and с < а + b) then

вывод («недопустимы длины»)                             ? «недопустимы длины»

иначе                                                                          else

р := (а + b + с)/2                                                       р = (а+ b +с)/2

S :=

                  S = sqr (p*(p-a)*(p-b)*(p-c))

вывод («площадь=», S)                                           ? «площадь=», S




Содержание  Назад  Вперед