Одним из таких свойств является дискретность. Под дискретностью понимается то, что алгоритм состоит из описания последовательности шагов обработки, организованный таким образом, что в начальный момент задаётся исходная ситуация, а после каждого следующего шага ситуация преобразуется на основе данных, полученные в предшествующие шаги обработки. Дискретность алгоритма означает, что он исполняется по шагам: каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.
Var a,b,c: real; BEGIN write('Введите длину стороны a: '); readln(a);' write('Введите длину стороны b: '); readln(b); write('Введите длину стороны c: '); readln(c); if (a+b <=c) or (b+c <= a) or (c+a <= b) then writeln('Треугольника с такими сторонами не существует! ') else begin if (sqr(a)+sqr(b)>sqr(c))and(sqr(b)+sqr(c)>sqr(a))and(sqr(c)+sqr(a)>sqr(b)) then writeln('Треугольник остроугольный') else if (sqr(a)+sqr(b)=sqr(c))and(sqr(b)+sqr(c)=sqr(a))and(sqr(c)+sqr(a)=sqr(b)) then writeln('Треугольник прямоугольный') else writeln('Треугольник тупоугольный'); end; END. Объяснение, Если a,b,c длины сторон теугольника, то a+b>c, b+c>a, c+a>b По теореме косинусов a^2+b^2-2abcos(c)=c^2? отсюда если угол C < 90? то cos(c)>0 поэтому a^2+b^2>c^2
BEGIN
write('Введите длину стороны a: '); readln(a);'
write('Введите длину стороны b: '); readln(b);
write('Введите длину стороны c: '); readln(c);
if (a+b <=c) or (b+c <= a) or (c+a <= b) then writeln('Треугольника с такими сторонами не существует! ')
else begin
if (sqr(a)+sqr(b)>sqr(c))and(sqr(b)+sqr(c)>sqr(a))and(sqr(c)+sqr(a)>sqr(b)) then writeln('Треугольник остроугольный')
else if (sqr(a)+sqr(b)=sqr(c))and(sqr(b)+sqr(c)=sqr(a))and(sqr(c)+sqr(a)=sqr(b)) then writeln('Треугольник прямоугольный')
else writeln('Треугольник тупоугольный');
end;
END.
Объяснение,
Если a,b,c длины сторон теугольника, то a+b>c, b+c>a, c+a>b
По теореме косинусов a^2+b^2-2abcos(c)=c^2? отсюда если угол C < 90? то cos(c)>0 поэтому a^2+b^2>c^2