В22 / лабораторная работа №3.2

//Первый сценарий – функция obrab_matr.sce для решения задачи 2

//Функция находит минимальное значение матрицы A

//и заменяет этим значением элементы кратные x

function [minim, A]=zamena(A, x)

minim=min(A);// минимальный элемент матрицы

A(modulo(A, x)==0)=minim;//Замена элементов

Endfunction

//Конец сценарияobrab_matr.sce==========================================

//Второй сценарий Pr1_3_2.sce для решения второй задачи

//Реализует загрузку сценария obrab_matr.sce, ввод исходных данных,

//формирование матрицы A, вызов функции zamena и вывод результатов

clear;// Очистка окна Обозреватель данных

clc; // Очистка Командного окна

//Загрузка сценария обработки матрицы

exec('obrab_matr.sce');

N=input("Введите размер матрицы NxN ");

x=input("Введите число x ");

//Генерация матрицы размером NxN и значениями от 0 до 10

A=grand(N,N,"uin",0,10);

disp(A,"Исходная матрица: ");

[minim,A]= zamena(A);//Вызов функции решения задачи

//Вывод результатов на экран

mprintf('Минимальный элемент матрицы = %f',minim);

disp(A,"Полученная матрица после замены : ");

//Конец сценарияPr1_3_2.sce==============================================

//Протокол сессии Командного окна:

// Практическое занятие 1.2 по теме

// Матричные операции создания, доступа, извлечения и модификации

// Вариант 22, задача 2

// Выполнила: Студентка группы БСТ2004 Ус О.Н.

//Вызов и выполнение сценарияPr1_3_2.sce

exec('Pr1_3_2.sce');

Введите размер матрицы NxN 5

Введите число x 5

Исходная матрица:

1. 3. 5. 5. 10.

5. 2. 10. 7. 6.

6. 10. 4. 7. 5.

5. 8. 8. 1. 4.

1. 8. 1. 9. 2.

Минимальный элемент матрицы = 1.000000

Полученная матрица после замены :

1. 3. 1. 1. 1.

1. 2. 1. 7. 6.

6. 1. 4. 7. 1.

1. 8. 8. 1. 4.

1. 8. 1. 9. 2.

//Конец сессии второго задания ===========================================