Задача на Pascal. Равносторонние треугольники.

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
Eugie
Сообщения: 707
Зарегистрирован: 17 фев 2004, 23:59
Откуда: SPb

16 мар 2004, 22:27

Ну если сам не понял, кто же тебя поймет... :)
Такой вариант не сгодится?

Код: Выделить всё

function IsEquilateralTriangle(a,b,c: Real): Boolean;
begin
  Result := (a>0) and (a=b) and (b=c);
end;
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

18 мар 2004, 03:23

vitalik,
1) Приведите четкое и однозначное условие задачи, иначе тема будет удалена!
2) Соблюдайте впредь соглашение о названиях тем (название исправлено)
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

17 июн 2004, 07:33

Каких синусов!
Три вещественных числа могут быть только сторонами треугольника (длинами сторон). Eugie прав.
Ответить