Pascal/Turbo Pascal - Programa en Pascal

{Algo así}

program pendiente;

 uses

    crt;

  var

    y, x : integer;

    k, t : integer;

   begin

      clrscr;

      x := - 10;

      y := 1;

      k := 2;

      gotoxy(10,2);write('Valores de sin(t) - cos(t) son');

      for t := x to 10 do

      begin

      y := round(sin(t) - cos(t));

      gotoxy(k,4);write(y);

      k := k + 3;

      end;

      gotoxy(10,6);write('La grafica es');

      x := - 10;

      y := 1;

      for t := x to 10 do

      begin

      y := round(sin(t) - cos(t));

      gotoxy(20 + t,10 + y);write('.');

      end;

      readkey;

   end.