Разработать алгоритм и написать программу на языке паскаль - 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.

Объяснение кода листинга программы

  1. Объявлены следующие переменные: A (двумерный массив), i, j, n, m, k (всего 6 переменных).
  2. Пользователю предлагается ввести значения n и m.
  3. Выводится сообщение Исходная матрица и происходит вывод исходной матрицы A размером n на m. Значения матрицы выводятся с плавающей точкой, при этом они округляются до двух знаков после запятой.
  4. Для каждого элемента матрицы A выполняется проверка: если значение отрицательное, то к счетчику k прибавляется единица и значение этого элемента заменяется на ноль.
  5. Выводится сообщение В строке, содержащей значение i, количество отрицательных элементов матрицы A равно k.
  6. Выводится сообщение Полученная матрица и происходит вывод полученной матрицы A размером n на m. Значения матрицы выводятся с плавающей точкой, при этом они округляются до двух знаков после запятой.
  7. Программа ожидает ввода пользователя для завершения работы.

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы