Даны площадь круга и площадь квадрата

[Joker<777>]

1. Даны площадь круга и площадь квадрата, определить поместится ли квадрат в круг.

[Marsel737]

Это что задачу заказал нам или что?

var
  S1, S2: real;
begin
  Writeln('Введите площадь круга');
  ReadLn(S1);
  Writeln('Введите площадь квадрата');
  ReadLn(S2);
  if Sqrt(S2) > 2 * Sqrt(S1 / 3.14) then
    Writeln('Круг поместится в квадрате')
  else  
    Writeln('Круг не поместится в квадрате');
  Readln;
end;

[_-Re@l-_]

Ну можно так:

Uses CRT;
Var 
     S,R:Real; {Площадь круга и его радиус}
     S1,A:Real; {Площадь квадрата и его сторона}
Begin
        Write('Enter S: ');
        Readln(S);
        R:=sqrt(S/Pi);
        Write('Enter S1: ');
        Readln(S1);
        A:=Sqrt(S1);
        If 2*R<=A Then Write('Yes!') Else Write('No!');
        Readln;
End.

Ах, не успел...

[Mad_Cat]

это типа если сторона меньше либо = диаметру то поместится квадрат в круг?
не тут то было) впишите в круг радиусом 2 см квадрат со стороной 4см)
правильная проверка

 If sqrt(2)*R>=A Then Write('Yes!') Else Write('No!');

2Marsel нужно вроде как

поместится ли квадрат в круг

а не наоборот

[Serge_Bliznykov]

ну так по теореме Пифагора найти диагональ квадрата:

kvDig := SQRT( 2 * sKvadrat );

и если она меньше диаметра круга (или равна ему) - значит поместится квадрат в круг...

[Mad_Cat]

2Serge_Bliznykov
а чем моя то проверка -полный аналог вашей- не устраивает7

[Serge_Bliznykov]

а чем моя то проверка -полный аналог вашей- не устраивает7

Да потому что происходит подмена понятий (переменные банально перепутаны)!
Вот, скажите в Вашем примере что есть R и что есть A ?!
я же не просто так ввёл новое обозначение для площади квадрата и для длины диагонали квадрата!
Да и знак больше меньше вызывает смутное подозрение...
Надо или полностью писать код или расшифровывать, что означают используемые в открывке кода переменные.

[_-Re@l-_]

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

Ах ёперный театр,а я то прочитал "определить поместится ли круг в квадрат", а тут квадрат в круг...Прошу прощения

[Marsel737]

Аналогично

[Kate23]

Помогите, срочно!!(((
Организовать разветвляющийся процесс для решения следующей задачи.


Заданы радиус круга R и сторона квадрата А. Определить, можно ли вписать квадрат в круг.