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