Составьте программу, определяющую по введенным вами значениям длин стороны квадрата и радиуса круга, одно из утверждений - Turbo Pascal

Формулировка задачи:

Даны круг и квадрат. Составьте программу, определяющую по введенным вами значениям длин стороны квадрата и радиуса круга, одно из утверждений «Круг вписан в квадрат» или «Квадрат вписан в круг»

Решение задачи: «Составьте программу, определяющую по введенным вами значениям длин стороны квадрата и радиуса круга, одно из утверждений»

Листинг программы

If R>=sqrt(2*L*L) then Writeln('Квадрат вписан в круг или квадрат меньше круга.');
If R<L/2 then Writeln('Круг вписан в квадрат или круг меньше квадрата');

Объяснение кода листинга программы

R - радиус круга
L - длина стороны квадрата
sqrt - квадратный корень
Writeln - записывать в файл
If - условный оператор
then - затем
Writeln - записывать в файл
end If - конец условного оператора

Оцени полезность:

9 голосов , оценка 3.889 из 5

Похожие ответы