попадает ли точка в область pascal

[evklid]

1.нужно определить попадает ли точка в заштрихованную область. я написал когда X меньше нуля

IF (X < 0) AND (SQR (X) + SQR (Y) <=1)) OR IF X >0( БЛА БЛА)

помогите написать когда x>0.

[Virtson]

(X>0) and (X + ABS(Y) <= 1)

.. нужно проверять =)

после OR в вашем коде не нужно второе IF, будет так :
IF (()AND()) OR (()AND()) Then

[evklid]

2. еще нужно написать программу y=arcsin(x) + x^2.
вот что я написал:

var x, arcsin :real;
Begin
clrscr;
write ('x='); readln (x);
arcsin:= Arctan(x/Sqrt(1-sqr(x))) + x^2;
writeln ('arcsin=');
readln;
End.

Правильно??

[Sparkman]

Сообщение от evklid

1.нужно определить попадает ли точка в заштрихованную область. я написал когда X меньше нуля
помогите написать когда x>0.

IF ((X < 0) AND (SQR (X) + SQR (Y) <=1))) OR ((X >0) and (x-y<=1) and (y-x<=1)) then bla-bla

var x, arcsin :real;
Begin
clrscr;
write ('x='); readln (x);
arcsin:= Arctan(x/Sqrt(1-sqr(x))) + x^2;
write ('arcsin=');writeln(arcsin:0:2);
readln;
End.

[evklid]

Virtson, посоветуй как дальше написать после or x>0 then .... мне в голову ниче не лезет..

[evklid]

Sparkman можешь объяснить что делает это строка

writeln(arcsin:0:2);

[Sparkman]

Сообщение от evklid

Virtson, посоветуй как дальше написать после or x>0 then .... мне в голову ниче не лезет..

он имел в виду, что синтаксис языка паскаль не позволит ввести такое

if <условие> and if <условие> then

[Sparkman]

Сообщение от evklid

Sparkman можешь объяснить что делает это строка

выводит значение переменной arcsin на экран с нулевой позиции с двумя знаками после запятой.
если этого не поставить, то любое вещественное число будет выводится в научном стиле, что-то типа 1.567E+01. Для обычных пользователей числами - такое написание не является удобным, боле читабельно число выглядит так: 15.67

[evklid]

и последняя просьба) наш препод просит чтобы мы писали по его стилю. вот пример

условие
1.Пример программы, которая вычисляет при заданном X, печатает Y11, Y22 и проверяет принадлежность точки с координатами (X1,Y1) заштрихованной области.
Исходные данные: X=-15, X1=0.5, Y1=1.2.

VAR X, X1, Y1, Y : REAL;
WRITELN ( ‘ВВЕДИ X:’);
READLN (X);
Y:= EXP ((-X+1)*LN (3) ) * SIN (X)
WRITELN (‘ При Х=’, X: 8:3, ‘Y=’, Y: 8:4);
WRITELN (‘ Y11=’, TRUNC (Y): 4, ‘Y22=’, ROUND (Y): 4);
WRITELN (‘ВВЕДИ КООРДИНАТЫ: Х1, Y1’);
READLN (X1, Y1);
WRITELN ((X1=>0) AND (Y1=>0) AND (SQR (X) + SQR (Y) <=1));
WRITELN (‘ Программу составил Иванов’)
END.

не могу понять что делает выделенная строка?

[evklid]

и еще один последний вопрос) нужно переделать вот эту программу под оператор case

PHP код:

Program cwadr (input, output);
label 20;
var a, b, c, d, e, d1, x, x1, x2 : real;
begin
writeln ('введите a, b, c'); readln ('a, b, c');
if a=0 then begin
if b=0 then begin
if c=0 then begin
writeln ('x-любое число');
goto 20; end;
writeln ('решений нет');
goto 20; end;
writeln ('корень один x= ', x);
goto 20; end;
d:= b*b-4*a*c; e:= 2*a;
if d=0 then begin
writeln ('корни кратные х1 = х2 = ', -b/e);
goto 20; end;
d1:= sqrt (abs (d));
if d<0 then begin
writeln ('корни комплексно-сопряженные');
writeln ('x1 = ', -b/e, ' -i* ', d1/e);
writeln ('x2 = ', -b/e, ' +i* ', d1/e);
goto 20; end;
writeln ('корни действительные');
writeln ('x2 = ', ( - b+d1)/e );
writeln ('x1 = ', ( - b+d1)/e );
20; 
end. 


вот я сделал но не до конца поправте плиз)

PHP код:

Program cwadr (input, output);
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('Коэффициенты уравнения a,b,c:');
readln(a,b,c);
case ord(a=0) of
1:write('Это не квадратное уравнение');
0:begin
    d:=b*b-4*a*c;
    case ord(d>=0)of
    0:write('решений нет');
    1:case ord(d=0) of
    1:write('корень один x= ', x,(-b/(2*a));
    else write('2 корня x1=',(-b+sqrt(d))/(2*a):0:2,
'x2=',(-b-sqrt(d))/(2*a):0:2);
    end;
  end;
 end; 
end;
readln
end.