Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R

@Denis639 · Регистрация: 13.10.2013

Author24 — интернет-сервис помощи студентам

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

@keidin · 28.10.2013, 00:12

Pascal

program point_in; 
 var 
 x,y,r,s:integer; 
 begin 
 write('radiys r = '); 
 readln(r); 
 s:=0; 
 for x:=-r to r do 
 for y:=-r to r do 
 if x*x+y*y<r*r then 
 s:=s+1; 
 write('kolichestvo tochek = ',s); 
 readln; 
 end.

@Denis639 0 / 0 / 0 Регистрация: 13.10.2013 Сообщений: 19
		1
	Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R 27.10.2013, 23:32. Показов 2430. Ответов 1 Метки нет (Все метки) Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R (R>0) с центром в начале координат 0

	28.10.2013, 00:12

Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R

Решение