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

23.11.2010, 21:34. **Показов** 1474. **Ответов** 3

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

Здравствуйте!
нужна ваша помощь с задачей
нужно задать координаты пяти точек(x;y), радиус R и центр окружности (a;b), и определить сколько точек принадлежит, если ни одна то вывести сообщение "таких точек нет"
мои действия:

Pascal

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.

программа работает весьма неадекватно...

@Tjm · 23.11.2010, 22:05

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.

23.11.2010, 22:11

спасибо! буду разбираться!

@Tjm · 23.11.2010, 22:14

верхушку до VAR замени на USES Crt;
осталось от Делфи

@Tjm 26 / 26 / 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
	23.11.2010, 22:11	3
	спасибо! буду разбираться!

@Tjm 26 / 26 / 13 Регистрация: 23.11.2010 Сообщений: 58
	23.11.2010, 22:14	4
	верхушку до VAR замени на USES Crt; осталось от Делфи 0

Опции темы