Задачка с треугольником, Треугольник вписан в окружность Опции

[Liana K.]

Здравствуйте.
Равносторнний треуг. со стороной n вписан в окружность диаметром d. Написать программку в паскале в кот. анализировались бы исходные данные (вводимые пользователем n и d) на выполнения условия (о том что треуг. вприсан в окр.)
Спасибки)

[Liana K.]

Вот, попробывала сделать, кажется правильно

PROGRAM circletriangle;
VAR R,A,R2: REAL;

BEGIN
WRITELN ('Проверка условия на вписанность');
REPEAT
   WRITE ('Строна треугольника A = ');
   READLN (A);
   WRITE ('Радиус окружности R = ');
   READLN ®;

 BEGIN
  R2:=A*((SQR(3))/3);
  IF R=R2 THEN
  BEGIN
  WRITELN ('Треугольник не вписан');
  END
  ELSE
  WRITELN ('Треугольник не вписан');
END;
ReadLn;
end.

Сообщение отредактировано: Liana K. - 14.12.2009 21:50

[Lapp]

Liana, так:

IF R=R2 THEN

- проверку на равенство делать нельзя. Попробуй несколько разных значений, и ты сама убедишься, что в некоторых случаях будет выдавать отрицательный ответ (я сейчас не про то, что у тебя оба ответа отрицательные) в случаях, когда ты ждешь положительного. Так можно сравнивать только целые числа. Действительные нужно сравнивать с погрешностью.