постоение параллелограмма

[luchok]

напишите програмку пожалуйста,чтоб требовала ввод велечин сторон параллелограмма и отвечала,возможно ли его построение

[DM_bite]

напишите програмку пожалуйста,чтоб требовала ввод велечин сторон параллелограмма и отвечала,возможно ли его построение

Хах) напишите програмку, а наработки твои где?

[luchok]

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

[DM_bite]

program Parall;
var x,x1,y,y1,x2,x3,y2,y3:integer;
     b:boolean;
    begin
    ReadLn(x,y,x1,y1,x2,y2,x3,y3);
    if (sqrt(sqr(x1-x)+sqr(y1-y))=sqrt(sqr(x3-x2)+sqr(y3-y2)))
    and (sqrt(sqr(x3-x)+sqr(y3-y))=sqrt(sqr(x2-x1)+sqr(y2-y1)))
    then b:= true;
    else b:= false;
    WriteLn(b);
    ReadLn;
    end.

Вроде так... Это по точкам построение.(( Совсем запутался... А решение astrozombie верно: у параллелограмма противолежащие стороны равны.

[astrozombie]

ну вот с булевым типом,эт довольно легко

Program x;
Var
a,b,c,d:real;
v1,v2,v3:boolean;
begin
WriteLn('vvedi a,b,c,d > 0');Read(a,b,c,d);
If ((a>0) and (b>0) and (c>0) and (d>0)) then
Begin
v1:=((a=b) and (c=d));
v2:=((a=c) and (b=d));
v3:=((a=d) and (b=c));
If (v1 xor v2 xor v3) then
Write('postroenie vozmojno')
Else
Write('postroenie ne vozmojno');
End
Else Write('dannie ne verni')
End.

опоздал маленько))

[Min]

Я так понимаю ввод идёт только 2х сторон....... И сводится к задаче про треугольник (аналогичной).