Среда, 08 Февраля 2023, 19:56

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » То ли я дурак, то ли лыжи не едут...
То ли я дурак, то ли лыжи не едут...
СибирскийДата: Пятница, 21 Октября 2011, 19:22 | Сообщение # 1
Javatar
Сейчас нет на сайте
Нужно по координатам точек определить, прямоугольник ли фигура с этими координатами
Code
program Geom;

var
   x1, x2, x3, x4, y1, y2, y3, y4: real;

function distance(x1, y1, x2, y2: real): real;
begin
   distance := sqrt(sqr(x2 - x1) + sqrt(y2 - y1));
end;

begin
   readln(x1, y1, x2, y2, x3, y3, x4, y4);
   if (distance(x1, y1, x2, y2) = distance(x3, y3, x4, y4)) and (distance(x1, y1, x3, y3) = distance(x2, y2, x4, y4)) and (distance(x1, y1, x4, y4) = distance(x2, y2, x3, y3))
     then
     writeln('Yes')
   else
     writeln('No');
end.

Не проходит тесты... Странно

Добавлено (21.10.2011, 19:22)
---------------------------------------------
Все, разобрался! Натупил просто


RomolДата: Пятница, 21 Октября 2011, 19:23 | Сообщение # 2
Консольщик
Сейчас нет на сайте
А если я тебе помогу, то меня интересует цена вопроса 30-50 рублей как за эту обычную задачу ? wink
---
Выручка сорвалась biggrin


I'm a boxer.



Сообщение отредактировал Romol - Пятница, 21 Октября 2011, 19:24
GECKДата: Пятница, 21 Октября 2011, 19:25 | Сообщение # 3
заслуженный участник
Сейчас нет на сайте
Code
distance := sqrt(sqr(x2 - x1) + sqrt(y2 - y1));

Code
sqrt(y2 - y1)


Всё гениальное просто. И хреново работает.
noTformaTДата: Пятница, 21 Октября 2011, 19:25 | Сообщение # 4
Ukrainian independent game developer
Сейчас нет на сайте
Квадрат диагонали прямоугольника равен сумме квадратов двух его смежных сторон (по теореме Пифагора).

@noTformaT
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » То ли я дурак, то ли лыжи не едут...
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2023 Рейтинг