Задать вопрос
16 апреля, 19:31

Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R>0) с центром в начале координат. (Паскаль. Цикл. Без массива)

+1
Ответы (1)
  1. 16 апреля, 22:44
    0
    Var

    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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R>0) с центром в начале координат. (Паскаль. Цикл. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы