У вас вопросы?
У нас ответы:) SamZan.net

Проверить есть ли в матрице 6x5 элементы большие 10 а в матрице B5x7 большие 5

Работа добавлена на сайт samzan.net: 2016-06-09

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

Лаболаторная работа 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.




1. а у детей Дети болеют ветрянкой обычно легко
2. ТЕМА- Расстройства восприятия иллюзии галлюцинации
3. місцем проживання розрізняють
4. а привязку геосферы камни литосферу и воду гидросфера
5. появление первого счетного устройств аббак 17 век логарифмическая линейка арифметические машины Шипк1
6. Интроверты не любят разговаривать Это не так
7. а. Это представления людей относительно уникальных характеристик которыми по их мнению обладает услуга пр
8. испытания при приеме на работу и его правовые последствия.
9. ТЕМАТИКИ Описание опыта работы учителя математики МКОУ СОШ 39 города Тулы Лариной Ольги Юрьевны
10. Тема 2.Клонированные животные Тема 3