информ.лаба №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
конец
