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

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
   

Развернуть Обзор темы: Задача на Pascal. Равносторонние треугольники.

Naeel Maqsudov » 17 июн 2004, 07:33

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

Naeel Maqsudov » 18 мар 2004, 03:23

vitalik,
1) Приведите четкое и однозначное условие задачи, иначе тема будет удалена!
2) Соблюдайте впредь соглашение о названиях тем (название исправлено)

Eugie » 16 мар 2004, 22:27

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

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

function IsEquilateralTriangle(a,b,c: Real): Boolean;
begin
  Result := (a>0) and (a=b) and (b=c);
end;

Вернуться к началу