20-04-2014 11:01:55

3 уровень 15. Заданы координаты (на плоскости) вершин четырехугольника. Определить, является ли он: а) ромбом;

Question

Информатика

Павлина

26 мая, 07:39

20-04-2014 11:01:55

3 уровень 15. Заданы координаты (на плоскости) вершин четырехугольника. Определить, является ли он: а) ромбом;

+4

Ответы (1)

Знаете ответ на вопрос?

Макрина · Answer 1

Var

x, y, s:real;

i, f:integer;

begin

f:=1;

for i:=1 to 4 do

begin

write ('Введите координаты точки: ') ;

readln (x, y) ;

if i=1 then

s:=sqrt (x*x+y*y)

else if ssqrt (x*x+y*y) then f:=0;

end;

if f=1 then

writeln ('Да, является ромбом')

else writeln ('Нет, не является ромбом') ;

end.

20-04-2014 11:01:553 уровень 15. Заданы координаты (на плоскости) вершин четырехугольника. Определить, является ли он: а) ромбом;

20-04-2014 11:01:55

3 уровень 15. Заданы координаты (на плоскости) вершин четырехугольника. Определить, является ли он: а) ромбом;