Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лаболаторная работа 3 (отчёт)
3.6. (14+1)
Проверить, есть ли в матрице A(6x5) элементы большие 10, а в матрице B(5x7) большие 5.
|
Имя |
Смысл |
Тип |
Структура |
|
Исходные данные |
|||
|
A |
Вводимый вектор |
Веществ. |
массив |
|
B |
<< |
<< |
<< |
|
Промежуточные данные |
|||
|
n |
Количество строк |
целый |
Простая переменная |
|
m |
Количество столбцов |
<< |
<< |
|
i |
Порядковый номер строки |
<< |
<< |
|
j |
Порядковый номер столбца |
<< |
<< |
|
Выходные данные |
|||
Введите A
<A>
Введите B
<B>
Форма ввода
Форма вывода
There is elements>10 in this array
(There is NO elements>10 in this array)
There is elements>5 in this array
(There is NO elements>5 in this array)
Подпрограммы
Function ch(Var A:matr; n,m:integer; x:real):boolean;
Var i,j:integer; flag1:boolean;
Где A- вводимая матрица (одна из двух, представленных в программе)
n,m – размерность вводимой матрицы
x- заданное по условию число, если хоть один элемент матрицы больше данного числа, флажок переворачивается.
flag1 – флажок, определяет есть ли в данной матрице элементы большие x.
Код программы:
program lab3console;
{$APPTYPE CONSOLE}
uses
SysUtils;
Type matr=array[1..100,1..100]of real;
Var A:matr; B:matr;
Var i,j,n,m:integer;
Function ch(Var A:matr; n,m:integer; x:real):boolean;
Var i,j:integer; flag1:boolean;
Begin
flag1:=false;
i:=1;
while( i<=n )and not flag1 do
begin
j:=1;
while( j<=m )and not flag1 do
begin
if A[i,j]>x then
flag1:=true
else
j:=j+1;
end;
i:=i+1;
end;
ch:=flag1;
End{ch10};
Begin
n:=6; m:=5;
Writeln('Input A[i,j]');
for i:=1 to n do
begin
for j:=1 to m do
begin
read(A[i,j]);
end;
end;
n:=5; m:=7;
Writeln('Input B[i,j]');
for i:=1 to n do
begin
for j:=1 to m do
begin
read(B[i,j]);
end;
end;
If ch(A,6,5,10)=true then
Writeln('There is elements>10 in this array')
else
Writeln('There is no elements>10 in this array');
If ch(B,5,7,5)=true then
Writeln('There is elements>5 in this array')
else
Writeln('There is no elements>5 in this array');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Код 3.6. (свой вариант,14) (дополнительно)
program lab3console36;
{$APPTYPE CONSOLE}
uses
SysUtils;
Type matr45=array[0..4,0..5]of real; matr57=array[0..5,0..7]of real;
Var A:matr57; B:matr45;
Var i,j,n,m:integer;
Procedure ZT1(Var A:matr57; n,m:integer; x:integer);
Var i,j:integer;
Begin
for j:=x to x do
begin
for i:=1 to n do
begin
if A[i,j]=0 then
A[i,j]:=1;
end;
end;
End;{ZT1}
Procedure TZ (Var B:matr45; n,m:integer; x:integer);
Var i,j:integer;
Begin
for j:=x to x do
begin
for i:=1 to n do
begin
if B[i,j]=1 then
B[i,j]:=0;
end;
end;
End;{TZ}
begin
n:=5; m:=7;
Writeln('Input A[i,j]');
for i:=1 to n do
begin
for j:=1 to m do
begin
read(A[i,j]);
readln;
end;
end;
n:=4; m:=5;
Writeln('Input B[i,j]');
for i:=1 to n do
begin
for j:=1 to m do
begin
read(B[i,j]);
readln;
end;
end;
ZT1(A,5,7,3);
TZ(B,4,5,5);
Writeln('resultA');
n:=5; m:=7;
for i:=1 to n do
begin
for j:=1 to m do
begin
Writeln(A[i,j]:5:2);
end;
end;
Writeln('resultB');
n:=4; m:=5;
for i:=1 to n do
begin
for j:=1 to m do
begin
Writeln(B[i,j]:5:2);
end;
end;
readln;
end.