Borland Pascal лаб.

[DRAgon™]

USES Graph;
VAR gd,mg:Integer;
FUNCTION x(x_nov:Integer):Integer;
BEGIN x := x_nov + 320
END;
FUNCTION y(y_nov:Integer):Integer;
BEGIN y := 240 - y_nov
END;

BEGIN
   gd:=0;
	InitGraph(d,mg,'egavga.bgi');
  Circle(x(0),y(0),20);
	ReadLn;
END.

Попробуйте теперь запустит круг будет в центре экрана

[Anatole]

Судя по нескольким тестам с различными координатами, произведение x*y не может быть больше 0,25 для первой картинки, тогда:
Код:

if (x*y >= 0) and (x*y <= 0,25) then writeln('принадлежит');

Интересно, по вашему алгоритму, точка (0.1; 2) принадлежит заштрихованой области? А реально?

[Павел Тихомиров]

Составить программу для вычисления таблицы значений функции
f(x) для x [a, b] с заданным шагом изменения h
y:=(ln(sqrt(abs(x)))/x)+(x*exp(x)/sin(sqr(x)));
a:=1;
b:=5;
h:=0.2;
Надо составить программу тремя способами используя операторы цыкла:for, while, repeat.
while, repeat я составил, но по возможности напишите их тоже я сверюсь.