Очень надо! Треугольник задан длинами сторон А, В, С. Разработать схему алгоритма, опре-деляющую, существует ли данный треугольник. Если треугольник существует, то устано-вить значение флага F=1, иначе F=0. Для решения этой задачи использовать сложные логические условия. Протестировать алгоритм для следующих исходных данных: а) A=3, B=4, C=5 б) A=1, B=1, C=1 в) A=0, B=4, C=5 г) A=-3, B=6, C=5 д) A=2, B=1, C=8
Аноним:
Язык программирования какой?
Ответы
Ответ дал:
2
var
a,b,c:real;
F:byte;
begin
Write('Введите длины сторон треугольника: '); Readln(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) and
(a>0) and (b>0) and (c>0) then F:=1 else F:=0;
if F=1 then Writeln('Треугольник можно построить')
else Writeln('Треугольник построить нельзя')
end.
Тестовые решения:
Введите длины сторон треугольника: 3 4 5
Треугольник можно построить
Введите длины сторон треугольника: 1 1 1
Треугольник можно построить
Введите длины сторон треугольника: 0 4 5
Треугольник построить нельзя
Введите длины сторон треугольника: -3 6 5
Треугольник построить нельзя
Введите длины сторон треугольника: 2 1 8
Треугольник построить нельзя
a,b,c:real;
F:byte;
begin
Write('Введите длины сторон треугольника: '); Readln(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) and
(a>0) and (b>0) and (c>0) then F:=1 else F:=0;
if F=1 then Writeln('Треугольник можно построить')
else Writeln('Треугольник построить нельзя')
end.
Тестовые решения:
Введите длины сторон треугольника: 3 4 5
Треугольник можно построить
Введите длины сторон треугольника: 1 1 1
Треугольник можно построить
Введите длины сторон треугольника: 0 4 5
Треугольник построить нельзя
Введите длины сторон треугольника: -3 6 5
Треугольник построить нельзя
Введите длины сторон треугольника: 2 1 8
Треугольник построить нельзя
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад