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

[sheka]

label lab1;

var
  a,b,c:real;
  w:boolean;
begin
w:=true;
writeln('vvedi a b c');
readln(a,b,c);

if (b<=a)and(c<=a) then
  if b+c<=a then begin writeln('treugolnik ne stroitsa'); goto lab1; end
  else begin
    if b*b+c*c=a*a then writeln('treugolnik pramougolnii');
    if b*b+c*c<a*a then writeln('treugolnik tupougolnii');
    if b*b+c*c>a*a then writeln('treugolnik ostrougolnii');
    end;

if (a<=b)and(c<=b) then
  if a+c<=b then begin writeln('treugolnik ne stroitsa'); goto lab1; end
  else begin
    if a*a+c*c=b*b then writeln('treugolnik pramougolnii');
    if a*a+c*c<b*b then writeln('treugolnik tupougolnii');
    if a*a+c*c>b*b then writeln('treugolnik ostrougolnii');
    end;

if (b<=c)and(a<=c) then
  if b+a<=c then begin writeln('treugolnik ne stroitsa'); goto lab1; end
  else begin
    if b*b+a*a=c*c then writeln('treugolnik pramougolnii');
    if b*b+a*a<c*c then writeln('treugolnik tupougolnii');
    if b*b+a*a>c*c then writeln('treugolnik ostrougolnii');
    end;


if (a=b)and(b=c) then writeln('treugolnik ravnostoronni')
else
  if (a=b)or(a=c)or(b=c) then writeln('treugolnik ravnobedrenni')
  else writeln('treugolnik raznostoronnii');

lab1:
readln;
end.

[russian-stalker]

Да, теорему пифагора проходят же в 7-8 классе)

[k1r1ch]

Так я в 8 классе, а год только начался) Еще не успели пройти...
2sheka: А почему вершина одним числом задается?

[Вавел из ГМТУ]

Судя по всему там задаются длинны сторон треугольника.

[russian-stalker]

Давно таки на дельфях нечто подобное писал:

procedure triangle(canvas:tcanvas;x1,y1,x2,y2,y3,x3:integer);
begin
   with Canvas do
   begin
      MoveTo(x1,y1);
      lineto(x2,y2);
      lineto(x3,y3);
      lineto(x1,y1);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:extended;
x1,y1,x2,y2,y3,x3:integer;
s:string;
begin
x1:=50;
y1:=100;
x2:=100;
y2:=100;
x3:=75;
y3:=50;
triangle(paintbox1.Canvas,x1,y1,x2,y2,y3,x3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
if sqr(b)+sqr(c)=sqr(a) then
s:=s+'Прямоугольный';
if sqr(b)+sqr(c)<sqr(a) then
s:=s+'Тупоугольный';
if sqr(b)+sqr(c)>sqr(a) then
s:=s+'Остроугольный';
if (a=b) or (b=c) or (a=c) then
s:=s+', равнобедренный треугольник';
if (a=b) and (b=c) then
s:=s+', равносторонний треугольник';
label1.Caption:='a: '+floattostr(a)+'; b: '+floattostr(b)+'; c: '+floattostr(c)+#10+#13+s;
end;