Информатика, вопрос задал Аноним , 2 года назад

Pascal. Известны площадь круга S1 и площадь квадрата S2. Определить, поместится ли круг в квадрат?

sergyzak2020bor: ух ты. квадратура круга )

Ответы на вопрос

Ответил pashak127

program kryginkvadrat;

var

s1, s2: integer;

begin

writeln('Введите площать круга - ');

readln(s1);

writeln('Введите площадь квадрата - ');

readln(s2);

if s1 <= s2 then

writeln('Круг поместится в квадрат')

else

writeln('Круг не поместиться к вадрат');

end.

sergyzak2020bor: ИМХО: бред

dmitriydimov2021: лучше графически через координаты. Сначала в консоли рисуем квадрат, а после круг. Формулы площадей задаем и условие можно задать приведенное ранее. Появляется консоль и если мы ввели и не так сразу видно поместилось в круг или нет

dmitriydimov2021: короче есть два ответа у одново формулы и удругого условие, через координаты нарисовать фигуры и все

sergyzak2020bor: конкретно тыкаю пальцем, где бред, : вот в этом условии: "if s1 <= s2 then"

sergyzak2020bor: попробуйте вписать круг s1 = 143 в квадрат s2 = 144. У меня не вписывается, а по условию этого решения - вписывается.

dmitriydimov2021: Sqrt извлечение из корня поэтому не будет вписыватся. Есть корень квадратные к примеру 36 если мы введем sqrt(36) то получим 6. Теперь другое мы же хотим, чтобы была формула квадрата в место a в квадрате пишем sqr(a)

dmitriydimov2021: d2 := sqr(s2);

dmitriydimov2021: Зачем тебе извлекать квадрат, когда на оборот нужно возводить?

Ответил sergyzak2020bor

Ответ:

program prog314;

var

s1, s2: real;

d1, d2: real;

begin

writeln('Введите площать круга: ');

readln(s1);

writeln('Введите площадь квадрата: ');