![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Svetka |
![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 51 Пол: Женский Репутация: ![]() ![]() ![]() |
1)задание такое:вывести марицы а(1..12) и с(10..7).найти и вывести на экран произведение ненулевых элементов матриц.....вот код
Исходный код Program xxx; uses crt; type matrica=array[1..14,1..12] of integer; var a,c:matrica; p1,p2:integer; procedure input(var d:matrica;n,k:integer); var i,j:integer; begin randomize; for i:=1 to n do begin for j:=1 to k do d[i,j]:=random(10); end; End; Procedure output(var d:matrica;n,k:integer); var i,j:integer; begin for i:=1 to n do begin for j:=1 to k do Write(d[i,j]:4); Writeln(''); End; end; function p (d:matrica;n,k:integer):integer; var i,j,proiz:integer; begin proiz:=1; for i:=1 to n do begin for j:=1 to k do if d[i,j]>0 then proiz:=proiz*d[i,j]; p:=proiz; End; End; begin input(a,14,12); input(c,10,7); Writeln('matrica a'); output(a,14,12); Writeln('matrica c'); output(a,10,7); readkey; p1:=p(a,14,12); p2:=p(c,10,7); Writeln('p=',p1); Writeln('p=',p2); Readln; End. помогите ошибку найти.он постоянно обнуляет произведение. |
![]() ![]() |
Svetka |
![]()
Сообщение
#2
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 51 Пол: Женский Репутация: ![]() ![]() ![]() |
вот код:
Исходный код Program xxx; uses crt; type matrica=array[1..8,1..5] of integer; var a,k:matrica; n1,n2:integer; procedure input(var d:matrica;n,k:integer); var i,j:integer; begin randomize; for i:=1 to n do begin for j:=1 to k do d[i,j]:=random(10); end; End; Procedure output(var d:matrica;n,k:integer); var i,j:integer; begin for i:=1 to n do begin for j:=1 to k do Write(d[i,j]:4); Writeln(''); End; end; function kolvo (d:matrica;n,k:integer):integer; var i,j,n3:integer; begin n3:=0; for i:=1 to n do begin for j:=1 to k do if d[i,j]>0 then n3:=n3+1; {n3:=kolvo;} End; End; begin input(a,8,5); input(k,5,7); Writeln('matrica a'); output(a,8,5); Writeln('matrica k'); output(a,5,7); readkey; n1:=kolvo(a,8,5); n2:=kolvo(k,5,7); Writeln('n1=',n1); Writeln('n2=',n2); Readln; End. End. помогите найти ошибку...программа должна найти и вывести на экран кол-во положительных элементов матриц а она неправильно выводит |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 7:32 |