|
|
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 1
Задача:
Даны три числа X, Y, Z. Проверить, существует ли треугольник с такими длинами сторон и является ли он прямоугольны м. Числа X, Y, Z вводятся с клавиатуры . Результат вы водится на экран в удобном для восприятия виде.
|
Решение: |
>>Скачать<< |
program task3;
var x,y,z:real;
     r,r1,r2,r3:integer;
procedure vvod;
begin
     writeln('VVEDITE DLINI STORON TREUGOLNIKA X Y Z');
     readln(x,y,z);
     { x:=2; DLYA PROVERKI!
     y:=2;
     z:=sqrt(8);}
end;
procedure proverka;
begin
     {SUSCHESTVOVANIE TREUGOLNIKA}
     if (abs(x-y) < z) and (z < (x+y)) then r:=1;
     if (abs(x-z) < y) and (y < (x+z)) then r1:=1;
     if (abs(z-y) < x) and (x < (z+y)) then r2:=1;
     if (r = 1) and (r1 = 1) and (r2 = 1) then
     begin
{PRYAMOUGOLNOST}
        if (z > x) and (z > y) then if sqrt(sqr(x)+sqr(y)) = z then r3 := 1;
        if (x > z) and (x > y) then if sqrt(sqr(z)+sqr(y)) = x then r3 := 1;
        if (y > z) and (y > x) then if sqrt(sqr(z)+sqr(x)) = y then r3 := 1;
     end;
end;
procedure vivod;
begin
     if r3 = 1 then writeln('Pryamougolnii treugolnik suschestvuet!')
     else writeln('Pryamougolnii treugolnik ne suschestvuet!');
end;
begin
     vvod;
     proverka;
     vivod;
     readln;
end.
|
|
| |