Работа с Pascal, помощь школьнику - задача на определение принадлежности точки и вычисления системы уравнений

[Jarebeck]

Перешел в новую школу, а там уклон на икт, не все догоняю...
С первой частью разобрался, а вот что делать с U и как его считать я без понятия.
_______________
Даны три целых числа A, B, C (1,2,3). Определить значения переменных X, Y, Z. Вывести их на экран дисплея. Пусть D1 и D2 - заштрихованные части плоскости (см. рисунок ниже), и пусть U определяется как функция X и Y.
Вывести U на экран дисплея.


______________________________
Пока встал на этом:


Заранее благодарю Вас за любую помощь.

[Utkin]

Процедуры и функции проходили? Тут лучше бы разбивать программу на функции.
Работа с U осуществляется аналогично - через If. В данном случае тебе нужно будет проверять находится ли точка с координатами (то есть две координаты - в условии будет что-то вроде if (x>...) and (y>...) then ...) в указанной области координатной плоскости, ну и соответственно выполнять свои синусы и косинусы. Условия сложно представлять сразу и потому наверно будут ошибки. Поэтому я предлагаю каждое из трех условий для U сделать ввиде функции. Причем последняя функция будет опираться на две предыдущие (с областями D1 и D2)

[Poma][a]

Привет
Смотри, всё очень просто..

else begin x := a; y := b; z := c;
       if (x*x+y*y <= 1) and not ((x<0) and (y < 0)) then u := cos(x*y)
       else if (x < 0) and (y < 0) and (y <= -x-2) then u := sin(x*y)
       else u := z+5
end;

Внимание! Я не проверял

[Utkin]

if (x*x+y*y <= 1) and not ((x<0) and (y < 0)) then u := cos(x*y)

Сомнительно. Круг очертили, но вот условие x>0 и y>0, наверно не та четверть... Мне кажется -0,5 и -0,5 для второй части условия не подойдет. Но на плоскости удовлетворяет условию.

[challengerr]

D1 это единичная окружность с центром в точке (0, 0). Уравнение окружности с центром в 0 радиуса r задается уранением x*x + y*y= r*r
Существуют следующие случаи:
x>0, y>0 -> строим окружность по точкам с заданным шагом eps / dx
x>0, y<0 -> окружность не строится и четверть окружности не учитывается
x<0, y<0 -> строится окружность по точкам
x<0, y>0 -> строится окружность по точкам
Для вычисления квадратного корня используется модуль math и функция sqrt.

Для вывода графики в Pascal используется модуль graph.
Инициализация графики на моем компьютере в среде free Pascal производится следующим образом

program c;
uses crt, graph;
var gd, gm: integer; pth: string;
begin
gd:= detect; gm:=0; pth:='C:\fpc\2.6.2\bin\i386-win32';
InitGraph(gd, gm, pth);
end.

Точку на экран выводит процедура PutPixel(x, y, color);

D2 ограничивается прямой, проходящей через 2 точки (-2, 0), (0, -2).
Уравнение прямой задается в виде y = kx+b. Чтобы найти k и b , составляется система из двух уравнений с двумя неизвестными
0=k*(-2) + b
-2=k*0 + b
Отсюда следует, что b = -2, k = -1 то есть уравнение прямой с угловым коэффициентом y= -x-2. По этому уравнению с заданной точностью eps, dx строится прямая на отрезке от (-2, 0) до (0,-2).
Расстояние в декартовой системе координат между точками (x1,y1) и (x2, y2) вычисляется по формуле r= sqrt( (x1-x2)*(x1-x2) + (y1-y2)*(y1-y2))
Вычисление расстояния необходимо, чтобы определить принадлежит ли точка заданной части окружности или нет.

Вычисление синуса и косинуса производится функцими sin и cos
U это множество из трех точек

[Poma][a]

Сомнительно

Угу.. Знак спутал..
Вот так кажется будет прально
if (x*x+y*y <= 1) and not ((x > 0) and (y < 0)) then u := cos(x*y)

[Jarebeck]

Сообщение от Poma][a

Привет
Смотри, всё очень просто..

else begin x := a; y := b; z := c;
       if (x*x+y*y <= 1) and not ((x<0) and (y < 0)) then u := cos(x*y)
       else if (x < 0) and (y < 0) and (y <= -x-2) then u := sin(x*y)
       else u := z+5
end;

Внимание! Я не проверял

Да, да, да! Точно, спасибо! Идеально заработала, за исключением

...and not ((x<0) and (y < 0)) then...

, там нужно было

(x>0) and (y < 0)

т.к. 4я четверть