Вывести массив на экран в виде таблицы - Free Pascal

Формулировка задачи:

Создать массив с элементами a_kn =n f ( k ) + sin ( k ) g (n), где k, n =1, 2, 3, 4; Вывести его на экран в виде таблицы. Вычислить произведение значений тех элементов, для которых справедливы неравенства a_kn < -1 или a_kn > 1.

Решение задачи: «Вывести массив на экран в виде таблицы»

Листинг программы

uses crt;
const r=4;
 
function f(k:integer):real;
begin
f:=2*sin(k)*sin(2*k-1.5)*cos(2*k+1.5)-6
end;
 
function g(n:integer):real;
begin
g:=abs(cos(2)-0.51)*sin(3*n-4)-4.44
end;
 
var a:array[1..r,1..r] of real;
    k,n:integer;
    p:real;
begin
clrscr;
writeln('Исходная матрица:');
p:=1;
for k:=1 to r do
 begin
  for n:=1 to r do
   begin
    a[k,n]:=n*f(k)+sin(k)*g(n);
    write(a[k,n]:7:2);
    if abs(a[k,n])>1 then p:=p*a[k,n];
   end;
  writeln;
 end;
write('P=',p:0:2);
readln
end.

Объяснение кода листинга программы

Программа использует библиотеку CRT для работы с консолью.
В начале программы объявлены две функции: f и g.
Функция f принимает целочисленный аргумент k и возвращает вещественное число, результат вычисления некоторой математической функции.
Функция g принимает целочисленный аргумент n и возвращает вещественное число, результат вычисления некоторой математической функции.
Далее в программе объявлен массив a размером r на r, где r — константа, равная 4.
Также в программе объявлены три переменные: k, n и p.
В цикле с переменной k от 1 до r выводится заголовок Исходная матрица: и затем в цикле с переменной n от 1 до r выводятся значения элементов матрицы a.
Значение каждого элемента матрицы вычисляется как сумма значения функции f, умноженного на значение переменной n, и значения функции g, умноженного на значение переменной k.
Далее выводится значение переменной p, которое является результатом вычисления произведения значений элементов матрицы a.
Значение переменной p выводится в формате P=число:0:2, где число — это значение переменной p, а 0:2 - это формат вывода числа с точностью до двух знаков после запятой.
В конце программы выполняется операция чтения из консоли с помощью функции readln.