Разработать алгоритм и написать программу на языке паскаль - Pascal
Формулировка задачи:
задана матрица размерностью m на n состоящая из действительных элементов. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощь датчика случайных чисел. Найти сколько отрицательных элементов содержит матрица в исходной строке, заменить все отрицательные элементы на 0 вывести на экран число отрицательных элементов в каждой строке и полученную матрицу
Решение задачи: «Разработать алгоритм и написать программу на языке паскаль»
textual
Листинг программы
Var A:array[1..20,1..20] of real; i,j,n,m,k:byte; Begin write('n,m: ');readln(n,m); writeln('Исходная матрица'); For i:=1 to n do Begin For j:=1 to m do Begin A[i,j]:=random*10-5; write(A[i,j]:6:2); End; writeln; End; For i:=1 to n do Begin k:=0; For j:=1 to m do if A[i,j]<0 then Begin inc(k); A[i,j]:=0; End; writeln('В ',i,' строке отрицательных = ',k); End; writeln('Полученная матрица'); For i:=1 to n do Begin For j:=1 to m do write(A[i,j]:6:2); writeln; End; readln; End.
Объяснение кода листинга программы
- Объявлены следующие переменные: A (двумерный массив), i, j, n, m, k (всего 6 переменных).
- Пользователю предлагается ввести значения n и m.
- Выводится сообщение
Исходная матрица
и происходит вывод исходной матрицы A размером n на m. Значения матрицы выводятся с плавающей точкой, при этом они округляются до двух знаков после запятой. - Для каждого элемента матрицы A выполняется проверка: если значение отрицательное, то к счетчику k прибавляется единица и значение этого элемента заменяется на ноль.
- Выводится сообщение
В строке
, содержащей значение i, количество отрицательных элементов матрицы A равно k. - Выводится сообщение
Полученная матрица
и происходит вывод полученной матрицы A размером n на m. Значения матрицы выводятся с плавающей точкой, при этом они округляются до двух знаков после запятой. - Программа ожидает ввода пользователя для завершения работы.