Представление алгоритма в виде блок-схемы:
Представление алгоритма в виде Паскаль-программы
program lab_8;
uses crt;
const
n=2;
type SA=array[1..n] of integer;
var
A,B:SA;
i,su,max:integer;
L,S:real;
function f(Q:SA):real;
var
sum:real;
pr:integer;
begin
max:=Q[1];
pr:=1;
sum:=0;
for i:=1 to n-1 do
begin
if Q[i]>max then max:=Q[i];
sum:=sum+(cos(Q[i])*sin(Q[i+1]));
pr:=pr*Q[i];
end;
if max<pr*Q[n] then f:=0 else f:=sum;
end;
procedure V;
begin
su:=0;
for i:=1 to n do su:=su+A[i]*B[i];
writeln('Произведение матрицы А на вектор Х равно- ',su);
end;
begin
randomize;
clrscr;
{********* Заполнение матрицы *********}
writeln('Элементы массива А');
for i:=1 to n do
begin
A[i]:=random(5);
write(A[i]:3);
end;
writeln;
{********** Считаем функцию ***********}
L:=f(A);
if cos(L-5*L*L*L)>0 then
begin
S:=ln(cos(L-(5*L*L*L)));
writeln('Значение функции равно- ',S);
end
else
writeln('"S" невозможно посчитать');
{********* Координаты вектора **********}
writeln('Координаты вектора Х');
for i:=1 to n do
begin
B[i]:=random(10);
write(B[i]:3);
end;
writeln;
V;
readln;
readln;
end.
Тестовые примеры Пример 1:
Входные данные:
Элементы массива А:
0 4
Координаты вектора Х:
4 5
Выходные данные:
Значение функции равно- -1.8349598656E+00
Произведение матрицы А на вектор Х равно- 20
Пример 2:
Входные данные:
Элементы массива А
3 2
Координаты вектора Х
6 0
Выходные данные:
Значение функции равно- 0.0000000000E+00
Произведение матрицы А на вектор Х равно- 18
Выполнил:_________________
Защитил:___________________