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
Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24. public class zadanie4 { public static void main(String[] args) { . int a[]; a=new int [150]; System.out.println("Исходный массив:"); for (int i=0;i<15;i++) { a[i]=(int) Math.floor(Math.random()*20)-10; System.out.println("a["+i+"]="+a[i]);} for (int i=0;i<15;i++){ if (a[i]>=-5 && a[i]<=5){ a[i]=a[i]+1;}} System.out.println("Полученный массив:"); for (int i=0;i<15;i++) { System.out.println("a["+i+"]="+a[i]);}}}
