Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0) - Turbo Pascal

Формулировка задачи:

Составить програму для решения следующей задачи с помощью оператора (For-to-do). Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0) с центром в начале координат. И к нему составить блок схему.

Код к задаче: «Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0) - Turbo Pascal»

textual
uses crt;
var r,x,y,k:integer;
begin
write('Введите радиус R= ');
readln(r);
k:=0;
for x:=-r to r do
for y:=-r to r do
if x*x+y*y<=r*r then k:=k+1;
write('k=',k);
readln
end.

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ