VPF::[Алгоритм] Область истинности - Форум программистов

Mr.Floppy

Дата 17.5.2007, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

Репутация: нет
Всего: 1

Подскажите область истинности для заштрихованной области. Ну, с [-1,1] все понятно, а что делать с кривой? Не ромб и не эллипс... какой функцией она описывается?
(рисовал не я)

Присоединённый файл ( Кол-во скачиваний: 12 )

pic.jpg 11,55 Kb

Kuvaldis

Дата 17.5.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

Mr.Floppy,
это часть эллипса с "внутренностями"
описывается так:
X^2 / 9 + y^2 / 4 <= 1 (эллипс с внутренностями и границей)
| y | <= 1 (вертикальные линии)

Это сообщение отредактировал(а) Kuvaldis - 17.5.2007, 11:10

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

Mr.Floppy

Дата 17.5.2007, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

Репутация: нет
Всего: 1

Спасибо

Вдруг кому пригодится:

Код


program zadanie1;

var
  x,y: real;
  c,i: integer;
  ans: char;
  p: array[1..2,1..100] of real; {массив с координатами точек, максимум 100}

begin
  c := 0; {сбрасываем счетчик количества попавших точек}
  repeat
    writeln('Введите X,Y:');
    write('X=');
    readln(x);
    write('Y=');
    readln(y);
    { эллипс с внутренностями: x^2/9+y^2/4<=1 }
    { вертикальные линии: |y|<=1 }
    if (x*x / 9 + y*y / 4 <= 1) and (abs(y) <= 1) then
       begin
       c := c + 1;
       p[1,c] := x;
       p[2,c] := y;
       end;
    writeln('Еще? (y/n)');
    readln(ans);
  until (ans<>'y');

  if c > 0 then
    begin
    writeln('Количество точек, попавших в заданную область: ',c);
    for i:=1 to c do
      writeln(p[1,i]:0:3,', ',p[2,i]:0:3);
    end
  else
    writeln('Нет точек, попавших в заданную область');

  readln;
end.

Это сообщение отредактировал(а) Mr.Floppy - 17.5.2007, 19:28

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »