Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Для произвольной матрицы А(N,M) сформировать одномерный массив В
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Лесной человек
Guest
 
Сообщений: n/a
По умолчанию Для произвольной матрицы А(N,M) сформировать одномерный массив В - 13.12.2004, 13:35

Пожалуйста кто в этом шарит помогите

Заранее большое спасибо

1). Для произвольной матрицы А(N,M) сформировать одномерный массив В, каждый элемент которого с номером К равен произведению суммы элементов k-й строки и произведению элементов k-го столбца. Если каждый элемент получится нулевым, то вывести на экран сумму по строке и произведение по столбцу.
Ответить с цитированием
  (#2 (permalink)) Старый
Gold_Dreamer Gold_Dreamer вне форума
Подрывник
 
Сообщений: 309
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.02.2004
По умолчанию 12.02.2005, 17:31

Код:
uses
  Crt;

const
  N = 5;
  M = 5;

var
  Arr1: array[0..N, 0..M] of Integer;
  Arr2: array[0..N] of Integer;
  i,j,Value: Integer;
  Result, Result2: Integer;
  Trun: boolean;

begin
  ClrScr;
  Result:=0;
  Result2:=1;
  Writeln('Enter arrays N: ');
  for i:=0 to N do
    for j:=0 to M do begin
    Read(Value);
    Arr1[i,j]:=Value;
  end;
  for i:=0 to N do 
    Arr2[i]:=Arr1[i]+Arr2[i];
  for i:=0 to N do
    if Arr2[i] <>  0 then begin
    Trun:=true;
    Break;
  end;
  if Trun = false then
  for i:=0 to N do
    Result:=Result + Arr1[i, 0];
  for j:=0 to M do
    Result2:=Result2 * Arr1[0, j];
 end.
Ответить с цитированием
Ads
  (#3 (permalink)) Старый
Gold_Dreamer Gold_Dreamer вне форума
Подрывник
 
Сообщений: 309
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.02.2004
По умолчанию 12.02.2005, 17:31

Код:
uses
  Crt;

const
  N = 5;
  M = 5;

var
  Arr1: array[0..N, 0..M] of Integer;
  Arr2: array[0..N] of Integer;
  i,j,Value: Integer;
  Result, Result2: Integer;
  Trun: boolean;

begin
  ClrScr;
  Result:=0;
  Result2:=1;
  Writeln('Enter arrays N: ');
  for i:=0 to N do
    for j:=0 to M do begin
    Read(Value);
    Arr1[i,j]:=Value;
  end;
  for i:=0 to N do 
    Arr2[i]:=Arr1[i]+Arr2[i];
  for i:=0 to N do
    if Arr2[i] <>  0 then begin
    Trun:=true;
    Break;
  end;
  if Trun = false then
  for i:=0 to N do
    Result:=Result + Arr1[i, 0];
  for j:=0 to M do
    Result2:=Result2 * Arr1[0, j];
 end.
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив fragman Delphi 2 23.12.2011 12:17
Одномерный массив Nat123 Вопросы начинающих программистов 1 11.12.2011 00:48
ОДНОМЕРНЫЙ МАССИВ Стася Pascal 2 09.05.2011 13:47
Одномерный массив strannik23 Pascal 0 12.04.2011 22:40
Одномерный массив daemon92 Pascal 3 04.03.2011 20:51
Одномерный массив zzzarazzza Pascal 2 01.02.2011 11:33
Одномерный массив Evastes Delphi 1 24.09.2010 11:29
Одномерный массив n-andriy Pascal 5 21.06.2010 21:45
Функция перемножающая 2 матрицы произвольной размерности на С++ Trentemoller Вопросы начинающих программистов 8 27.12.2007 01:33
Одномерный массив strertkjh Pascal 6 10.05.2007 01:41
Одномерный массив Bokser Pascal 7 17.04.2007 14:25
Как создать одномерный массив nec Вопросы начинающих программистов 3 07.12.2004 09:53



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов