Ладно, если я правильно понял, то так:
Код:
Const
R=10.0;
c=-4.0;
Var
x,y:Real;
Begin
Write('x= ');
Readln(x);
If Abs(x)<=R then y:=Sqrt(Sqr(R)-Sqr(x)) else y:=c;
Writeln('y= ',y:0:3);
Readln
End.
Код:
Var
Ax,Ay,Bx,By:Real;
Begin
Write('X coordinate of point A: ');
Readln(Ax);
Write('Y coordinate of point A: ');
Readln(Ay);
Write('X coordinate of point B: ');
Readln(Bx);
Write('Y coordinate of point B: ');
Readln(By);
If (Ay=-By) and (Ax=Bx) then Writeln('X-axis symmetry')
else
If (Ax=-Bx) and (Ay=By) then Writeln('Y-axis symmetry')
else
Writeln('No symmetry');
Readln
End.