Задача. Комбинированные типы. Pascal

[Nastёna]

недавно задали задачку:

Заданы уравнения трех кривых на плоскости,одно из которых содержит
переменный коэффициент k. Кривые пересекаясь,
ограничивают замкнутую область D, размеры которой зависят от значения коэффициента k.
y=1.4*cos(x+0.25) уравнение 1-ой кривой
y^2=0.5*x            уравнение 2-ой кривой
y=0.2*x-k             уравнение 3-ей кривой, где k от 0.1 до 0.5  и шаг 0.1
Найти все точки попадающие в заданную область.

Задачка простенькая, но загвоздка в том, что координаты точек, которые мы задаем надо представить в виде записи (tochka=record x:real; y:real; ), сами точки в виде массива (vector=array [1..n] of tochka; ), а области, которые у нас должны получится при изменении k в виде множества.
по частям я задачку понимаю, но в целую картину сложить не получается...

[Stilet]

Ну приблизительно так:
Есть запись:

tochka=record x:real; y:real;

Есть ее массив

vector:array [1..n] of tochka;

И ты проверяеш, ну допустим пока одну формулу:

for i:=1 to n do begin
 if vector[i].y>=1.4*cos(vector[i].x+0.25) then Точка лежит за этой кривой
end;

Тут только нужно понять как проверять >= или <=, ну и конечно же
(формула)and(формула2)and(формула3) то попадает.

[Nastёna]

смотри, вот у меня начало программы выглядит так:

program 123;
uses crt;
const n=20;                       {максимальное количество точек}
type to4ka=record 
                    x: real;
                    y: real
                end;                 {координаты точек}
       vector= array [1..n] of to4ka; {все точки}
       natural=1..n;                         
       mn=set of natural;                {множесто областей, их по идеи 5}
var A:  vector;
     D:  mn;
     i: integer;
     k,n1: real;
     p1,p2,p3: boolen;
begin 
    writeln ('введите количество точек');
    readln (n1);
       for i:=1 to n do
                        begin
                          writeln ('введите значение абсциссы точки A', i);
                          readln (A[i].x);
                          writeln ('введите значение ординаты точки A', i);
                          readln (A[i].y);
                        end;
p1:=1,4*cos(A[i].x+0,25); p2:=0,2*A[i].x-k; p3:=2*A[i].y^2;

a вот дальше я сомневаюсь в правильности....

       begin
         k:=0,1;
         for i:=1 to 5 do    {будет 5 разных к от 0,1 до 0,5}
             if A[i].y>=p1 and A[i].y>=p2 and A[i].x<=p3
               then

и вот тут я совсем не знаю что писать....надо чтобы на экране выводилось, что при k=0.1 множеству D принадлежат точки, например A1, A6 и А9, при к=0.2 ..... и так далее. Вот

как выводить множества на печать?

[Sazary]

Сообщение от Nastёna

как выводить множества на печать?

На примере:

uses crt;
var
mn : set of char;
c : char;
begin
clrscr;
mn := ['a','b','f','h','z'];
for c:='a' to 'z' do  
 if c in mn then writeln(c);
readln;
end.

Другого способа я что-то не встречал.

[Stilet]

Настя, а причем тут множества?
Это работа с массивами.

 for i:=1 to 5 do    {будет 5 разных к от 0,1 до 0,5}
             if A[i].y>=p1 and A[i].y>=p2 and A[i].x<=p3
then Writeln(a[i].x,':',a[i].y);

[Nastёna]

спасибо ))) просто у нас препод усложняет нам задачи, чтобы мы научлись работить с разными типами, вот поэтому ответ надо выводить через множества...

[Sozialist]

Э.я не понял. Найти все точки с действительными координатами? В области их бесконечное множество, другое дело, если x,y:integer;

[Nastёna]

мы эти точки самостоятельно вводим, и их уже проверяем, попадают или нет

[OCTAGRAM]

Вопрос по заданию. Отрисовал графики:


И в более мелком масштабе:


Здесь есть три замкнутые области, ограниченные 3мя кривыми. Какую из них считать? Я выбрал ту, что содержит начало координат (в моём решении второй гребень косинуса тоже проходит, хотя не должен, наверное):

program CombTypes;
uses crt;
const
  n = 20;                            { максимальное количество точек }

type to4ka = record
    x : Real;
    y : Real;
  end;                               { координаты точек }

  vector = array[1 .. n] of to4ka;   { все точки }

  natural = 1 .. n;

  mn = set of natural;               { множество областей, их по идее 5 }

var
  A : vector;
  D : mn;
  i, n1 : Integer;
  k : Real;
  k10 : Integer;
  p1, p2, p3 : Real;
  First : Boolean;

begin
  Write('Введите количество точек: ');
  ReadLn(n1);
  for i := 1 to n1 do
  begin
    Write('Введите значение абсциссы точки A', i, ': ');
    ReadLn(A[i].x);
    Write('Введите значение ординаты точки A', i, ': ');
    ReadLn(A[i].y);
  end;
  for k10 := 1 to 5 do
  begin
    k := k10 / 10;
    D := [];
    for i := 1 to n1 do
    begin
      p1 := 1.4 * cos(A[i].x + 0.25);
      p2 := 2 * Sqr(A[i].y);
      p3 := 0.2 * A[i].x - k;
      if (A[i].y <= p1) and (A[i].x >= p2) and (A[i].y >= p3) then
        Include(D, i);
    end;
    Write('При k = 0.', k10, ', D содержит [');
    First := True;
    for i := 1 to n1 do
    begin
      if i in D then
      begin
        if not First then Write(', ');
        Write('A', i);
        First := False;
      end;
    end;
    WriteLn(']');
  end;
  ReadLn;
end.

Результат:

[Nastёna]

здорово"!!!! ))) а что значит First ??? Это на что мы проверяем?