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

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

04.04.2017, 23:15. Просмотров 125. Ответов 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.
подскажите, пожалуйста, в чем беда?
http://www.cyberforum.ru/pascal/thread371029.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2017, 23:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить входят ли заданные точки в область. ошибка 201 (Free Pascal):

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

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

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

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3857 / 2844 / 3631
Регистрация: 05.06.2014
Сообщений: 13,940
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 работает...

Ошибка 201
Итак, у меня проект - я пишу пакмана :) В общем у меня есть функция collision,...

Напечатать строки, в которых заданные символы входят в первую половину строки
Дан массив строк без пробелов. Напечатать строки в которые входят + - * в...


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

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

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