|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
01.06.2010, 13:05 | #1 (permalink) |
Новичок
Регистрация: 01.06.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Прямоугольная матрица (Pascal)
На языке Pascal Выполнить над прямоугольной матрицей B с размером m x n последовательность действий: 1) Заменить заданным вектором столбцы матрицы B, не содержащие ни одного отрицательного элемента; 2)В полученной матрице найти сумму элементов строк с четными номерами, содержащих хотя бы один нулевой элемент. Заранее благодарен. |
01.06.2010, 13:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме так же есть похожие темы, отправлю их вам Подойдет ли матрица? Матрица NxN Матрица 7х7 Матрица, Паскаль Массив и матрица Матрица |
01.06.2010, 15:56 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пожалуйста:
Код:
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. |
01.06.2010, 22:40 | #3 (permalink) |
Новичок
Регистрация: 01.06.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Премного благодарен =)
Понимаете, если я не собираюсь связывать свою жизнь с компьютерами... а именно: с программированием... скажем так мозг мой не заточен под такого рода деятельность... а в обязательной программе обучения есть это... то что мне прикажете делать? |
02.06.2010, 12:16 | #4 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Знакома ваша ситуевина.. Но раз уж паскаль по программе идет, то надо его изучать. Как бы вы не презирали предмет, его все равно сдавать. Владимир вам правильно сказал - доработать свою программу намного легче, чем разбирать чужую. Все это знаю по себе. А раз уж совсем не понимаете, то обращайтесь, куда деваться..
|
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
|
Опции темы | |
Опции просмотра | |
|
|