Проверьте решение, Школьная задачка на равенство Опции

[Starichok]

Знакомой дали задание написать программу для решения следующей задачи:
Дано два круга с радиусами R1 и R2. Можно ли вписать в какой-нибудь из них равносторонний треугольник?
Площадь равностороннего треугольника
S=a^2*sqrt(3)/4;
Площадь треугольника вписанного в окружность
S=a^3/(4*R);

Возможно ли следующее решение:

Program First;

var
A,B,C,D: Real;

begin

Write('Введите значение a: ');
Readln(A);
Write('Введите значение R1: ');
Readln(B);
{Площадь равностороннего треугольника}
C:= A * A * sqrt(3) / 4;
{Площадь треугольника вписанного в окружность}
D:= A * A * A / (4 * B);
If C<>D Then Writeln ('Не возможно для R1')
else Writeln ('Возможно для R1');
Write ('Введите значение R2: ');
Readln(B);
If C<>D Then Writeln ('Не возможно для R2')
else Writeln ('Возможно для R2');

Readln;
end.

P.S. Не судите строго - с Паскалем знаком второй день.

М

Незнание правил не освобождает от ответственности, правила читать будем ? Исходный текст программы надо заключать в теги CODE. klem4

[volvo]

Starichok, ну если формулы правильные, то тогда все ок.

Ага, сейчас прямо... Особенно вот это:

begin
  { ... }
  Write('Введите значение R1: '); Readln(B);

  {Площадь равностороннего треугольника}
  C:= A * A * sqrt(3) / 4;
  {Площадь треугольника вписанного в окружность}
  D:= A * A * A / (4 * B);

  If C<>D Then Writeln ('Не возможно для R1')
  else Writeln ('Возможно для R1');

  {
    Спрашивается, зачем вводим B второй раз ???
    Все равно ничего не пересчитывалось...
  }
  Write ('Введите значение R2: '); Readln(B);
  If C<>D Then Writeln ('Не возможно для R2')
  else Writeln ('Возможно для R2');

  Readln;
end.