Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 01.06.2010, 13:05   #1 (permalink)
ZooX
Новичок
 
Регистрация: 01.06.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Прямоугольная матрица (Pascal)

Доброго времени суток, помогите написать программу, ибо уже отчаялся...
На языке Pascal

Выполнить над прямоугольной матрицей B с размером m x n последовательность действий:
1) Заменить заданным вектором столбцы матрицы B, не содержащие ни одного отрицательного элемента;

2)В полученной матрице найти сумму элементов строк с четными номерами, содержащих хотя бы один нулевой элемент.

Заранее благодарен.
ZooX вне форума   Ответить с цитированием

Старый 01.06.2010, 13:05
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме так же есть похожие темы, отправлю их вам

Подойдет ли матрица?
Матрица NxN
Матрица 7х7
Матрица, Паскаль
Массив и матрица
Матрица

Старый 01.06.2010, 15:56   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,848
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Пожалуйста:
Код:
CONST
 m=4;
 n=5;
VAR
 B:ARRAY[1..m,1..n] of INTEGER;
 C,SUM:ARRAY[1..m] of INTEGER;
 Bul_1:ARRAY[1..n] of BOOLEAN;
 Bul_2:ARRAY[1..m] of BOOLEAN;
 i,j,p:INTEGER;
BEGIN
 Randomize;
 WriteLn('Initial matrix:');
 For i:=1 to m do
  begin
   for j:=1 to n do
    begin
     B[i,j]:=Random(100)-50;
     Write(B[i,j]:5);
    end;
   WriteLn;
  end;
 WriteLn;
 WriteLn('The prescribed vector:');
 For i:=1 to m do
  begin
   SUM[i]:=0;
   C[i]:=Random(10)-5;
   Write(C[i]:5);
  end;
 WriteLn;
 WriteLn('Press "Enter" to continue...');
 ReadLn;
 For j:=1 to n do
  Bul_1[j]:=false;
 For j:=1 to n do
  For i:=1 to m do
   If B[i,j]<0 then Bul_1[j]:=true;
 WriteLn('Reformed matrix:');
 For i:=1 to m do
  begin
   for j:=1 to n do
    begin
     If Bul_1[j] then B[i,j]:=C[i];
     Write(B[i,j]:5);
    end;
   WriteLn;
  end;
 WriteLn;
 WriteLn('Press "Enter" to continue...');
 ReadLn;
 For i:=1 to m do
  Bul_2[i]:=false;
 p:=0;
 For i:=1 to m do
  For j:=1 to n do
   If B[i,j]=0 then
    begin
     Bul_2[i]:=true;
     If (i mod 2)=0 then
      INC(p);
    end;
 For i:=1 to (m div 2) do
  If Bul_2[2*i] then
   begin
    for j:=1 to n do
     SUM[2*i]:=SUM[2*i]+B[2*i,j];
    WriteLn('SUM[',2*i,']= ',SUM[2*i]);
   end;
 If p=0 then
  WriteLn('There are no even strings, containing zero elements');
 ReadLn;
END.
Только вот что хочу заметить. Куда лучше было бы, если бы Вы выложили результаты Ваших "отчаянных попыток" решить задачу, а мы бы указали Вам на ошибки и совместно с Вами довели бы программу до ума. Потому что, поверьте, разбирать чужую (в данном случае, мою) программу куда труднее, чем работать со своей. Можно, конечно, откопировать выложенный листинг и тупо, бездумно сдать преподавателю - но зачем тогда учиться?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 01.06.2010, 22:40   #3 (permalink)
ZooX
Новичок
 
Регистрация: 01.06.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Премного благодарен =)

Понимаете, если я не собираюсь связывать свою жизнь с компьютерами... а именно: с программированием... скажем так мозг мой не заточен под такого рода деятельность... а в обязательной программе обучения есть это... то что мне прикажете делать?
ZooX вне форума   Ответить с цитированием
Старый 02.06.2010, 12:16   #4 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,917
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Знакома ваша ситуевина.. Но раз уж паскаль по программе идет, то надо его изучать. Как бы вы не презирали предмет, его все равно сдавать. Владимир вам правильно сказал - доработать свою программу намного легче, чем разбирать чужую. Все это знаю по себе. А раз уж совсем не понимаете, то обращайтесь, куда деваться..
MrSTEP вне форума   Ответить с цитированием
Старый 29.11.2010, 12:25   #5 (permalink)
Хелен
Sparkling
 
Аватар для Хелен
 
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
По умолчанию

Вытащила из вашей проги кусок формирования матрицы. спасибо =)
Буду над ним работать.
Хелен вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

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

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

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




Часовой пояс GMT +4, время: 02:45.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.