VPF::[Delphi] Лаба по инфе - Форум программистов

egik14

Дата 9.12.2010, 19:53 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 18.7.2010

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

Помогите плиз с лабой по инфе. Нужно составить программу на паскале которая проверяет попадает ли заданная точка в закрашенную область вот рисунок. http://s2.ipicture.ru/uploads/20101209/NxrUVeRI.png Заранее большое спасибо.

Predator_2004

Дата 9.12.2010, 20:41 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 26.4.2007

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

Код


function Check(X,Y:integer):boolean;
begin
   if ((X<=0) and (((X*X)/961)+(Y*Y)/361<=1) and (Y-X+8.5<=0) and ((X*X)+((Y+8.5)*(Y+8.5))<=676) or 
                   ((X>=0) and (Y<=0) and (X*X+((Y+8.5)*(Y+8.5))<=676) and (Y-X+8.5>=0)) then Result:=true
   else Result:=false;
end;

Рекомендую проверить на баги. +уточните уравнение прямой.

egik14

Дата 9.12.2010, 21:28 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 18.7.2010

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

спасибо огромное))

Keeper89

Дата 10.12.2010, 01:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Получше бы конечно было что-то типа (хотя все равно не ясно что где smile

Код


function Check(X, Y: Integer): Boolean;
var
  LeftOne, RightOne: Boolean;
begin
  LeftOne := (X<=0) and (((X*X)/961)+(Y*Y)/361<=1) and (Y-X+8.5<=0) and ((X*X)+((Y+8.5)*(Y+8.5))<=676);
  RightOne := ((X>=0) and (Y<=0) and (X*X+((Y+8.5)*(Y+8.5))<=676) and (Y-X+8.5>=0));
  Result := LeftOne or RightOne;
end;

но, наверное, для зачета и так сойдет smile

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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