Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
bitochek_yusha
0 / 0 / 0
Регистрация: 04.04.2017
Сообщений: 2
#1

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

04.04.2017, 23:15. Просмотров 109. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить входят ли заданные точки в область. ошибка 201 (Free Pascal):

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

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

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

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

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3642 / 2629 / 1797
Регистрация: 05.06.2014
Сообщений: 12,572
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
Привет! Вот еще темы с ответами:

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

Ошибка 201 - Free Pascal
Итак, у меня проект - я пишу пакмана :) В общем у меня есть функция collision, rnd_move и несколько моих собственных типов (type...

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

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


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

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

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