
информ.лаба №6. 1 курс .игхту
.docxЛАБОРАТОРНАЯ РАБОТА №6. (вариант 33)
СОСТАВЛЕНИЕ, ВВОД, ОТЛАДКА И ВЫПОЛНЕНИЕ ПРОГРАММ, ИСПОЛЬЗУЮЩИХ ДВУМЕРНЫЕ МАССИВЫ.
начало

b

s1=0

k=1…b

x[k]






w,z


s2=0

i=1…w

j=1…z

a[I,j]










s=s1+s2
1

var i,j,k,b,w,z:integer; s,s1,s2:real; x:array [1..100] of real; a:array [1..100,1..100] of real; begin writeln('Вектор Х'); write('Количество элементов - '); read(b); s1:=0; for k:=1 to b do begin read(x[k]); s1:=s1+sqr(cos(x[k])); end; writeln('Матрица Y'); write('Количество строк - '); read(w); write('Количество столбцов - '); read(z); s2:=0; for i:=1 to w do for j:=1 to z do begin read(a[i,j]); s2:=s2+sqrt(abs(ln(sqr(sin(a[i,j]))))); end; s:=s1+s2; writeln('S=',s); end.
s

конец
1
начало

var i,j:integer;
y:array[1..100,1..100] of real;
i=1…10
x:array[1..100] of real;




begin

for i:=1 to 10 do
begin
x
write('x[',i,']=');

read(x[i]);

end;
writeln('матрица Y');
матрица Y
for i:=1 to 10 do

begin

for j:=1 to 10 do
begin
i=1...10
y[i,j]:=sqr(sin(x[i]))*ln(abs(x[j]));
write(y[i,j]:10:3);




end;

writeln;
j=1…10
end;
end.
конец


y[i,j]





начало

var x:array[1..100] of real;
n
z:array[1..100] of real;

a:array[1..100,1..100] of real;
s:real; k,n,i:integer;
i=1…n
begin




writeln('n'); read(n);

for i:=1 to n do
x[i]
begin

write('x[',i,']='); read(x[i]);
end;

i=1…n
for i:=1 to n do




for k:=1 to n do

begin
write('a[',i,k,']='); read(a[i,k])
k=1…n
end;




for k:=1 to n do

begin
a[I,k]
s:=0;

for i:=1 to k do;

begin


k=1…n
s:=s+(a[i,k]*sqrt(abs(a[i,k]))+exp(-x[k]));




z[k]:=(x[k]+1)/s;

writeln(z[k]);
s=0
end;
end;

i=1…k
end.






z[k]:=(x[k]+1)/s


конец
