Лабораторные по Delphi для блондинки

[MisaMisa]

. Пусть D – заштрихованная часть плоскости (рис. 3а), и пусть задана точка своими координатами (X,Y). Запись (X,Y)  D означает, что точка с координатами X, Y лежит внутри заштрихованной области D. Определить значение функции U следующим образом:
U = 0, если (X,Y)  D,

X, в противном случае.

[netpolice]

А вот не буду помогать в программировании, но помогу в математике.

Уравнение окружности с центром 0,0

x^2+y^2=R^2

уравнение внешнего полукруга

x^2+y^2=2^2 при y>=0

уравнение внутреннего полукруга

x^2+y^2=1^2 при y>=0

Соответственно проверить принадлежность точки к заштрихованной области можно при следующих условиях

x^2+y^2<=2^2
y>=0
x^2+y^2>=1^2

еще подсказки нужны?

Да! постановка задачи не полная, нет четкого объяснения входят или не входят окружности и ось Х в заштрихованную область, поэтому я предположил что входят.

[Вадим Мошев]

MisaMisa, сколько платите за решение задачи?

[netpolice]

А действительно, че я как не бизнесьмен?

Скока?

[MisaMisa]

Какие вы корыстные))) вот... решила вроде))) правильно??? проверьте если не сложно..

program lab01;

uses crt;

var
  x, y: Real;
  u: Real;
begin
  Write('Input X: ');
  Readln(x);
  Write('Input Y: ');
  Readln(y);
  if (y >= 0) and (x*x + y*y <= 4) and (x*x + y*y >= 1) then
  begin
    u:= 0;
  end
  else
  begin
    u:= x;
  end;
  writeLn('U = ', u:5:3);
  Write('Press Enter to exit');
  Readln;
end.

[netpolice]

  if (y >= 0) and ((x*x + y*y) <= 4) and ((x*x + y*y) >= 1) then

Я бы формулы в скобки взял бы, для читабельности, и на всякий пожарный

 begin
    u:= 0;
  end
  else
  begin
    u:= x;
  end;

Да и зачем стока begin end, хотя на работоспособность не влияет..

А так вроде все ОК.... И учите не только программирование, но и математику .... Пригодится

[Serge_Bliznykov]

MisaMisa, всё нормально, я никаких "косяков" в вашем коде не вижу.

с замечаниями netpolice согласен.