Предмет: Информатика,
автор: rexez17
Составить блок-схему и написать программу
В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (a,b).
Aillianna:
проверка if sqr(x-a)+sqr(y-b)<=r*r then k:=k+1;
x, y - координаты точки
Ответы
Автор ответа:
1
Блок-схема - в прилагаемом файле.
Программа:
var n,r,a,b,k,x,y,i:integer;
begin
readln(n,r,a,b);
k:=0;
for i:=1 to n do
begin
readln(x,y);
if sqr(x-a)+sqr(y-b)<r*r then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
3 4 1 1
2 2
-2 -3
0 0
k = 2
Программа:
var n,r,a,b,k,x,y,i:integer;
begin
readln(n,r,a,b);
k:=0;
for i:=1 to n do
begin
readln(x,y);
if sqr(x-a)+sqr(y-b)<r*r then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
3 4 1 1
2 2
-2 -3
0 0
k = 2
Приложения:
спасибо, можете помочь с этой :? https://znanija.com/task/28053664
Похожие вопросы