Добрый день! Помогите пожалуйста написать программу с помощью модуля,процедуры и функции соответственно.Текст задачи: Разработать подпрограмму определения количества нулевых элементов матрицы А(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.
Федосеев Павел
13.01.2013 21:34
С помощью функции задача уже решена (функция h). С помощью процедуры - в h внеси небольшие изменения
procedure Count0 (const A:mas; k, m: integer; var t: integer); var i, j: integer; ......... далее без изменений тело функции h без строки h:=t
её вызов в основной программе
var c0: integer; .... begin ..... Count0(A, k, m, c0); writeln('kolichestvo 0 = ', c0); ..... end.
А что подразумевается под "написать программу с помощью модуля"?
Krjuger
14.01.2013 21:56
Разнести процедуры,функции и их вызов в разные файлы. Если можно так сказать, сделать библиотеку своих процедур и функций, потом подгрузить ее к файлу, в котором они будут вызываться. Грубо говоря, ты пишеш using CRT и потом вызываеш clnscr , вот CRT это и есть модуль, в котором описана процедура clnscr. Почему модуль,а не библиотека хоть убей не знаю, но так говорят и те, кто меня обучал паскалю.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.