2 . Текст программы:
program lab5;
var
A:array[1..8,1..3] of integer;
B:array[1..8,1..3] of integer;
i,j:integer;P:integer;
BEGIN
write(' vvedi A[',i,',',j,']= ');
for i:=1 to 8 do begin
for j:=1 to 3 do
readln(A[i,j]);
end;
P:=0;
for i:=1 to 8 do begin
for j:=1 to 3 do
if A[i,j]>0 then P:=P+1 else B[i,j]:=(-1)*A[i,j];
if A[i,j]>0 then B[i,j]:=-A[i,j];
end;
for i:=1 to 8 do
begin
for j:=1 to 3 do
write(B[i,j]:4);
writeln;
end;
Write('P=',P);
Readln(P);
END.
3. Результат выполнения контрольного примера:
vvedi A[1,1]= 1
vvedi A[1,2]= 2
vvedi A[1,3]= 3
vvedi A[2,1]= 4
vvedi A[2,2]= 5
vvedi A[2,3]= 6
vvedi A[3,1]= -7
vvedi A[3,2]= -8
vvedi A[3,3]= -9
vvedi A[4,1]= 1
vvedi A[4,2]= 3
vvedi A[4,3]= 2
vvedi A[5,1]= -4
vvedi A[5,2]= 6
vvedi A[5,3]= -5
vvedi A[6,1]= 7
vvedi A[6,2]= 8
vvedi A[6,3]= -9
vvedi A[7,1]= 1
vvedi A[7,2]= 3
vvedi A[7,3]= 2
vvedi A[8,1]= 2
vvedi A[8,2]= 4
vvedi A[8,3]= -6
3. Результат выполнения контрольного примера:
-1 -2 -3
-4 -5 -6
7 8 9
-1 -3 -2
4 -6 5
-7 -8 9
-1 -3 -2
-2 -4 6
P=17
Лабораторная работа №6
Задание: Вычислить значение функции в точках
при заданных значениях
Результаты представить в виде двумерной таблицы.
Решение: 1. Блок схема решения представлена на рисунке.
а) Блок-схема алгоритма основной программы PR5
б)
Блок-схема алгоритма подпрограммы Р
2. Текст программы:
program lab6;
type vector=array[1..20] of real;
massiv=array[1..20,1..20] of real;
var x,a:vector;
i,j,n,m:integer;
y:massiv;
procedure P(n,m:integer;x,a:vector;var y:massiv);
begin
for i:=1 to n do
for j:=1 to m do
y[i,j]:=arctan(a[j]/x[i])+ln(x[i]+(sqrt(x[i])/exp(x[i])));
end;
BEGIN
write('vvedi kolichestvo znacheniy x i a=');
readln(n,m);
for i:=1 to n do
begin
write('vvedi x[',i,']=');
readln(x[i]);
end;
for j:=1 to m do
begin
write('vvedi a[',j,']=');
readln(a[j]);
end;
p(n,m,x,a,y);
writeln(' tablisa');
Writeln('┌──────┬──────┬──────┬──────┬──────┬──────┐');
writeln(' | X \ a | ');
for i:=1 to m do
write(a[i]:3:1,' ',' | ');
writeln;
Writeln('├──────┼──────┼──────┼──────┼──────┼──────┤');
for i:=1 to n do begin
write( ' | ',x[i]:3:1,' |' );
for j:=1 to m do
write(y[i,j]:7:3,'|');
writeln;
end;
Writeln('└──────┴──────┴──────┴──────┴──────┴──────┘');
readln;
END.
3. Результат выполнения контрольного примера:
vvedi kolichestvo znacheniy x i a=7 8
vvedi x[1]=3
vvedi x[2]=8
vvedi x[3]=9
vvedi x[4]=12
vvedi x[5]=13
vvedi x[6]=15
vvedi x[7]=18
vvedi a[1]=1
vvedi a[2]=7
vvedi a[3]=2
vvedi a[4]=2
vvedi a[5]=3
vvedi a[6]=2
vvedi a[7]=5
vvedi a[8]=3
tablisa
-
X\a
1.0
7.0
2.0
2.0
3.0
2.0
5.0
3.0
3.0
1.449
2.293
1.715
1.715
1.912
1.715
2.157
1.912
8.0
2.204
2.798
2.325
2.325
2.438
2.325
2.638
2.438
9.0
2.308
2.858
2.416
2.416
2.519
2.416
2.704
2.519
12.0
2.568
3.013
2.650
2.650
2.730
2.650
2.880
2.730
13.0
2.642
3.059
2.718
2.718
2.792
2.718
2.932
2.792
15.0
2.775
3.145
2.841
2.841
2.905
2.841
3.030
2.905
18.0
2.946
3.261
3.001
3.001
3.056
3.001
3.161
3.056