Вычислить значение выражения - Turbo Pascal (29193)

Узнай цену своей работы

Формулировка задачи:

Кому не сложно. Помогите с задачей. Заранее спасибо. Вычислить и напечатать Матрица размером [nxm] Ri -максимальный, а Pi - минимальный элементы i-oй строки матрицы

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
  1. uses crt;
  2. const nmax=15;
  3. var x:array[1..nmax,1..nmax] of real;
  4.     s:array[1..nmax] of real;
  5.     m,n,i,j:byte;
  6.     sm,p,r:real;
  7. begin
  8. clrscr;
  9. randomize;
  10. repeat
  11. write('Количество строк до ',nmax,' n=');
  12. readln(n);
  13. until n in [1..nmax];
  14. repeat
  15. write('Количество столбцов до ',nmax,' m=');
  16. readln(m);
  17. until m in [1..nmax];
  18. writeln('Исходная матрица:');
  19. for i:=1 to n do
  20.  begin
  21.   for j:=1 to m do
  22.    begin
  23.     x[i,j]:=-5+10*random;
  24.     write(x[i,j]:5:1);
  25.    end;
  26.   writeln;
  27.  end;
  28. writeln('Массив S');
  29. for i:=1 to n do
  30.  begin
  31.   p:=x[i,1];
  32.   r:=x[i,1];
  33.   sm:=0;
  34.   for j:=1 to m do
  35.    begin
  36.     if x[i,j]<p then p:=x[i,j];
  37.     if x[i,j]>r then r:=x[i,j];
  38.     sm:=sm+x[i,j];
  39.    end;
  40.   if sm>=0 then s[i]:=p else s[i]:=-r;
  41.   write(s[i]:5:1);
  42.  end;
  43. readln
  44. end.

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

  1. В начале кода подключается библиотека crt, которая обеспечивает функции для работы с потоками ввода-вывода.
  2. Затем определяется константа nmax, которая ограничивает размер массива x до 15 строк и 15 столбцов.
  3. Создаются переменные x, s, m, n, i, j, sm, p и r. Переменные x и s предназначены для хранения значений матрицы, переменные m, n, i и j используются для контроля циклов, переменные sm, p и r используются для вычисления среднего значения.
  4. Запускается цикл repeat, который продолжается до тех пор, пока количество строк или столбцов не превышает значение nmax.
  5. Внутри цикла пользователь вводит количество строк и столбцов, которые он хочет использовать.
  6. После этого выводится исходная матрица x.
  7. Затем запускается еще один цикл repeat, внутри которого вычисляется среднее значение матрицы x.
  8. Если среднее значение положительное, то соответствующий элемент массива s присваивается значению p. Если среднее значение отрицательное, то соответствующий элемент массива s присваивается значению -r.
  9. После окончания внутреннего цикла выводится значение элемента массива s.
  10. Программа завершается после ввода пользователем значения nmax.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 4.429 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут