Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 25.12.2016, 15:27   #1
Jon_Morgan
Пользователь
 
Регистрация: 11.12.2016
Сообщений: 26
Репутация: 10
По умолчанию Программирование двумерных массивов (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, 17:27   #2
Sibedir
Тот ещё
Профессионал
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Адрес: г. Барнаул
Сообщений: 2,262
Репутация: 931
По умолчанию

Если нужно просто вывести как столбец, то может так же выводить через один пробел (без дефиса)
Код:

writeln (' ', sum/isum:3:2);

Sibedir вне форума   Ответить с цитированием
Старый 25.12.2016, 18:29   #3
Jon_Morgan
Пользователь
 
Регистрация: 11.12.2016
Сообщений: 26
Репутация: 10
По умолчанию

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

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 в 19:13.
Sibedir вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка двумерных массивов (матриц ). Модульное программирование. 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 13:15
Программирование операций обработки двумерных массивов Дима82 Помощь студентам 16 12.05.2008 21:33


05:05.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru