Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
fanz
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 2
1

количество точек, принадлежащих кругу

23.11.2010, 21:34. Просмотров 917. Ответов 3
Метки нет (Все метки)

Здравствуйте!
нужна ваша помощь с задачей
нужно задать координаты пяти точек(x;y), радиус R и центр окружности (a;b), и определить сколько точек принадлежит, если ни одна то вывести сообщение "таких точек нет"
мои действия:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program zadacha;
var
x: array [1..5] of real;
y:array[1..5] of real;
a,b,r,q : real;
i,z: integer;
begin
write ('введите 5 абсцисс');
for i:=1 to 5 do
begin
read (x[i]);
end;
write ('введите 5 ординат');
for i:= 1 to 7 do
begin
read (y[i]);
end;
write ('введите радиус');
readln (r);
write ('введите центр');
readln (a,b);
z:=0;
for i:=1 to 5 do
if (sqrt(sqr(x[i]-a)+sqr(y[i]-b))<=r)
  then
begin
z:=z+1;
write ('количество точек ', z)
end
else
write ('таких точек нет');
end.
программа работает весьма неадекватно...
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2010, 21:34
Ответы с готовыми решениями:

Количество точек, принадлежащих замкнутому кругу.
Дан одномерный массив А(N) .Составить программу. Определить, сколько точек М1 (A(1),A(N)), М2...

Задать n точек. Найти m=3,4... точек и построить на них m-угольник такой что, количество точек , лежащих внутри и вне m-угольника , минимально различа
Задать n точек. Найти m=3,4... точек и построить на них m-угольник такой что, количество точек ,...

Сколько среди точек таких, которые принадлежат кругу радиуса r с центром в начале координат
Даны натуральное число n, действительные числа r, a1,...,an (n ≥ 2). Сколько среди точек (a1, an),...

Найти количество элементов матрицы, принадлежащих отрезку [5; 7]
В вещественной матрице B(n*m) найти количество элементов, принадлежащих отрезку

Найти количество элементов последовательности принадлежащих интервалу
Приветствую всех кто читает это сообщение, прошу Вас решить эти задачи... 1)В прямоугольной...

3
Tjm
25 / 25 / 13
Регистрация: 23.11.2010
Сообщений: 58
23.11.2010, 22:05 2
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;


var
x: array [1..5] of real;
y:array[1..5] of real;
a,b,r : real;
i,z: integer;
begin
writeln ('***Enter koord:***');
for i:=1 to 5 do
begin
write ('x',i,'=');readln(x[i]);
write ('y',i,'=');readln(y[i]);
end;
Writeln;
write('R=');readln (r);
writeln ('*** enter centr *** ');
write('a=');readln (a);
write('b=');readln (b);
z:=0;
for i:=1 to 5 do
if (sqrt(sqr(x[i]-a)+sqr(y[i]-b))<=r) then z:=z+1;
if (z<>0) then write ('kst tochek ', z)
else
write ('noy point');
Readln;
end.
1
fanz
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 2
23.11.2010, 22:11 3
спасибо! буду разбираться!
0
Tjm
25 / 25 / 13
Регистрация: 23.11.2010
Сообщений: 58
23.11.2010, 22:14 4
верхушку до VAR замени на USES Crt;
осталось от Делфи
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2010, 22:14

В одномерном массиве найти количество элементов, кратных 5, и принадлежащих интервалу [10..50]
Найти количество элементов, кратных 5 и принадлежащих интервалу 10&lt;=F&lt;=50, в массиве F(14). Только...

Определить количество 'особых' элементов матрицы A(nxm), B(nxm) принадлежащих главной диагонали
Определить количество 'особых' элементов матрицы A(nxm), B(nxm) принадлежащих главной диагонали....

Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M,K]
помогите) Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru