У вас вопросы?
У нас ответы:) 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. Тема 1 Нормативноправове забезпечення протидії корупції
2. Чайный культ и чайная церемония
3. Причини виникнення бюджетного дефіциту в Україні
4. Однако и в этом заключалась их определенная заслуга поскольку многие шедевры греческого искусства дошли до
5. практикума Подготовка к лабораторной работе С чего начинать Прочитайте описание лаборатор
6. А это детки море Запомните что по одному к нему ходить опасно Есть закон И т
7. Б 1993р В 1974р
8. Денежное обращение и типы денежных систем
9. Нумизматика как наука
10. Промышленная теплоэнергетика ЭКЗАМЕНАЦИОННЫЙ БИЛЕТ 1