Проверка существования треугольника

@KeNT1922 · Регистрация: 09.12.2013

Author24 — интернет-сервис помощи студентам

Pascal

program
function trg(x,y,z:real):boolean;
begin
trg:=(x+y>z)and(x+z>y)and(y+z>x)
end;
procedure vyvod(x,y,z:real);
begin
if trg(x,y,z) then
begin
writeln('Треугольник со сторонами ',x:0:2,' ',y:0:2,' ',z:0:2,' существует');
writeln('его периметр=',x+y+z:0:2);
end
else
begin
writeln('Треугольник со сторонами ',x:0:2,' ',y:0:2,' ',z:0:2,' не существует');
writeln('его периметр=0');
end
end;
var a,b,c,d,p:real;
begin
repeat
writeln('Введите длины 4-х отрезков');
read(a,b,c,d);
until(a>0)and(b>0)and(c>0)and(d>0);
vyvod(a,b,c);
vyvod(a,b,d);
vyvod(a,c,d);
vyvod(b,c,d);
end.

ВАСИЛЕВС · 24.12.2013, 14:13

Сообщение от KeNT1922

Pascal

program

Программу назвать надо.

Pascal

1
2
3

program test;
program hello;
program triangle;

@KeNT1922 · 24.12.2013, 14:39 **[ТС]**

нет

ВАСИЛЕВС · 24.12.2013, 14:46

Что нет? Вставьте полный листинг программы используя теги"PASCAL/PASCAL", ещё бы отформатировали его, а то выглядит нечитаемо...

@KeNT1922 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 20
	24.12.2013, 14:39 [ТС]	3
	нет 0

ВАСИЛЕВС 561 / 484 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	24.12.2013, 14:46	4
	Что нет? Вставьте полный листинг программы используя теги"PASCAL/PASCAL", ещё бы отформатировали его, а то выглядит нечитаемо... 0