Даны три числа. Определить, являются ли они сторонами треугольника. Если да, найти его периметр
числа где?
сами числа не дааны. тут как-то через блок-схему..
какие числа? Вы вообще задачу читали? Здесь имеется ввиду ввести три числа и проверить, существует ли треугольник с данными сторонами
С клавиатуры запрашиваются целые числа а, Ь и с. Про¬грамма проверяет, можно ли, представив, что эти числа означают длины сторон, составить из них треугольник, затем рисует его на экране и вычисляет его площадь. Если тре-угольник с такими сторонами не существует, то на экране появляется соответствующее сообщение и картинка.
Это мое условие задачи, оно похоже на ваше. Мне просто не очень хочется перершывать то, что уже есть
Private Sub Command1_Click()X1 = Val(Text1)Y1 = Val(Text2)X2 = Val(Text3)Y2 = Val(Text4)X3 = Val(Text5)Y3 = Val(Text6)a = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)b = Sqr((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2)c = Sqr((X3 - X1) ^ 2 + (Y3 - Y1) ^ 2)
If (a + b) < c Or (a + c) < b Or (b + c) < a Then Picture1.Print "такого треугольника не существует"p1 = a + b + cText7 = p1Picture1.Scale (0, 0)-(200, 200)Picture1.Line (X1, Y1)-(X2, Y2)Picture1.Line (X2, Y2)-(X3, Y3)Picture1.Line (X3, Y3)-(X1, Y1)End Sub
отправила задачу по частям
только не площадь,а периметр, он выводится в Text7
Program triangle; var a,b,c,p: real; begin writeln('Введите стороны треугольника'); read(a,b,c); writeln('a=',a,' b=',b,' c=',c); if (abegin p:=a+b+c; write('Да, существует. Периметр = ',p); end else write('Нет, не существует.'); end.
Добавил в программу подсчёт периметра.
У меня есть решение на visual basiс. Вас устроит?
устроит.