Даны вещественные числа A и R представляющие собой длину стороны квадрата и радиус круга на плоскости.

@zhumabek · Регистрация: 25.11.2011

Author24 — интернет-сервис помощи студентам

Даны вещественные числа A и R представляющие собой длину стороны квадрата и радиус круга на плоскости. Написать подпрограмму выводящую одно из трех сообщений "КРУГ ПОМЕЩАЕТСЯ В КВАДРАТ" КВАДРАТ ПОМЕЩАЕТСЯ В КРУГ КРУГ и КВАДРАТ НЕ ПОМЕЩАЮТСЯ ДРУГ В ДРУГУ в зависимости от величин A и R

@Own3D · 25.11.2011, 18:07

информацию, как рассчитать помещается ли квадрат в круг, взял отсюда otvet.mail. ru/question/47364915/
в коде R*2 т.к в пред. ссылке расчет описывался для D-иаметра.

Pascal

uses crt;
var a,r:real;
begin
write('Ââåäèòå äëèííó ñòîðîíû êâàäðàòà[À]: ');
readln(a);
write('Ââåäèòå ðàäèóñ êðóãà[R]: ');
readln(r);
if a<r*2 then
write('Êâàäðàò ïîìåùàåòñÿ â êðóã');
if r*2<=a then
write('Êðóã ïîìåùàåòñÿ â êâàäðàò');
if a=r*2 then
write('Êâàäðàò è êðóã íå ïîìåùàþòñÿ äðóã â äðóãà');
end.

@zhumabek 1 / 1 / 1 Регистрация: 25.11.2011 Сообщений: 63
		1
	Даны вещественные числа A и R представляющие собой длину стороны квадрата и радиус круга на плоскости. 25.11.2011, 17:49. Показов 1923. Ответов 1 Метки нет (Все метки) Даны вещественные числа A и R представляющие собой длину стороны квадрата и радиус круга на плоскости. Написать подпрограмму выводящую одно из трех сообщений "КРУГ ПОМЕЩАЕТСЯ В КВАДРАТ" КВАДРАТ ПОМЕЩАЕТСЯ В КРУГ КРУГ и КВАДРАТ НЕ ПОМЕЩАЮТСЯ ДРУГ В ДРУГУ в зависимости от величин A и R 0

	25.11.2011, 18:07

Даны вещественные числа A и R представляющие собой длину стороны квадрата и радиус круга на плоскости.

Решение