два угла треугольника

[Ника-Вероника]

как написать процедуру в delphi для определения остроугольный ли треугольник или нет по двум углам. я пробую, но у меня все время появляются варианты, которые не должны учитываться.

[Poma][a]

begin
        Read (a, b);
        c := 180 - a - b;
        
        if (a < 90) and (b < 90) and (c < 90) then
               WriteLn ('YES')
        else
               WriteLn ('NO')
end;

З.Ы.

[BDA]

function tupougolni(a:real;b:real):boolean;
begin
	if (a<90)and(b<90) then
	begin
		if (180-a-b>90) then
			tupougolni:=true
		else
			tupougolni:=false;
	end
	else
		tupougolni:=true;
end;

Эх, и позже и код хуже

УПД

Сообщение от Poma][a

BDA, а девушка просила процедурку.....

procedure triangle(a:real;b:real;var t:integer);
begin
	if (a<90)and(b<90)and(180-a-b<90) then
		triangle:=0
	else
	if (a=90)or(b=90)or(180-a-b=90) then
		triangle:=1
	else
		triangle:=2;
end;
//t=0 остроугольный
//t=1 прямой
//t=2 тупоугольный

[offtop]УПД2 Poma][a, как вам такой вариант: "Даже если будешь питаться наравне с лучшими - всё равно умрёшь как и все прочие."[/offtop]
УПД3 Опечатался второпях

[Hacker19_90]

хе хе!

у меня все время появляются варианты, которые не должны учитываться.

ну показывайте что там за варианты!

[Poma][a]

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

function tupougolni;

BDA, а девушка просила процедурку.....
И если честно, то транслит не айс...
Правда у меня вообще без процедуры... Ну ладно сама сделает)
[offtop]З.Ы. кстати ,Hacker19_90, не подскажешь перевод подписи? просто гугл какую-то хрень выдает. а своих знаний не хватает...[/offtop]

[Poma][a]

function triangle(a:real;b:real;var t:integer);

Ты сегодня не в духе)

[Hacker19_90]

кстати ,Hacker19_90, не подскажешь перевод подписи? просто гугл какую-то хрень выдает. а своих знаний не хватает..

если подскажу будет считаться за оффтоп! личка для этого есть, ася!
СОРИ ЗА ОФФТОП!
Кстати Poma][a
Вот собственно вопрос к вам!
прямоугольный треугольник вы к какому виду отнесёте? остро или тупоугольный?

[Poma][a]

отдельно наверно....