Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
bitochek_yusha
0 / 0 / 0
Регистрация: 04.04.2017
Сообщений: 2
1

Определить входят ли заданные точки в область. ошибка 201

04.04.2017, 23:15. Просмотров 137. Ответов 1
Метки нет (Все метки)

Задача состоит в том,чтобы определить, входят ли точки(координаты вводит пользователь) в область(описана уравнениями).
результаты нужно вывести в виде таблицы.
при компиляции ошибок не вылазит,но при запуске runtime error 201
вот сам код:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
PROGRAM DotsLol(INPUT, OUTPUT);
TYPE
  Dots = RECORD
         Xi, Yi: REAL;
         Get: STRING[10];
         END;
VAR
  Ans, i, N: BYTE;
  R:REAL;
  A: ARRAY OF Dots;
BEGIN
  REPEAT
    WRITELN('Введите количество пробных точек');
    READ(N);
    WRITELN('Введите радиус окружностей,ограничивающих область');
    READ(R);
    WRITELN('Вы ввели N=', N,'; ', 'R=', R:2:2);
    WRITELN('Введите координаты точек');
    FOR i := 1 TO N DO
    WITH A[i] DO
      BEGIN
        WRITE('X', i, '=');
        READLN(Xi);
        WRITE('Y', i, '=');
        READLN(Yi);
        IF (Yi >= 0) AND (Xi <= 0)
        THEN
          BEGIN
            IF (Yi <= R) AND (Xi >= -R) AND (sqr(Xi+R)+sqr(Yi-R) >= sqr(R))
            THEN
              Get := 'ДА'
            ELSE
              Get := 'НЕТ'
          END
        ELSE
          IF (Yi <= 0) AND (Xi >= 0)
          THEN
            BEGIN
              IF (Yi >= -R) AND (Xi <= R) AND (sqr(Xi-R)+sqr(Yi+R) >= sqr(R))
              THEN
                Get := 'ДА'
              ELSE
                Get := 'НЕТ'
            END
        ELSE
          Get := 'НЕТ'
      END;
    WRITELN('ТАБЛИЦА ЗНАЧЕНИЙ АРГУМЕНТА И ФУНКЦИИ');
    WRITELN('____________________________________');
    WRITELN('|    X    |    Y    |ПОПАДАНИЕ ТОЧКИ|');
    FOR i := 1 TO N DO
    WITH A[i] DO
      WRITELN('|', Xi:5:2, '|', Yi:5:2, '|', Get:12, '   |');
    WRITELN('|___________________________________________|');
    WRITELN('Хотите продолжить? 1-да, 0-нет');
    READ(Ans);
  UNTIL( Ans = 0)
END.
подскажите, пожалуйста, в чем беда?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2017, 23:15
Ответы с готовыми решениями:

Если все заданные точки плоскости принадлежат первому квадранту, определить координаты точки, наиболее удаленной от начала координат
Если все заданные точки плоскости принадлежат первому квадранту, определить...

Определить принадлежат ли точки,заданные массивами окружности с радиусом R.
Определить принадлежат ли точки,заданные массивами окружности с радиусом R. ...

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

Как определить находятся ли заданные точки выше этой прямой или ниже неё
Люди помогите плиз!!!Информатик задал:нужно задать уравнение прямой по 2...

Определить попадание точки в область
Задачка на 3-5 минут,но я не могу решить ее по причине своей безграмотности в...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,086
05.04.2017, 16:37 2
Попробуйте заменить
Pascal
1
A: ARRAY OF Dots;
на
Pascal
1
A: ARRAY [1..100] OF Dots;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2017, 16:37

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

Определить попадание точки в заштрихованную область плоскости
18 и 19! Тема условные операторы (if else) Я бы сделал сам, но все плохо с...

Ошибка 201
Написал прогу на сумму чисел в столбик(используя модуль). В ABC работает...


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

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

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