Delphi. Вычислить значения следующих функций f(X) на отрезке [a, b] c шагом h, представив результат в виде таблицы, первый столбец которой - значение аргумента, второй - соответствующее значение ф-цииF(x)=sin(x)-cos(x)

Если что-то непонятно или не работает - спрашивайте.

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

#define M 4

#define N 4

int main()

{

int A[M][N]; // произвольная матрица

int i, j, indx = -1;

// Автоматически заполняем матрицу ,

// находим индекс второго отрицательного элемента ,

// выводим матрицу на экран

srand((unsigned)time(NULL));

printf("Matrix: \n");

for (i = 0; i < M; i++)

{

 for (j = 0; j < N; j++)

 {

  A[i][j] = (rand() % 201) - 100;

  printf("%5d ", A[i][j]);

  if ((A[i][j] < 0)&&(indx<0))

  {

   indx--;

   if (indx == -3) indx = i * M + j;

  }

 }

 printf("\n");

}

// Сортировка по убыванию элементов, расположенных

// после второго отрицательного числа

for (i = indx + 1; i < M * N - 1; i++)

{

 indx = i;

 for (j = i+1; j < M * N; j++)

  if (A[0][j] > A[0][indx]) indx = j;

 j = A[0][i];

 A[0][i] = A[0][indx];

 A[0][indx] = j;

}

// Вывод результата

printf("\nSort matrix: \n");

for (i = 0; i < M; i++)

{

 for (j = 0; j < N; j++)

  printf("%5d ", A[i][j]);

 printf("\n");

}

return 0;

}

Program abc;

var P,R,N,D,A,C: integer;

var B:real;

begin

  write('Введите число P(Первый член прогрессии) - ');

 Read(P);

   write('Введите число R(Разность прогрессии) - ');

 Read(R);

   write('Введите число N(Число которое не может привышаться) - ');

 Read(N);

  D:=2*P;

  A:=D+R*(N-1);

  B:=A/2*N;

 If  (B>N) then writeln('ответ превышает число N')

  else Writeln('Сумма членов арифметической прогрессии:' B);

end.

Быстро прочекал что такое арифметическая прогрессия и попытался написать код. Не суди строго если что-то не так)