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

{vichislenie funkzii U}

U:=1; {nachalnoe znachenie funkzii U}

for i:=1 to k-1 do

U:=U*(x[i]+x[k-i]);

writeln;

writeln;

write ('Funkzija: u=',u:10:7);

Repeat Until KeyPressed

END.

МОДУЛЬ ГЛОБАЛЬНИХ ОПИСІВ

Unit Glob; {Имя модуля}

Interface

Const

Len=100;

Type

T_Matr=array[1..Len,1..Len] of real; {Тип массива-матрицы}

T_Vect=array[1..Len] of real; {Тип массива-вектора}

End.

СЕРВІСНИЙ МОДУЛЬ ОБСЛУГОВУВАННЯ МАТРИЦІ

Unit KR_Srv2;{ Имя сервисного модуля} Interface Uses Glob; { Имя модуля с глобальными описаниями} Procedure Ztvor_M(M,N:byte;Var ma:T_Matr); { Описание процедуры создания матрицы} Procedure Print_M(Ma:T_Matr;M,N:byte); { Описание процедуры печати}

Implementation

Uses CRT;

Procedure Ztvor_M(M,N:byte;Var ma:T_Matr); { Процедура создания матрицы}

Var

i,j:byte; { Рабочие переменные}

Begin

writeln (' Введите размерность матрицы A: числа M и N'); write('m=');

read (m);

write('n=');