Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Блок-схеми програм

1.1.

1.2.
Складемо блок-схему підпрограми формування вектора Х(х₁, х₂, х₃,..., х₅), кожен елемент якого визначається, як добуток елементів головної діагоналі та третього стовпця матриці.

1.3. Складемо блок-схему підпрограми обчислення значення функції G за формулою

2. Тексти підпрограм

2.1. Підпрограма-процедура обчислення елементів матриці за формулою (i=1,2,…,5; j=1,2,…,5).

Procedure mas(var a:arr);

var i,j:integer;

begin

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

a[i,j]:=exp((3.4-i)*ln(2))*j+ln((2+i*j)/(j+i))/ln(10);

write('A[',i,',',j,']=',a[i,j]:5:2,' ');

end;

writeln;

end;

writeln;

end;

2.2. Підпрограма-процедура обчислення вектора Х(х₁, х₂, х₃,..., х₅), кожен елемент якого визначається, як добуток елементів головної діагоналі та третього стовпця матриці.

Procedure vector(a:arr;var x:array of real);

var i:integer; d:real;

begin

d:=1;

for i:=1 to 5 do d:=d*a[i,i];

for i:=1 to 5 do

begin

x[i]:=d*a[3,i];

writeln('X[',i,']=',x[i]);

end;

writeln;

end;

2.3. Підпрограма-процедура обчислення обчислення значення функції G за формулою

Procedure func(x:array of real; var g:real);

var k,i:integer; s:real;

begin

g:=1;

for i:=1 to 5 do

begin

for k:=1 to i do s:=x[k];

g:=g*(cos(s)+x[i]/(i+1));

end;

writeln('G=',g);

end;