program graf;
uses crt,graph;
const pi=  3 . 14 ;
var x,y:real;
    i:integer;
    begin
    clrscr;
    x:=-pi;
     for i:=  1  to  5  do
          begin
          x:=x+ 0 . 256 ;
          y:=sin(x)+cos(x)- 1 ;
          writeln('x= ',x);
          writeln('y= ',y);
          end;
     end.

Uses Graph,crt;

Var Gd, Gm : Integer;
    R,i: Integer;
    x,y:real;
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, 'd:\program files\tp7\bgi'); { Џгвм Є BGI ¤а ©ўҐа ¬ }
 If GraphResult <> grOk Then Halt( 1 );
{ For R:= 1  To  50  Do}

  x:=- 3 . 14 ;
  for i:= 1  to  50  do
  begin
     x:=x+ 0 . 256 ;
     y:=sin(x)+cos(x)- 1 ;

  Lineto(x,y);{,i,( 200 ))}
  end;
 ReadLn;

{
Lineto(x,y); как сделать чтоб принял значение REAL, или как можно нарисовать линию на фунцию 
 x:=x+ 0 . 256 ;
     y:=sin(x)+cos(x)- 1 ;

procedure lineto(x,y :integer) ; не принимает но мне надо нарисовать линию ! помогите пожалуйста!}
 CloseGraph;
End.

program graf;
uses crt,graph;
const pi=  3 . 14 ;
var x,y:real;
   r,Gm,Gd,i:integer;

    begin
     Gd:=Detect;
 InitGraph(Gd, Gm, 'd:\program files\tp7\bgi'); 
 If GraphResult <> grOk Then Halt( 1 );

    x:=-pi;
     for i:=  1  to  5  do
          begin
          x:=x+ 0 . 256 ;
          y:=sin(x)+cos(x)- 1 ;
          lineto(round(x* 1000 ),round(y* 1000 ));
          end;
           CloseGraph;
       end.