Окружность вписанная в квадрат (допустил ошибку) - Free Pascal
Формулировка задачи:
Работать с паскалем только начал, задачка простая, но где то допустил ошибку, прошу помочь.
Задача:
На квадрат наложили круг такой величины, что он одновременно касается каждой стороны квадрата. Сторона квадрата есть целое число a.
Найти наименьшее целое число, которое является большим от суммарной площади частей квадрата видимых из-под круга (круг не является прозачным).
Вот скриншот программы:
Решение задачи: «Окружность вписанная в квадрат (допустил ошибку)»
textual
Листинг программы
n:=trunc(g)+1;
Объяснение кода листинга программы
- Объявляется переменная
n
и присваивается ей значение равноеtrunc(g)+1
, гдеtrunc(g)
означает округление значения переменнойg
вниз до ближайшего целого числа. - В данном случае, значение переменной
n
будет на единицу больше значения переменнойg
, после округления вниз до ближайшего целого числа.