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

[munhoyan]

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

[klem4]

Ты правила читать будешь ? Сначала надо воспользоваться поиском и заглянуть в FAQ, возможно твою задачу уже решали, а твою решали и неоднократно : Табулирование ф-и

чуть-чуть доделать и получится то что тебе нужно.

[Altair]

To: klem4, не будь так жесток,

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

Видимо так было в задании, это мало похоже на "табулирование функции" верно ?

;)

[munhoyan]

я просто пряник в этом деле, пожалуйста молю Вас, напишите решение

[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.