Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2016, 14:27   #1
Jon_Morgan
Пользователь
 
Регистрация: 11.12.2016
Сообщений: 26
По умолчанию Программирование двумерных массивов (free Pascal)

Дана вещественная матрица A размером 6х8. Добавить к ней столбец, состоящий из средних арифметических положительных значений матрицы.
Код:
program main;
uses crt;
type matr=array [1..6,1..8] of integer;
var a:matr; i, j, sum, isum: integer;
begin
clrscr; randomize;
  for i:=1 to 6 do begin
  sum:=0;
  isum:=0;
  for j:=1 to 8 do begin
    a[i,j]:=random(100)-50; {ввод матрицы}
    write (a[i,j], ' '); {вывод матрицы}
     //__Действие над матрицей__
       if a[i,j]>0 then begin {нахождение всех положительных в строке}
          sum:=sum+a[i,j]; {сумма положительных}
          isum:=isum+1; {количество положительных}
          end;
          end;
    writeln (' - ', sum/isum:3:2); {вывод ср. арф. каждой строки}
    end;
readln;
end.
Не знаю как, не просто выводить средние арифметические, а выводить их как столбец данной матрицы.
Jon_Morgan вне форума Ответить с цитированием
Старый 25.12.2016, 16:27   #2
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,281
По умолчанию

Если нужно просто вывести как столбец, то может так же выводить через один пробел (без дефиса)
Код:
writeln (' ', sum/isum:3:2);
Sibedir вне форума Ответить с цитированием
Старый 25.12.2016, 17:29   #3
Jon_Morgan
Пользователь
 
Регистрация: 11.12.2016
Сообщений: 26
По умолчанию

нет, нужно что бы именно как столбец матрицы, как бы добавить эти значения в еще один столбец матрицы
Jon_Morgan вне форума Ответить с цитированием
Старый 25.12.2016, 18:10   #4
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,281
По умолчанию

1.
Цитата:
Дана вещественная матрица
Код:
type matr=array [1..6,1..8] of real;
2. Увеличить размерность матрицы
Код:
type matr=array [1..6,1..9] of real;
3. ну и
Код:
program main;
uses
  crt;
type
  matr = array [1..6,1..9] of real;
var
  a: matr;
  sum: real;
  i, j, isum: integer;
begin
  clrscr;
  randomize;
  for i:=1 to 6 do begin
    sum:=0;
    isum:=0;
    for j:=1 to 8 do begin
      a[i,j]:=random(100)-50; {ввод матрицы}
      write (a[i,j], ' '); {вывод матрицы}
      //__Действие над матрицей__
      if a[i,j]>0 then begin {нахождение всех положительных в строке}
        sum:=sum+a[i,j]; {сумма положительных}
        inc(isum); {количество положительных}
      end;
    end;
    a[i,9] := sum/isum;
    writeln (' ', a[i,9]:3:2); {вывод ср. арф. каждой строки}
  end;
  readln;
end.
P/S: Слова
Цитата:
Добавить к ней столбец
наталкивают на мысль о динамическом массиве

Последний раз редактировалось Sibedir; 25.12.2016 в 18:13.
Sibedir вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка двумерных массивов (матриц ). Модульное программирование. 1 задача. cjcezar Фриланс 6 22.12.2011 18:26
Обработка двумерных массивов (матриц ). Модульное программирование Жам Помощь студентам 0 20.12.2011 22:47
Обработка двумерных массивов (матриц ). Модульное программирование cjcezar Помощь студентам 7 11.12.2011 19:40
Программирование с использованием динамических двумерных массивов 5298996 Помощь студентам 12 21.11.2010 12:15
Программирование операций обработки двумерных массивов Дима82 Помощь студентам 16 12.05.2008 21:33