uses Graph;
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  x,y,krok:real;
  i,pocet_kroku, kresli_x, kresli_y:integer;
  test:real;

function souradnice_x(x_orig:real):real;
begin
     souradnice_x:=x_orig;
end;

function souradnice_y(y_orig:real):real;
begin
     y:=GetMaxY/2-round(y_orig);
     souradnice_y:=y;
end;

function meritko(hodnota:real;hodnota_max:real;novy_max:real):real;
begin
    test:=(hodnota/hodnota_max)*novy_max;
    meritko:=test;
end;


begin

  grDriver := Detect;
  InitGraph(grDriver, grMode,' ');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin

    pocet_kroku:=1000;
    x:=0;
    krok:=2*pi/pocet_kroku;
    for i:=1 to pocet_kroku do begin

        y:=sin(x);
        {x:=meritko(x,2*3.14,GetMaxX); dava range error }
        y:=meritko(y,1,GetMaxY/2);


        kresli_x:=round(souradnice_x(meritko(x,6.28,GetMaxX)));
        kresli_y:=round(souradnice_y(y));
        PutPixel(kresli_x, kresli_y, white);
        x:=x+krok;
    end;
    Readln;
    CloseGraph;
  end
  else
    Writeln('Chyba grafiky: ', GraphErrorMsg(ErrCode));

end.