Определить попадание точки в заданный диапазон. Опции

[Eduard]

uses crt;
var a,b,r,x,y,N,z:real;
  begin
    clrscr;
    Write ('Vvedite kol-vo probnyh tochek   ');
    readln(N);
    writeln('Vvedite radius okuzhnosti');
    readln ®;
    writeln ('Vvedite krainuyuy x pryam.');
    readln(a);
    writeln ('Vvedite krainuyuy y pryam.');
    readln(b);
    z:=1;
    while z<=N DO
      BEGIN
       z:=z+1;
       Writeln ('Vvedite x i y');
       readln(x,y);
     END;
     writeln;
     repeat
       begin
         z:=z+1;
         if (x<0) and (x>(-a)) and (y<0) and (sqrt(sqr(x)+sqr(y))<=r) then
           writeln (x:2:2,'  ',y:2:2,'  ','Popapla')
         else
           if (x>0) and (x<a) and (y>0) and (sqrt(sqr(x)+sqr(y))>=r) then
             writeln (x:2:2,'  ',y:2:2,'  ','Ne popala')
           else writeln (x:2:2,'  ',y:2:2,'  ','Ne popala');
       end;
     UNTIL z=N;
    readkey;
  end.

Второй цикл выполняется только для одной пары x и y. Что неправильно?

[Lapp]

Вот, я вставил массивы (x и y)
параметр цикла заменил на целую переменную (i)
также, подправил границы циклов

Но у тебя там с логикой швах. Неясно, зачем весь этот наворот:

      if (x[i]>0) and (x[i]<a) and (y[i]>0) and (sqrt(sqr(x[i])+sqr(y[i]))>=r) then
        writeln (x[i]:2 :2,'  ',y[i]:2 :2,'  ','Ne popala')
      else writeln (x[i]:2 :2,'  ',y[i]:2 :2,'  ','Ne popala');

- если в обоих случаях выводится одно и то же..

const
  m = 100;
var
  a,b,r,N: real;
  i: integer;
  x,y: array [1..m] of real;
begin
  Write ('Vvedite kol-vo probnyh tochek  (ne boljshe ',m,'): ');
  readln(N);
  writeln('Vvedite radius okuzhnosti');
  readln ®;
  writeln ('Vvedite krainuyuy x pryam.');
  readln(a);
  writeln ('Vvedite krainuyuy y pryam.');
  readln(b);
  i:= 0;
  while i<N DO BEGIN
     i:= i+1;
     Writeln ('Vvedite x i y');
     readln(x[i],y[i]);
  END;
  writeln;
  i:= 0;
  repeat
    i:= i+1;
    if (x[i]<0) and (x[i]>-a) and (y[i]<0) and (sqrt(sqr(x[i])+sqr(y[i]))<=r) then
      writeln (x[i]:2 :2,'  ',y[i]:2 :2,'  ','Popapla')
    else
      if (x[i]>0) and (x[i]<a) and (y[i]>0) and (sqrt(sqr(x[i])+sqr(y[i]))>=r) then
        writeln (x[i]:2 :2,'  ',y[i] 2,'  ','Ne popala')
      else writeln (x[i]:2 :2,'  ',y[i]:2 :2,'  ','Ne popala');
  UNTIL i=N;
  readln;
end.

Добавлено через 2 мин.

в ней должна быть возможность выполняться много раз, не перезапускаясь, это я вообще не понял

Ааа... ну, так бы и сказал!! млин..
тогда, конечно, массивы не нужны..

ты бы лучше пришел сюда РАНЬШЕ, тогда, когда тебе было что-то НЕПОНЯТНО, и спросил бы.. а не за час до сдачи..

[Eduard]

Огромное вам спасибо!

[Lapp]

Огромное вам спасибо!

Пожалуйста, конечно, но это не то, что тебе надо..