VPF::[pascal] принадлежит ли точка графику

Samotnik

Дата 11.4.2009, 00:37 (ссылка)

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

Загрузка ...

Super star !

Профиль
Группа: Awaiting Authorisation
Сообщений: 7192
Регистрация: 4.11.2006
Где: Минск City

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

привет
помогите пожалуйста решить задачу
Задача на рисунке под буквочкой Г (последняя)

t_gran

Дата 11.4.2009, 05:29 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

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

В Pasca-ca-ле не силён, но вроде работает smile

Код


function BelongXYa (x, y: real): boolean;
begin
   if (-3 <= x) and (x <= 3) and (y <= -x+3) and (-4 <= y) then
      BelongXYa:= true
   else
      BelongXYa:= false;
end;

function BelongXYb (x, y: real): boolean;
begin
   if (-3 <= x) and (x <= 3) and (y <= (2/3)*x+2) and (-4 <= y) then
      BelongXYb:= true
   else
      BelongXYb:= false;
end;

function BelongXYc (x, y: real): boolean;
begin
   if (2*x-4 <= y) and (y <= 2*x+4) and (-2*x-4 <= y) and (y <= -2*x+4) then
      BelongXYc:= true
   else
      BelongXYc:= false;
end;

Тест:

Код


begin
   writeln (BelongXYa(-3,-4));
   writeln (BelongXYb(3,2));
   writeln (BelongXYc(-3,-4));
end.

Это сообщение отредактировал(а) t_gran - 11.4.2009, 05:30

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

Я знаю, что ничего не знаю© Сократ
user posted image

THandle

Дата 11.4.2009, 09:23 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Вот вариант полной программы:

Код



program ooo;

function A(const AX, AY: Integer): Boolean;
begin
  A := (AX >= -3) and (AX <= 3) and (AY <= (3 - AX)) and (AY >= -4);
end;

function B(const AX, AY: Integer): Boolean;
begin
  B := (AX >= -3) and (AX <= 3) and (AY <= ((2/3)*AX + 2)) and (AY >= -4);
end;

function C(const AX, AY: Integer): Boolean;
begin
  C := (AY >= (2*AX - 4)) and (AY <= (2*AX + 4)) and (AY >= (-2*AX - 4)) and (AY <= (-2*AX + 4));
end;

var
  x, y: Integer;

begin
  ReadLn(x, y);
  if A(x, y) then
    WriteLn('Prinadlegit pervoi oblasti');
  if B(x, y) then
    WriteLn('Prinadlejit vtoroi oblasti');
  if C(x, y) then
    WriteLn('Prinadlejit tretei oblasti');
  ReadLn;
end.

Samotnik

Дата 11.4.2009, 11:33 (ссылка)

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

Загрузка ...

Super star !

Профиль
Группа: Awaiting Authorisation
Сообщений: 7192
Регистрация: 4.11.2006
Где: Минск City

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

извиняюсь, забыл сказать - задача 9-го класса без функций
только if then else

THandle

Дата 11.4.2009, 11:43 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Samotnik,

Код


program ooo;

var
  AX, AY: Integer;

begin
  ReadLn(AX, AY);
  if (AX >= -3) and (AX <= 3) and (AY <= (3 - AX)) and (AY >= -4) then
    WriteLn('Prinadlegit pervoi oblasti');
  if (AX >= -3) and (AX <= 3) and (AY <= ((2/3)*AX + 2)) and (AY >= -4) then
    WriteLn('Prinadlejit vtoroi oblasti');
  if (AY >= (2*AX - 4)) and (AY <= (2*AX + 4)) and (AY >= (-2*AX - 4)) and (AY <= (-2*AX + 4)) then
    WriteLn('Prinadlejit tretei oblasti');
  ReadLn;
end.

Samotnik

Дата 11.4.2009, 12:39 (ссылка)

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

Загрузка ...

Super star !

Профиль
Группа: Awaiting Authorisation
Сообщений: 7192
Регистрация: 4.11.2006
Где: Минск City

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

спасибо

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