program lab4;
uses crt,graph;
var   x1,x2:integer;
      y1,y2:real;

procedure proc_sin(xmin,xmax:integer; ymin,ymax:real);
var x,y,h,ymax1,ymin1,g,y_pr,d,r,x11,x22,y11,y22,y33:real;
    i,j,q,a,Dr:Integer;
    y_pr1,cl0p:Boolean;
begin
Dr:=Detect;
InitGraph(Dr,a,'');
r:=180/pi;
setcolor(5);
OutTextXY(30,30,'sin(x)');
SetColor(12);
line(234,60,234,200);
line(20,130,450,130);
line(234,60,239,70);
line(234,60,229,70);
line(450,130,440,125);
line(450,130,440,135);
x11:=(xmin+180)/r;
y11:=sin(x);
x22:=(xmax+180)/r;
y22:=sin(x);
SetColor(15);
for i:=-360 to 720  do
  begin
    x:=i/r;
    y:=sin(x);
    putpixel(round(20*x)+170,round(20*y)+130,14);
  end;
for i:=xmin+180 to xmax+180  do
  begin
    x:=i/r;
    y:=sin(x);
    putpixel(round(20*x)+170,round(20*y)+130,1);
  end;
SetColor(5);
d:=xmin/r;
ymin1:=sin(d);
d:=xmax/r;
ymax1:=sin(d);
For i:=xmin to xmax do
  begin
    d:=i/r;
    y:=sin(d);
    For q:=-3 to 3 do
      begin
        If (i=(0+q*180)) then begin y:=0; Break; end;
        If (i=(90+q*360))then begin y:=1; Break; end;
        If (i=(270+q*360))then begin y:=-1; Break; end;
      end;
    if y>ymax1 then ymax1:=y;
    if y<ymin1 then ymin1:=y;
  end;
If (ymin1>ymin)or(ymax1<ymax) then begin OutTextXY(470,150,'не сюърективна'); cl0p:=false;   end
else begin OutTextXY(470,140,'сюърективна');cl0p:=true; end;
y_pr1:=False;
For i:=xmin to xmax do
  begin
    h:=i/r;
    y:=sin(h);
     For q:=-3 to 3 do
      begin
        If (i=(q*180)) then begin y:=0; Break; end;
        If (i=(90+q*360))then begin y:=1; Break; end;
        If (i=(270+q*360))then begin y:=-1; Break; end;
      end;
    For j:=i+1 to xmax do
      begin
        g:=j/r;
        y_pr:=sin(g);
         For q:=-3 to 3 do
           begin
             If (j=(0+q*180)) then begin y_pr:=0; Break; end;
             If (j=(90+q*360))then begin y_pr:=1; Break; end;
             If (j=(270+q*360))then begin y_pr:=-1; Break; end;
           end;
        If y=y_pr then
          begin
            y_pr1:=true;
          end;
      If y_pr1 then Break;
      end;
      If y_pr1 then Break;
  end;
If y_pr1 then OutTextXY(470,130,'Не инъективна')
else OutTextXY(470,130,'инъективна');
If (not y_pr1) and (cl0p) then OutTextXY(470,150,'биективна');
SetColor(15);
line(round(20*x11)+170,round(20*y11)+109,round(20*x22)+170,round(20*y22)+109);
y33:=y22+(ymax-ymin);
line(round(20*x11)+170,round(20*y11)+110,round(20*x11)+170,round(20*y33)+110);
line(round(20*x22)+170,round(20*y33)+111,round(20*x11)+170,round(20*y33)+111);
line(round(20*x22)+171,round(20*y11)+110,round(20*x22)+171,round(20*y33)+110);
readkey;
closeGraph;
end;
begin
clrscr;
writeln('qp-9l sin(x)');
write('xmin=');
readln(x1);
write('xmax=');
readln(x2);
write('ymin=');
readln(y1);
write('ymax=');
readln(y2);
proc_sin(x1,x2,y1,y2);
end.