1

Тема: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

Всім привіт. Дали ось таку задачу додому... А я ніяк не можу зрозуміти процедури. Може хтось поможе її розв'язати? Наперед велике дякую:)

Дано декартові координати 8 точок. Підрахувати скільки точок належить

площині, обмеженій колом з радіусом R і центром в точці (0;0). Перевірку

належності оформити у вигляді процедури.

2

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

Як знайти відстань від (x; y) до (0; 0) ви знаєте?

Подякували: koala1

3

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

Точка лежить всередині круга тоді і тільки тоді, якщо відстань від неї до центра кола менша або дорівнює радіусу кола, що обмежує цей круг.

4

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

bunyk написав:

Як знайти відстань від (x; y) до (0; 0) ви знаєте?

емм, ні:(

5

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

Master_Sergius написав:

Точка лежить всередині круга тоді і тільки тоді, якщо відстань від неї до центра кола менша або дорівнює радіусу кола, що обмежує цей круг.

Я це розумію. Тільки не знаю як записати це програмою, та ще й через процедури. Бо моє розуміння паскаля завершилось на масивах. Процедури і функції я не доганяю:(

6

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

navchalkin написав:
bunyk написав:

Як знайти відстань від (x; y) до (0; 0) ви знаєте?

емм, ні:(

Не сприйміть за грубість, але чи не занадто рано писати код, не вивчивши математичну модель задачі?

7

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

navchalkin написав:
bunyk написав:

Як знайти відстань від (x; y) до (0; 0) ви знаєте?

емм, ні:(

Я не пам’ятаю чи це третій клас, чи п’ятий, але "сума квадратів катетів дорівнює чому?"

8

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

navchalkin написав:
bunyk написав:

Як знайти відстань від (x; y) до (0; 0) ви знаєте?

емм, ні:(

http://palm.nash.net.ua/test/tex/tex2png.php?t=math&q=%5Csqrt%7Bx%5E2%2By%5E2%7D
Для знаходження кореня використовуйте функцію sqrt.

Подякували: navchalkin1

9

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

bunyk написав:
navchalkin написав:
bunyk написав:

Як знайти відстань від (x; y) до (0; 0) ви знаєте?

емм, ні:(

Я не пам’ятаю чи це третій клас, чи п’ятий, але "сума квадратів катетів дорівнює чому?"

квадрату гіпотенузи. Я розучився думати.

10

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

yarko написав:
navchalkin написав:
bunyk написав:

Як знайти відстань від (x; y) до (0; 0) ви знаєте?

емм, ні:(

Не сприйміть за грубість, але чи не занадто рано писати код, не вивчивши математичну модель задачі?

Логічно, тільки я розраховував, що хтось стикався із такою задачею, і допоможе кодом.

11

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

Безкоштовно тут можуть виправити помилки в уже написаному вами коді, підказати куди копати далі.

Тільки не знаю як записати це програмою, та ще й через процедури. Бо моє розуміння паскаля завершилось на масивах. Процедури і функції я не доганяю:(

Вам сюди: http://pascal.org.ua/procedures-functions
Трохи докладніше, про сучасний паскаль (російською): http://www.delphikingdom.com/asp/viewit … logid=1179

Подякували: navchalkin, Chemist-i2

12

Re: Дано декартові координати 8 точок. Підрахувати скільки точок належ...

Зробив. Може комусь треба буде:

Program KOLO (input, output);
var
  i,n:integer;
  Long, R, x, y: real;

  Procedure KRUG (R, x, y : real; var Long : real);
  begin
    Long:= sqrt ( sqr(x) + sqr(y));
  end;

begin
  writeln (' ввести R, x , y :');
  write('введіть радіус: ');
  read(r);
  n:=1;
  for i:=1 to 8 do
  begin
    writeln('[точка ',n,']');
    write('Введіть х: ');
    read (x);
    write('Введіть у: ');
    read (y);
    KRUG (R, x, y, Long);
    writeln ('відстань = ', Long : 6 : 2);
    begin
      if Long<=R then write('точка входить в коло') ELSE write('точка не входить в коло');
      writeln;
      writeln('__________________________');
      n:=n+1;
    end;
  end;
end.
Подякували: 0xDADA11C7, Torbins2