Модули

[Sirega]

Найти все значения мтарицы C(n,m), которые больше числа R и из этих значений сформировать вектор B. Вот я пытался что-то сделать но оно не работает(( Заранее спасибо)
unit lmn;

interface

var
С:array[1..10,1..10] of integer;
B:array[1..10] of integer;
Procedure vvodmas(var l,k : integer);
Procedure vuvodmas(var l:integer);

implementation

Procedure vvodmas(var l,k : integer);
var n,m:integer;
Begin
for n:=1 to l do
for m:=1 to k do
read (C[n,m]);
end;
Procedure vuvodmas(var l:integer);
var n:integer;
Begin
for n:=1 to l do
read (B[n]);
end;
var m,n,r,c,k,l:integer;
begin
c:=0;
write('r');
readln (r);
writeln ('l,k');
readln (l,k);


for n:=1 to l do
for m:=1 to k do begin
If C[n,m]>r then
Begin
c:=c+1;
B[c]:=C[n,m];
end;
end;
writeln;

readln;
end.




program lmn;
uses crt,lmn;
begin
ClrScr;
vvodmas(l,k,С);
vuvodmas(l,B);

readln;
end.


Заранее спасибо)

[Sazary]

Sirega Ошибок слишком много, чтобы их перечислять. Исправил по своему усмотрению:

Исходник программы:

uses crt,lmn;
var
C : array[1..10,1..10] of integer;  { правильнее - C : carr;}
B : array[1..10] of integer;          { B : barr; }
l,k,cnt : integer;
begin
ClrScr;
writeln ('l,k');
readln (l,k);

vvodmas(l,k,C);
cnt := go(k,l,C,B);
vuvodmas(cnt,B);

readln;
end.

Исходник модуля:

unit lmn;
interface
type carr = array[1..10,1..10] of integer;
barr = array[1..10] of integer;

Procedure vvodmas(var l,k : integer; var C : carr);
Procedure vuvodmas(var l:integer; var B : barr);
function go(k,l : integer; var C : carr; var B : barr) : integer;

implementation

Procedure vvodmas(var l,k : integer; var C : carr);
var n,m:integer;
Begin
for n:=1 to l do
 for m:=1 to k do
  begin
  write('C[',n,',',m,']= ');
  readln (C[n,m]);
  end;
end;

Procedure vuvodmas(var l:integer; var B : barr);
var n:integer;
Begin
for n:=1 to l do
 writeln(B[n]);
end;

function go(k,l : integer; var C : carr; var B : barr) : integer;
var m,n,r,ch : integer;
begin
ch:=0;
write('r= ');
readln (r);
{
writeln ('l,k');
readln (l,k);}


for n:=1 to l do
 for m:=1 to k do
 begin
 If C[n,m]>r then
  Begin
  ch:=ch+1;
  B[ch]:=C[n,m];
  end;
 end;
writeln;
readln;
go := ch;
end;
end.

Пример ввода:

l,k
3
3
C[1,1]= 1
C[1,2]= 2
C[1,3]= 3
C[2,1]= 4
C[2,2]= 5
C[2,3]= 6
C[3,1]= 7
C[3,2]= 8
C[3,3]= 9
r= 5


6
7
8
9

------
upd Все-таки назову парочку ошибок:
Совпадают имена массива и переменной (C).
В одном месте вообще была написана русская буква "С".
Неправильный вызов процедур
Неправильный подход к реализации модуля. Модуль - не программа. Он нужен для хранения функций и процедур. У вас он как будто переделан из программы.
....

[Sirega]

Большое спасибо)))

[Sazary]

Sirega Еще стоит заметить, что в программе было бы правильнее написать вместо

var
C : array[1..10,1..10] of integer;
B : array[1..10] of integer;

вот это

var
C : carr;
B : barr;

Не критично, но, раз используются типы из модуля, то лучше так. Добавил в листинг.

[Sirega]

Извините, но можно вам задать еще 2 вопроса:
1.vvodmas(l,k,C);Пишет Type mismatch указатель на массиве
2.Можно ли было обойтись без фунцции и как.
Еще раз спосибо

[Sazary]

1.vvodmas(l,k,C);Пишет Type mismatch указатель на массиве

Что за компилятор? Проверил в TP7 и Free pascal - все работает.

2.Можно ли было обойтись без фунцции и как.

Можно. Хотя и менее удобно.
В модуле замените функцию на

procedure go(k,l : integer; var C : carr; var B : barr; var ret : integer);

И в конце замените

go := ch;

на

ret := ch;

В самой программе замените

cnt := go(k,l,C,B);

на

go(k,l,C,B,cnt);