![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
__Ole4ka__ |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Женский Репутация: ![]() ![]() ![]() |
Добрый день!
Помогите пожалуйста написать программу с помощью модуля,процедуры и функции соответственно.Текст задачи: Разработать подпрограмму определения количества нулевых элементов матрицы А(KxM). K=5; M=3. Вот данная программа без модуля каким образом ее изменить? program LR8; const k=5; m=3; type mas=array[1..k,1..m] of real; var a:mas; procedure vvod(var A:mas;k,m:integer); var i,j:integer; begin for i:=1 to k do begin for j:=1 to m do begin writeln('vvedi znachenie A[',i,',',j,'] '); readln(A[i,j]); end; end; writeln('vvod zakonchen'); writeln;; end; function h(A:mas;var k,m:integer):integer; var i,j,t:integer; begin t:=0; for i:=1 to k do begin for j:=1 to m do begin if a[i,j]=0 then t:=t+1; end; end; h:=t; end; begin vvod(A,k,m); writeln('kolichestvo 0 = ',h(a,k,m)); readln; end. |
![]() ![]() |
![]() |
Текстовая версия | 30.07.2025 3:14 |