![]() |
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. |
Федосеев Павел |
![]()
Сообщение
#2
|
Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: ![]() ![]() ![]() |
С помощью функции задача уже решена (функция h).
С помощью процедуры - в h внеси небольшие изменения procedure Count0 (const A:mas; k, m: integer; var t: integer); А что подразумевается под "написать программу с помощью модуля"? |
Krjuger |
![]()
Сообщение
#3
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Разнести процедуры,функции и их вызов в разные файлы.
Если можно так сказать, сделать библиотеку своих процедур и функций, потом подгрузить ее к файлу, в котором они будут вызываться. Грубо говоря, ты пишеш using CRT и потом вызываеш clnscr , вот CRT это и есть модуль, в котором описана процедура clnscr. Почему модуль,а не библиотека хоть убей не знаю, но так говорят и те, кто меня обучал паскалю. |
![]() ![]() |
![]() |
Текстовая версия | 18.06.2024 11:47 |