Курсовая работа: Приклад обчислення функції на Паскалі

{ Формирование массива Х}

K:=1; {Начальное значение формирователя индексов элементов массива Х }

for i:=1 to m do

for j:=1 to n do

if a[i,j]<2 then

begin

x[k]:=a[i,j]; { Формирование элемента x[k] массива Х}

k:=k+1;

end;

{ Вывод массива Х}

writeln(' Maссив X');

writeln;

for i:=1 to k-1 do

write ('x[',i,']=', x[i]:10:7,' '); { Вывод элемента массива Х}

{ Вычисление функции U}

U:=1; {Начальное значени переменной для накапливания произведений при вычислении функции U}

for i:=1 to k-1 do

U:=U*(x[i]+x[k-i]); { Вычислеемое значение функции U на i-м шаге}

writeln;

writeln;

write (' Функция: u=',u:10:7); { Вывод значения функции U}

Repeat Until KeyPressed

END.

ПРОГРАМА З ВИКОРИСТАННЯМ ПРОЦЕДУР

Program Proverka_Proz;

uses Crt;

Const Len=100;

Type

mtr= array [1..Len,1..Len] of real; {Tip massiv-matriza}