begin Write('Введите величину радиуса окружности: '); Readln(r); r2 := sqr(r); n := 0; {1. Точки в первой четверти без учета попавших на оси } x := 1; while x <= r do begin y := 1; while y <= r do begin if sqr(x) + sqr(y) <= r2 then n := n + 1; y := y + 1 end; x := x + 1 end; n := 4 * n; { учли точки в остальных трех четвертях } n := n + 1; { учли точку в начале координат } n := n + 4 * trunc(r); { учли точки, находящиеся на координатных осях } Writeln('Число точек, принадлежащих кругу, равно ', n); end.
Тестовое решение: Введите величину радиуса окружности: 3 Число точек, принадлежащих кругу, равно 29
Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.
r, r2, x, y: real;
n: integer;
begin
Write('Введите величину радиуса окружности: '); Readln(r);
r2 := sqr(r); n := 0;
{1. Точки в первой четверти без учета попавших на оси }
x := 1;
while x <= r do
begin
y := 1;
while y <= r do
begin
if sqr(x) + sqr(y) <= r2 then n := n + 1;
y := y + 1
end;
x := x + 1
end;
n := 4 * n; { учли точки в остальных трех четвертях }
n := n + 1; { учли точку в начале координат }
n := n + 4 * trunc(r); { учли точки, находящиеся на координатных осях }
Writeln('Число точек, принадлежащих кругу, равно ', n);
end.
Тестовое решение:
Введите величину радиуса окружности: 3
Число точек, принадлежащих кругу, равно 29