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

[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]

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. Что неправильно?

Вставь
z:= 0;
перед repeat

Добавлено через 3 мин.
Постой, постой... А где у тебя вообще массив?.. Ты вводишь x и y и сразу (при вводе сдедующей точки) затираешь их. Заведи массив точек. Ну, или выполняй проверку прямо при вводе (тогда не нужен второй цикл, все делай в одном).

[Eduard]

Мне надо, чтобы обязательно было два цикла: while и repeat. А массивы мы еще не проходили.

Сообщение отредактировано: Eduard - 15.04.2011 7:36

[Lapp]

Мне надо, чтобы обязательно было два цикла: while и repeat. А массивы мы еще не проходили.

ммм.. Я так подозреваю, что вы и файлы не проходили. Да?
Тогда - к Господу Богу. Я не волшебник. Я не умею ходить двумя ногами в одной штанине )). Без массивов (или файлов) в двух циклах эта задача (в том виде, как ты ее представил, то есть с произвольным N) не решается. Баста.

hint: пройди массивы сам ))

[Eduard]

У меня через час пара начнется. Это нереально пройти. Помогите, пожалуйста, очень надо сдать эту программу.

Сообщение отредактировано: Eduard - 15.04.2011 7:48

[Lapp]

Помогите, пожалуйста, очень надо сдать эту программу.

Я же сказал: без массивов не решается.
Дашь миллион баксов? Все равно не решу.
НЕ РЕШАЕТСЯ

[Eduard]

Хотя бы с массивами, пожалуйста. Я не очень понимаю Паскаль над программой 3 дня сидел, с циклами разбирался.

[Lapp]

Хотя бы с массивами, пожалуйста. Я не очень понимаю Паскаль над программой 3 дня сидел, с циклами разбирался.

Хорошо, если сам делал - помогу. С массивами, конечно )). Я вставлю массивы.

Но у тебя там что-то странное.. Что такое a и b? и зачем r? Дай полное условие, желательно с рисунком.

[Eduard]

Программа должна определять попадает ли точка в закрашенную область, результатаы вывести в вдие таблицы. Она в ней должна быть возможность выполняться много раз, не перезапускаясь, это я вообще не понял. Обязательно должны быть условный оператор, цикл с предусловием и постусловием.