Question

Дан квадрат,внутри квадрата окружность нужно найти радиус окружности. Стороны квадрата по 12 см.
Нужно сделать программу для вычисления радиуса на паскале.

Answer 1

Ответ:

Отлажено с PascalABC.Net!

Код:

var CubeSide : real;

var CubeRadius : real;

begin//Начинаем выполнение программы

 writeln('Пожалуйста, введите сторону квадрата(см)!');

 readln(CubeSide);

 writeln('Все стороны в квадрате равны! Окружность идентичная квадрату по диаметру.');

 write('Значит диаметр(высота и ширина)окружности равна также->');

 writeln(CubeSide + 'см');

 writeln('Формула: r = d / 2' + ' выдвигает нам данный результат:');

 CubeRadius := CubeSide / 2;//Вычисляем радиус по формуле

 writeln(CubeRadius + 'см');//Выводим результат

 readln();//Оставляем программу работающей

end.//Завершаем цепочку действий

Вывод:

Пожалуйста, введите сторону квадрата(см)!

12

Все стороны в квадрате равны! Окружность идентичная квадрату по диаметру.

Значит диаметр(высота и ширина)окружности равна также->12см

Формула: r = d / 2 выдвигает нам данный результат:

6см