Организация арифметических циклических процессов Опции

[munhoyan]

Вычислить значения функции Y = nSinX - CosnX, если Х изменяется от Х0 до ХК с шагом h.

[klem4]

{$n+}
uses crt;
var
   x0, xk, h, i : single;
   n : integer;
function y(x : single; k : integer) : single;
begin
   y := k*sin(x) - cos(k*x);
end;
begin

   clrscr;

   write('x0 = '); readln(x0);
   write('xk = '); readln(xk);
   write(' n = '); readln(n);
   write(' h = '); readln(h);

   i := x0;

   writeln('x':4,'y':9);

   while(i<=xk+h/2) do begin
      writeln(i : 5 : 2, y(i, n):10:2);
      i := i + h;
   end;

   readln;
end.