Составить программу в паскале, которая определит, поместится ли квадрат со стороной А в...

Question

Составить программу в паскале, которая определит, поместится ли квадрат со стороной А в круг радиуса R, или круг в квадрат.

Answer 1

Var a, r: real;
begin
write('a = '); read(a);
write('r = '); read(r); 
if r >= a/sqrt(2) then writeln('Квадрат поместится в круг')
else if r <= a/2 then writeln('Круг поместится в квадрат')<br>else writeln('Круг и квадрат не поместятся друг в друга')
end.

Пояснение:
Радиус описанной около квадрата окружности равен половине диагонали квадрата. Диагональ квадрата по теореме Пифагора = √(a² + a²) = a√2, соответственно радиус = a√2/2 = a/√2. Если радиус данной окружности, больше либо равен a/√2, тогда квадрат помещается в круг.
Радиус вписанной в квадрат окружности равен половине его стороны, т.е a/2. Если радиус данной окружности меньше либо равен, чем a/2, тогда круг вмещается в квадрат.

Comments

Смутила выдача: a = 10
r = 12
Квадрат поместится в круг
Круг не поместится в квадрат
По-моему, если квадрат в круг поместится, то круг в квадрат само-собой поместиться не сможет. Верно и обратное.

---

Главное, что выдает правду

---

Я счел, что if r <= a/2 then writeln('Круг поместится в квадрат')<br>else writeln('Круг не поместится в квадрат') лишнее))

---

Можно и так: if r >= a/sqrt(2) then writeln('Квадрат поместится в круг')
else if r <= a/2 then writeln('Круг поместится в квадрат')<br>else writeln('...')

---

Можно по-разному. Я оставляю решение за Вами: как есть будет или что-то измените? В любом варианте ответ верный.

---

Изменил