прога для работы с матрицами |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
прога для работы с матрицами |
NRG |
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Пожалуйста помогите мне написать прогу на паскале
а)заменить заданным вектором столбцы матрицы В, не содержащие ни одного отрицательного элемента; б)в полученной матрице найти сумму элементов строк с четными номерами, содержащих хотя бы один нулевой элемент. Сообщение отредактировано: NRG - |
sheka |
Сообщение
#2
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
Не вопрос. А что помочь то?
|
NRG |
Сообщение
#3
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
как начать ??? я просто не понимаю какие переменные нужны и как создать там матрицу
Сообщение отредактировано: NRG - |
sheka |
Сообщение
#4
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
Можно, например, так:
1) |
NRG |
Сообщение
#5
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Можно, например, так: 1) у меня есть такая вот прога только я незнаю как сделать в ней чтобы можно было задавать матрицу самому ,и препод сказал что тут много лишнего только он несказал чего именно ))) 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; 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; END. |
sheka |
Сообщение
#6
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
Значит писал не сам. А зачем мне исправлять чужой код? Не вижу смысла.
ЗЫ: Используй, пожалуйста, теги. |
NRG |
Сообщение
#7
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
|
Текстовая версия | 13.05.2024 15:16 |